TStringGrid - Zeile farbig markieren??

[Klaus Mulder]

Hallo zusammen,

kann mir jemand sagen was ich anstellen muss, damit in meinem bereits mit Daten gefüllten TStringGrid eine Zeile (aktuelle die den Fokus besitzt) farbig markieren kann.

Vielen Dank

[Mathias Simmack]

"OnDrawCell" heißt die Lösung. Beispielsweise:

<PRE>
procedure TMenuForm.sg2DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
hBmp : TBitmap;
r : TRect;
i : integer;
begin
if(gdSelected in State) then
begin
sg2.Canvas.Brush.Color := clHighlight;
sg2.Canvas.Font.Color := clHighlightText;
end
else
begin
sg2.Canvas.Brush.Color := clWindow;
sg2.Canvas.Font.Color := clWindowText;
end;
sg2.Canvas.FillRect(Rect);
sg2.Canvas.Textout(Rect.Left,(Rect.Bottom + Rect.Top - sg2.Canvas.TextHeight(sg2.Cells[ACol,ARow])) div 2,sg2.Cells[ACol,ARow]);
end;
</PRE>

Mathias