TListView - Zellen verbinden

[Helmi]

Hallo,

vielleicht hilft dir dieser Link weiter

[Edit]
sorry - Missverständnis! - das hilft dir nicht wirklich weiter

[Edit2]

ich hätte noch diesen Beispiel-Code anzubieten:

Delphi-Quellcode:

procedure TForm3.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  x, y: Integer;
  Rect: TRect;

begin
  Sender.Canvas.Brush.Color := clRed;

  If Item.Selected then
    begin
      Sender.GridLines := false;
      Sender.Canvas.Brush.Color := clBlue;
      Sender.Canvas.Brush.Style := bsSolid;
    end;

  Rect := Item.DisplayRect(drBounds);
  y := Rect.Top;
  x := Rect.Left + 2;
//      Rect.Right := Rect.Left + Sender.Width - 10;

  Sender.Canvas.FillRect(Rect);
  Sender.Canvas.TextRect( Rect, x, y, Item.Caption );

  //
  DefaultDraw := false;
end;

Im nicht markierten Zustand Hintergrundfarbe rot, im markierten Zustand blau und dann ohne GridLines.
Dummerweise scheint es nicht ohne alle auszublenden zu funktionieren.