Also so klappt das jetzt schon, aber zwischen den Zellen is noch ein kleiner Strich, was hab ich noch fürn Fehler drin?
Delphi-Quellcode:
begin
if aRow=0 then
if acol=1 then
with sender as tstringgrid do begin
Rect.right := Rect.right + (Rect.right-rect.left);
Canvas.Brush.Color := clBtnFace;
Canvas.Brush.Style := bsSolid;
Canvas.FillRect( Rect );
end;
end;