Stringgrid, Zeile automatisch an Textgrösse anpassen

[BadenPower]

Hallo zusammen,

ich dachte eigentlich bisher, dass die Variabeln selbsterklärend sind, wenn man sich den Sourcecode durchschaut.

"liZ1" und "liZ2" sind reine Zählervariabeln für die Schleifen.

"liTextWidth" ist der gerade ermittelte Wert der Länge des Textes der Zelle[liZ1,liZ2]

In "liMaxWidth" wird der größte Wert von "liTextWidth" einer Spalte gespeichert

Mit AMinWidth kannst Du festlegen wie breit die Spalte auf jeden Fall sein soll.

"liWidth" ist dann die Breite der Spalte, welche ins Grid gesetzt wird. Entweder AMinWidth oder liMaxWidth, je nach dem was größer ist.

[Luckner]

Hallo, habe mir zu diesem Thema 3 folgende Routinen gestrickt (irgendwo im Internet gefunden und angepasst)

Delphi-Quellcode:

procedure TFrameAuftrag.GridPositionenDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var s: String;
begin
  if Sender = nil then
    Exit;
  if not (Sender is TJvStringGrid) then
    Exit;

  with Sender as TJvStringGrid do
    begin
      s := Cells[ACol, ARow];
    //  Canvas.Brush.Color := Farbe;
      Canvas.FillRect(Rect);
      GrowRect(Rect, -2);
      UpdateRowHeight(Sender as TJvStringGrid, ARow, DrawText(Canvas.Handle, PChar(s), Length(s), Rect, DT_WordBreak) + 4);
    end;
end;

procedure TFrameAuftrag.GrowRect(var Rect: TRect; const pixel: Integer);
begin
Dec(Rect.Left, pixel);
Inc(Rect.Right, pixel);
Dec(Rect.Top, pixel);
Inc(Rect.Bottom, pixel);
end;

procedure TFrameAuftrag.UpdateRowHeight(sg: TStringGrid; const iRow, iHeight: Integer);
begin
with GridPositionen do
if iHeight > RowHeights[iRow] then
   RowHeights[iRow] := iHeight;
end;

Jetzt werden die Zeilen im Grid höher, wenn der Inhalt der Zelle mehr wird, jedoch nicht kleiner, wenn der Inhalt weniger wird. Es funktioniert jedoch, wenn ich das Programm neu starte, wird die Zeilenhöhe wieder korrekt dargestellt. Hat Jemand eine Idee, was ich noch hier ändern müsste?

Danke, Luckner

[DeddyH]

Zitat:

Delphi-Quellcode:

procedure TFrameAuftrag.UpdateRowHeight(sg: TStringGrid; const iRow, iHeight: Integer);
begin
with GridPositionen do
if iHeight > RowHeights[iRow] then
   RowHeights[iRow] := iHeight;
end;

1. Wozu der Parameter sg, wenn Du doch auf GridPositionen zureifst?
2. Du sagst, was passieren soll, wenn iHeight > Zeilenhöhe ist, aber nicht, was passieren soll, wenn nicht.

[Luckner]

Hallo DeddyH,
1 sg habe ich geändert.

Jetzt meine Änderung in der Routine, die irgendwie ein blinkendes Grid nach sich zieht.

Delphi-Quellcode:

procedure TFrameAuftrag.UpdateRowHeight(GridPositionen: TStringGrid; const iRow, iHeight: Integer);
begin
with GridPositionen do
if iHeight > RowHeights[iRow] then
   RowHeights[iRow] := iHeight
else if iHeight < RowHeights[iRow] then
   RowHeights[iRow] := iHeight;
end;

Das ist nicht unbedigt klug von mir gewesen. Aber mehr fällt mir jetzt nicht ein. Diese Grid-Routinen (Formatierungen) kappier ich überhaupt nicht. Eine kleine Hilfe bitte.

[Jumpy]

Das läßt sich jetzt aber zusammenfassen zu:

Delphi-Quellcode:

procedure TFrameAuftrag.UpdateRowHeight(GridPositionen: TStringGrid; const iRow, iHeight: Integer);
begin
  GridPositionen.RowHeights[iRow] := iHeight
end;

Ob das so gewollt ist?

[Luckner]

Hallo Jumpy,

das funktioniert nicht. Grid ist immer 1-Zeilig und blinkt ständig.

[BadenPower]

Zitat von Luckner:

Hallo Jumpy,
das funktioniert nicht. Grid ist immer 1-Zeilig und blinkt ständig.

Das ist ja logisch, dass das "blinken" muss, denn Du ermittest in der DrawCell-Methode immer nur die Höhe der aktuellen Zelle.

Danach setzt Du in UpdateRowHeights die Property RowHeight auf den ermittelten Wert der aktuellen Zelle, was wiederum ein Neuzeichnen aller Zellen der Zeile hervorruft.

Du musst bevor Du RowHeight einen Wert zuweist, erst ermitten, welche Zelle der ganzen Zeile den höchsten Wert hat und DIESEN Wert dann nehmen.