Zellen verbinden

[Razor90]

ownerdraw...kA was das ist.. DeddyH hat mir schon geholfen:

Delphi-Quellcode:

begin
  if (ARow=1) then //Zeilen 1 und 2 verbinden
    with Sender as TStringGrid do
      begin

        R := Classes.Rect(Rect.Left,
                          Rect.Top - (Rect.Bottom - Rect.Top),
                          Rect.Right,
                          Rect.Bottom);
        Canvas.Brush.Color := clRed;
        Canvas.FillRect(R);
        DrawText(Canvas.Handle,
                 PChar(Cells[ACol, ARow]),
                 -1,
                 R,
                 DT_CENTER or DT_VCENTER or DT_SINGLELINE);
      end;
end;

nur leider erscheint jetzt kein Text mehr... Jmd ne Idee???