Zellen verbinden

[oki]

Grrr wieder roter Kasten

Die Textausgabe machst du mit DrawText. So wie schon geschrieben.

Ich mach noch mal den Code fertig.

So hier:

Delphi-Quellcode:

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

var r: TRect;
    MyStr : String;
begin
if aRow=1 then begin
  if acol=1 then begin
    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);
      MyStr := Cells[ACol, ARow-1];
      DrawText(Canvas.Handle,
               PChar(MyStr),
               -1,
               R,
               DT_CENTER or DT_VCENTER or DT_wordbreak);
    end;
  end;
end;