Einzelnen Beitrag anzeigen

Razor90

Registriert seit: 18. Jun 2008
80 Beiträge
 
#1

Zwei zellen quer verbinden

  Alt 27. Jun 2008, 14:46
Hallo, ein neuer Tag, ein neues Problem..
Ich möchte zwei zellen in einer stringgrid verbinden. Aber nur diese beiden Zellen, die nebeneinander sind [1,0] und [2,0].
Habe auch schon rumprobiert, aber leider mir dem ondrawcell keine erfahrung...vll könnt ihr mir weiterhelfen. hier mein ansatz
Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var R:TRect;


begin

    if aRow=0 then
    if acol=2 then
   with sender as tstringgrid do begin

      rect.left:= Rect.left-ColWidths[ACol];
    Canvas.Brush.Color := clBtnFace;
    Canvas.Brush.Style := bsSolid;
    Canvas.FillRect( Rect );
  end;
  end;

end.
  Mit Zitat antworten Zitat