Stringgrid, Zeile automatisch an Textgrösse anpassen

[Luckner]

Hallo,
habe in einem Stringgrid die Option goRowSizing auf True gesetzt. Damit, so glaube ich und es funktioniert, die Zeilenhöhe automatisch an den Text der Zelle angepasst. Die Zeile wird jedoch nicht automatisch kleiner, falls der Text in dieser Zelle kleiner wird. Gibt es eine Funktion, mit der ich diese Zellgrössen-Anpassung auslösen kann?

Danke, Luckner.

[Blup]

Zitat:

Hallo,
habe in einem Stringgrid die Option goRowSizing auf True gesetzt. Damit, so glaube ich und es funktioniert, die Zeilenhöhe automatisch an den Text der Zelle angepasst.

goRowSizing -> Der Anwender kann mit der Maus die Höhe einzelner Spalten verändern.

Zitat:

Die Zeile wird jedoch nicht automatisch kleiner, falls der Text in dieser Zelle kleiner wird. Gibt es eine Funktion, mit der ich diese Zellgrössen-Anpassung auslösen kann?

Wenn es solch eine Funktion gäbe, von welcher Spalte wäre die Höhe abhängig?
- Man müsste also erst einmal die Höhe jeder einzelnen Zelle dieser Zeile und davon die größte Höhe bestimmen (Canvas.TextHeight()).
- Oberen und unteren Rand addieren.
- Eventuell bestimmte Grenzwerte berücksichtigen (minimale und maximale Höhe).
- Zum Schluss StringGrid.RowHeight[] entsprechend setzen.
Viel Spass beim Programmieren.

[BadenPower]

Hallo zusammen,

für die Breite habe ich das so gemacht:

Delphi-Quellcode:

procedure HGGridColWidth(AGrid: TStringGrid; AMinWidth: Integer);
var
  liZ1: Integer;
  liZ2: Integer;
  liWidth: Integer;
  liTextWidth: Integer;
  liMaxWidth: Integer;
const
  ciWidthAdd = 5;
begin
  if (AMinWidth < 0) then
   begin
    AMinWidth := AGrid.DefaultColWidth;
   end;

  for liZ1 := 0 to (AGrid.ColCount -1) do
   begin // alle Spalten
    liMaxWidth := 0;
    for liZ2 := 0 to (AGrid.RowCount - 1 ) do
     begin // alle Zeilen
      liTextWidth := AGrid.Canvas.TextWidth(AGrid.Cells[liZ1, liZ2]);
      if (liTextWidth > liMaxWidth) then
       begin
        liMaxWidth := liTextWidth;
       end;
     end;

    if ((liMaxWidth + AGrid.GridLineWidth + ciWidthAdd) > AMinWidth) then
     begin
      liWidth := liMaxWidth + AGrid.GridLineWidth + ciWidthAdd;
     end
    else
     begin
      liWidth := AMinWidth;
     end;
    AGrid.ColWidths[liZ1] := liWidth;
   end;
end;

Das kann man mit ein bischen Fantasie auch problemlos auf die Zellenhöhe übertragen.

[Luckner]

Ja, dass habe ich mir schon gedacht, dass man Das von Hand programmieren muss. Also alle Zellen durchgehen, die höchste Zelle aussuchen und entsprechen die Zellhöhe, für alle setzen.

Danke.

[Luckner]

Hallo BadenPower,

Dein Beispiel ist ein guter Ansatz. Werde es entsprechend modifizieren. Danke.

Luckner.

[Luckner]

Hallo BadenPower,
mache mich gerade ran, Deine Routine für mich anzupassen, Brauche bitte noch einige Hinweise:
Was ist
AMinWidth: Integer
liZ1: Integer; (kann ich mir denken)
liZ2: Integer; (kann ich mir denken)
liWidth: Integer;
liTextWidth: Integer; (kann ich mir denken)
liMaxWidth: Integer;

Vor Allem AMinWith.

Danke.