Delphi Stringgrid autosize

Thema durchsuchen

Ansicht

Themen-Optionen

Stringgrid autosize

Ein Thema von youuu · begonnen am 26. Mai 2009 · letzter Beitrag vom 26. Mai 2009

Vorheriger Beitrag

Nächster Beitrag

quendolineDD

Registriert seit: 19. Apr 2007
Ort: Dresden
781 Beiträge

Turbo Delphi für Win32

Re: Stringgrid autosize

26. Mai 2009, 21:19

Schau dir mal Canvas.TextHeight() an

Edit:
Sieht dann ungefähr so aus:

markieren

Delphi-Quellcode:

			procedure TForm4.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;

  var Value: string);

begin

  if StringGrid1.Cells[ACol, ARow] <> '' then

    StringGrid1.RowHeights[ARow] := Canvas.TextHeight(StringGrid1.Cells[ACol, ARow]);

end;