Thema: Delphi StringGrid resize

Einzelnen Beitrag anzeigen

Benutzerbild von APP
APP

Registriert seit: 24. Feb 2003
Ort: Graz (A)
705 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: StringGrid resize

  Alt 28. Okt 2003, 21:20
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,...)
Armin P. Pressler

BEGIN
...real programmers are using C/C++ - smart developers Delphi;
END;
  Mit Zitat antworten Zitat