Einzelnen Beitrag anzeigen

Benutzerbild von PaPaNi
PaPaNi

Registriert seit: 31. Mär 2022
45 Beiträge
 
#4

AW: VST, Spalte die den restlichen Platz ausfüllt

  Alt 25. Aug 2022, 08:21
Wenn VST den Event OnResize hat, wäre es nicht möglich so was zu machen?
Der Code ist teilweise aus dem Kopf und kann Fehler enthalten.

Code:
// hier wird die Breite der zweite Spalte beim Resize neu berechnet bzw. gesetzt. Die erste und die dritte Spalten bleiben unverändert
...
const
COL_INDEX_DATE = 0;
COL_INDEX_DECRIPTION = 1;
COL_INDEX_CHECKBOX = 2;
COL_WIDTH_DATE = 80; // Breite fixiert
COL_WIDTH_CHECKBOX = 60; // Breite fixiert
WIDTH_SCROLL = 30; // Platz fuer vert. Scroller
...
procedure Tf_Test.vsg_TestResize(Sender: TObject);
begin
vsg_Test.ColWidths[COL_INDEX_DATE] := COL_WIDTH_DATE;
vsg_Test.ColWidths[COL_INDEX_DECRIPTION] := vsg_Test.Width - COL_WIDTH_DATE - COL_WIDTH_CHECKBOX - WIDTH_SCROLL;
vsg_Test.ColWidths[COL_INDEX_CHECKBOX ] := COL_WIDTH_CHECKBOX;
...
  Mit Zitat antworten Zitat