..:: MyTolga ::..
********************************************************************************
procedure TFrmTest.sgGCMDrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
const
CharOffset = 3; {Keep away from the edge of the rect.}
begin
with sgGCM.Canvas do
begin
{ Change the color of the first column to red }
if Col = 0 then begin
font.color := clRed;
textout(rect.left + CharOffset, rect.top + CharOffset, sgGCM.Cells[Col,Row]);
end;
end;
end;