Hmm..
Hab das mal bei mir nachgebaut:
Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if not odd(aCol) and not (gdFixed in State) then
TStringGrid(Sender).Canvas.Brush.Color := TColor($D9D9C0);
if (ARow = 5) then
TStringGrid(Sender).Canvas.Brush.Color := TColor($FFCC99);
TStringGrid(Sender).Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, TStringGrid(Sender).Cells[ACol, ARow]);
end;
Das macht bei mir, dass was Du willst...
das
Canvas.TextRect(
habe ich übringens direkt aus dem Default DrawCell genommen...