Interne Größenverarbeitung selbst erstellter Steuerelemente

[EUP]

Hallo,

ich versuche einige meiner Steuerelemente (Gambas/VB.Net) auf Lazarus zu übertragen und stoße schon bei der Bemaßung auf Probleme.

Allgemeine Info:

Ich leite vom TPanel ab und setzte dort dann weitere Elemente auf.


Folgender Umstand ergibt sich:




Codemäßige Umsetzung:

Code: Alles auswählen

  public
    constructor Create(TheOwner: TComponent); override;

    procedure CreateWnd; override;
    procedure Resize; override;

    Const
      defHeight = 35;
      defWidth = 100;

  published
    property Align;
    property Anchors;

    property Height: Integer read FHeight write SetHeight Default defHeight;
    property Width: Integer read FWidth write SetWidth Default defWidth;
    
    ...

Code: Alles auswählen

constructor TFlipBox.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);

  FHeight := defHeight;
  FWidth := defWidth;

  Self.SetBounds(Self.Left, Self.Top, FWidth, FHeight);

  Self.ClientHeight := FHeight;
  Self.ClientWidth := FWidth;

  Self.Height := FHeight;
  Self.Width := FWidth;

  Self.BevelInner := bvNone;
  
  ...

Ich setzte im kompletten Code keinen Height-Wert auf 33 oder reduziere einen Height-Wert um 2.
Wie kommt die IDE auf diesen Wert?

Was mache ich da falsch?

Dank im Voraus an alle Wissenden.

[theo]

Probier mal ClientHeight kleiner als FHeight zu machen oder gar nicht im Code zu verändern.

Ist ja auch bei einem normalen Panel so:

Code: Alles auswählen

procedure TForm1.FormShow(Sender: TObject);
begin
 Panel1.ClientHeight:=Panel1.Height;
 Caption:=Panel1.Height.ToString;
end; 

Hier wird Height auch grösser.

[fliegermichl]

Wenn ein Steuerelement erstellt wird, dann wird die virtuelle Klassenmethode GetControlClassDefaultSize aufgerufen. Bei TCustomPanel liefert die normalerweise eine Breite von 170 und eine Höhe von 50 Pixeln. Du könntest diese Methode also für dein TFlipbox überschreiben.

Die Angabe von von default bei der Property Definition steuert lediglich, ob der Wert in der lfm Datei gespeichert wird, (was der Fall ist, wenn die aktuelle Größe vom default abweicht).

[Soner]

Es sieht so aus als ob dein TFlipBox die Komponente TEdit enthält. Von einigen Steuerelementen wie TEdit kann man die Größe, bei TEdit die Höhe, nicht bestimmen, das ist vorgegeben, durch Schriftart usw. Ich denke, deshalb hast du diesen Differenz. Das gilt auch für einige andere Steuerlemente.

[theo]

Was mir nachträglich noch aufgefallen ist mit der ClientHeight: Es hängt tatsächlich auch vom Widgetset ab, was da passiert.
Bei GTK2 bewirkt das Setzen von ClientHeight eine Vergrösserung von Height.
Bei Qt6 können beide Werte anscheinend gleich sein.

So getestet:

Code: Alles auswählen

procedure TForm1.FormShow(Sender: TObject);
begin
 Caption:=Panel1.Height.ToString;
 Panel1.ClientHeight:=Panel1.Height;
 Caption:=Caption+' '+Panel1.Height.ToString;
end; 

GTK2: 50 54
Qt6 : 50 50

MMn sollte man ClientHeight überhaupt nicht setzen, nur abfragen.

[EUP]

Danke erst einmal ...

Code: Alles auswählen

class function GetControlClassDefaultSize: TSize; override;

in Verbindung mit

Code: Alles auswählen

class function TFlipBox.GetControlClassDefaultSize: TSize;
begin
  Result.CX := 100;
  Result.CY := 35;
end;

bringt das Ganze jetzt hoffentlich auf das richtige Fundament.

Jetzt läuft zwar der ganze Rest nicht mehr wie gewünscht, aber ich denke ich baue noch mal neu auf dieser Basis auf.

Wenn ich bei TEdit AutoSize auf false setzte, dann kann ich beliebige Größenwerte setzen.

An ClientHeight/Width war ich eigentlich nur dran, weil die Darstellung (Fangpunkte) in der IDE ansonsten fehlerhaft waren.

Ich denke auch, dass ich unter Lazarus noch eine Menge Nachholbedarf habe.