ich habe ein kleines Problem mit der Größeneinstellung des MainWindow meines Z180SoftSystems.
Ich lege mit Constraints die Höhe und Breite des Fensters in Abhängigkeit der Größe des Terminal Displays fest.
Mit Constraints deshalb, da ich ein Fester haben möchte welches sich in der Größe nicht mit der Maus verändern lassen soll. Dazu verwende ich im OnShow Event des MainWindow folgenden Code:
Code: Alles auswählen
procedure TMainWindow.FormShow(Sender: TObject);
var
size: TSize;
begin
...
SystemTerminal := TSystemTerminal.Create(panelSystemTerminal, False);
...
size := SystemTerminal.getDisplaySize;
Constraints.MinWidth := size.Width;
Constraints.MinHeight := size.Height + panelButtons.Height + statusbarMainWindow.Height + menuMainWindow.Height;
Constraints.MaxWidth := Constraints.MinWidth;
Constraints.MaxHeight := Constraints.MinHeight;
...
end;
KUbuntu 37 -> 27
Debian KDE 35 -> 27
Mint Cinnamon 28 -> 24
Gibts da eine Lösung oder ist das ein Bug in der LCL? Ich habe auch schon versucht das mit Client.Height/Width zu Lösen, aber da bleibt das Fenster Resizeable und der Schalter Border bsSimple funktioniert auch nur unter Windows.
Grüße
Hobbyprogrammer