Stringgrid autosize

[youuu]

Hi,

wie kann man es bewergstelligen, das stringgrid sich automatisch der größe der Wörter anpasst?

[quendolineDD]

Schau dir mal Canvas.TextHeight() an

Edit:
Sieht dann ungefähr so aus:

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;

[youuu]

Zitat:

Zitat von quendolineDD

Schau dir mal Canvas.TextHeight() an

Edit:
Sieht dann ungefähr so aus:

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;

Ich brauch nicht die Höhe sondern die "weite" logischerweise ;)

Allerdings klappt

Delphi-Quellcode:

StringGridKunden.ColWidths[2] := canvas.TextWidth(StringGridKunden.Cells[2,i+1]);

nicht.

Um genau zu sein wird trotzdem der letzte Buchstabe nicht angezeigt, wie kann das sein?

[mkinzler]

Was meinst du mit "klappt nicht"?

[youuu]

Zitat:

Zitat von mkinzler

Was meinst du mit "klappt nicht"?

Habe Editiert

Delphi-Quellcode:

StringGridKunden.ColWidths[3] := canvas.TextWidth(StringGridKunden.Cells[3,0]) + 10;

Muss ich machen damit das komplette Wort sichtbar ist

[Satty67]

Dir fehlen 10 Pixel?

Wird wohl daran liegen, das die Textausgabe innerhalb der Zelle ist und dadurch die "Ränder" der Zelle zu ColWiths dazugezählt werden muss. Also Zellenbreite <> Breite der Ausgabefläche.

[youuu]

Ah ok dann wird es das gewesen sein.

Danke

[youuu]

Eine Sache funktioniert leider aber immernoch nicht.

Wenn ich im Event "FormPaint" die Größe abtesten und einstelle, dann allerdings später Daten eintrage und wieder die Größe abtaste
ändert sich die Cellen Weite nicht mehr.

Delphi-Quellcode:

  for i:=0 to RowCustomer - 1 do
  begin
    StringGridKunden.Cells[0,i+1] := UTF8ToString(QueryCustomer.FieldByName('title').AsString);
      if StringGridKunden.ColWidths[0] < canvas.TextWidth(StringGridKunden.Cells[0,i+1]) + 10 then
        StringGridKunden.ColWidths[0] := canvas.TextWidth(StringGridKunden.Cells[0,i+1]) + 10;
  end;

Delphi übernimmt lediglich die Größenänderung im "FormPaint" Event

[sx2008]

Da gibt's schon was in der Code-Library:
http://www.delphipraxis.net/internal...ct.php?t=29223