Zellen verbinden

[taaktaak]

Also, habe das mal nachgestellt:

Delphi-Quellcode:

procedure TfoTest05.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);

  var r: TRect;
begin
 if aRow=1 then
  if acol=1 then
   with TStringgrid(Sender) do begin

    R := Classes.Rect(Rect.Left+1,
                      Rect.Top - (Rect.Bottom - Rect.Top),
                      Rect.Right-1,
                      Rect.Bottom-1);

    Canvas.Brush.Color := clRed;
    Canvas.FillRect(R);
    DrawText(Canvas.Handle,
                 PChar('Hallo ich bin es, der hier was schreibt'), 
                 -1, 
                 R, 
                 DT_CENTER or DT_VCENTER or DT_wordbreak);
                 end;

                 sm('');


end;

Damit wird in Spalte 1 (also 2te) der Text in die beiden(!) Zellen der FixedRows (0+1)geschrieben. Ist aber der 3D-Effekt eaktiviert, dann wird dieser Effekt offenbar beim Zeichenen der nächsten Zell für die Zelle davor "gemalt" deswegen erscheint eine weiße Trennlinie im "zusammengeführten" Feld.

// hier mal ein kleines Bild vom Ergebnis