Deutsches Lazarusforum

Man kann auch bissi basteln. (Habe ich im internationalen Forum gefunden und etwas ergänzt - FormCreate)

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
LCLIntf, LCLType, StdCtrls;

type
{$IFDEF WINDOWS}
{ TPageControl ...

Ich hab mal im Ordner fpcsrc\packages\fcl-pdf nach "TextWidth suchen lassen und da findet sich in fpcsrc\packages\fcl-pdf\src\fppdf.pp in Zeile 444 in der Klasse TPDFText die function GetTextWidth : Single; Damit muss sich doch was anfangen lassen?

Ich verwende statt Application.MessageBox die Funktion
MessageDlg aus der Unit Dialogs.

Ich hab im englischen Forum einen netten Beitrag zu dem Thema gefunden.

paweld hat geschrieben: Mo 12. Mai 2025, 15:24Anchor Editor

Ah, sehr gut. Danke für die Demonstration.

Ok, verschieben kann man es nicht mehr aber die Größe kann man verändern.
Setzt man den Anker aber dann auch rechts und links, verschwindet das Shape und seine Height und Width werden zu 0. Das lässt sich auch nicht ändern.

Hallo Leute,
ich habe als Hintergrund ein TShape. Darauf kommen verschiedene Buttons Grids usw. Wenn ich nun etwas anklicke dann klicke ich ab und zu auf das TShape...und es verschiebt sich dann wieder. Was kann ich machen damit sieses TShape unbeweglich wird bzw. nicht angeklickt werden kann ...

Hab's grad mal ausprobiert. Das erzeugt sogar eine Warnung. Dann geht das nicht in der Flut von Hints und Notes verloren.
Gut zu wissen.

https://www.freepascal.org/docs-html/ref/refse5.html


Die Seite hatte ich schon gesehen. Es beantwortet meine Frage aber nicht. Der Compiler meckert über die fehlende Forward Deklaration. Wozu also das keyword unimplemented?

Es ist nur eine Hint-Direktive. Der Code muss zumindest mal als ...

icho2099 hat geschrieben: Mo 12. Mai 2025, 09:27 https://www.freepascal.org/docs-html/ref/refse5.html

Die Seite hatte ich schon gesehen. Es beantwortet meine Frage aber nicht. Der Compiler meckert über die fehlende Forward Deklaration. Wozu also das keyword unimplemented?

Ich kannte unimplemented noch gar nicht. Wie kann ich das verwenden?
Ich habe eine function u2test unimplmented im interface von unit2.pas definiert und unit2 in die uses Liste vonn unit1 eingefügt.

Das lässt sich nicht kompilieren weil u2test ja nicht implementiert ist. Wozu also dieses ...

fpcupdeluxe funktioniert einwandfrei mit Windows 11. Hab ich mit 32 und 64 Bit gemacht.

Ich frage mich, wie das im Ansatz funktionieren sollte, da TEvent.Handle das Handle selbst als Pointer (in FPC) oder NativeUInt (in aktuellen Delphis) ist. Da das EventArray einfach nur ein Feld von THandle ist, müsste es eigentlich := THandle(TermEvent.Handle) sein. 🤔


Du hast recht. Wenn ich ...

Das ist mir bei Prozeduren schonmal aufgefallen.


program Project1;

procedure gibaus(i : integer);
begin
writeln(i);
end;

begin
gibaus(4);
end.


Wenn ich auf das begin in der Prozedur einen Breakpoint setze und dann mit der Maus auf den Parameter i zeige, sehe in "0". Geh ich mit F8 eine ...

indarb wird mit 0 initialisiert und als Index auf das Array verwendet, welches mit dem Index 1 beginnt.