StringGrid resize

[beanie]

Hallöchen Leute,

ich habe ein StringGrid was mit Inhalten aus einer Datenbank gefüllt wird. Das klappt auch alles wunderbar. Nur sind die Spalten für manche Ergebnisse zu klein. Wenn ich jetzt mein ganzes Formular vergrößere so soll sich auch das StringGrid vergrößern. Dies Problem ist auch bewältigt. NUn zu meiner Frage. Wie kann ich die einzelnen Spalten automatisch mit vergrößern lassen ?

MfG
beanie

[toms]

Hi!

Du kannst im OnResize Ereignis die einzelnen Spalten proportional vergrössern/verkleinern.

[beanie]

Das ist ja klar. Das ganze StringGrid verändert seine Größe ja schon nur die einzelnen Spalten beliebn wie sie sind. Wenn ich jetzt mein Formular mit der Maus nach rechts vergrößere so vergrößert sich das StringGrid mit nur die Spalten bleiben halt so wie sie waren und es entsteht ein weisses Feld


MfG
beanie

[APP]

Hallo beanie,

hier ein Beispiel mit nur einer Spalte,
vielleicht hilft es Dir:

Delphi-Quellcode:

CONST
   // Breite der Form beim Start
   FormWidth                       = 580;
   // Breite der 0. Spalte des Grids beim Start
   ColWith0                        = 100;

IMPLEMENTATION

{$R *.DFM}

PROCEDURE TForm1.FormResize(Sender: TObject);
BEGIN
   WITH StringGrid1 DO
      BEGIN
         // Prozentuale Anpassung der 0. Spalte beim Vergrößern/Verkleinern  des Forms nach Rechts/Links
         ColWidths[0] := Round(ColWith0 * Self.Width / FormWidth);
      END;
END;

p.s. Bei vielen Spalten mußt Du vielleicht am Faktor arbeiten (z.B. in Abh. der Spaltenanzahl,...)