doppelte Zeilenhöhe im Stringgrid

**Hansa**

Hi,

wie kann ich gemischt einfach- und doppelthohe Zeilen in einem Stringgrid realisieren ? Geht das überhaupt ? Ich habe mal folgendes probiert :

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

begin

  if (StringGrid1.Row mod 2 = 0) then begin

    StringGrid1.RowHeights [ARow] := StringGrid1.DefaultRowHeight*2;

    StringGrid1.Cells [2,StringGrid1.Row] := 'doppelt hoch';

  end

  else begin

    StringGrid1.RowHeights [ARow] := StringGrid1.DefaultRowHeight;

    StringGrid1.Cells [2,StringGrid1.Row] := 'einfach hoch';

  end;

  StringGrid1.RowCount:=StringGrid1.RowCount+1;

end;

Das wirkt sich allerdings auf das gesamte Grid aus. Es werden also alle Zeilen neu gezeichnet, abwechselnd einfach und doppeltt hoch. 8)

doppelte Zeilenhöhe im Stringgrid

doppelte Zeilenhöhe im Stringgrid

Forumregeln