procedure TForm1.KOLFormFormCreate(Sender: PObj);
var
 j,i:integer;
begin
for j:=0 to StGrd1.RowCount-1 do
for i:=0 to StGrd1.ColCount-1 do
if j mod 2=0 then
 StGrd1.Cells[j,i]:='Текст' else
 StGrd1.Cells[j,i]:='Текст';
end;

procedure SelCells(DC:hDC; TextRect:Trect; Text:string);
var
 Brush,BrushOld:hBrush;
 Pen,PenOld:hPen;
begin
//Заливка
  Brush := GetSysColorBrush(COLOR_BACKGROUND);
  BrushOld := SelectObject(DC, Brush);
  FillRect(DC,TextRect,0);
  DrawText(DC,PChar(Text),Length(Text),
               TextRect,DT_SINGLELINE or DT_LEFT or DT_NOPREFIX);
  SetBkMode(DC, TRANSPARENT);
  SelectObject(DC, BrushOld);
  DeleteObject(Brush);
//Рамка
  Pen := CreatePen(PS_DOT, 1, RGB(0, 0, 0));
  PenOld := SelectObject(DC, Pen);
  RectAngle(DC, TextRect.Left,TextRect.Top,
                TextRect.Right,
                TextRect.Bottom);
  SetBkMode(DC, TRANSPARENT);
  SelectObject(DC, PenOld);
  DeleteObject(Pen);
end;

procedure TForm1.StGrd1DrawCell(Sender: PControl; Cnv: PCanvas; ACol,
 ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 FillRect(Cnv.Handle,Rect,GetSysColorBrush(COLOR_BTNFACE));
 case ARow mod 3 of
    0:Cnv.Font.Color:=ClBlack;
    1:Cnv.Font.Color:=ClRed;
    2:Cnv.Font.Color:=ClBlue;
 end;
 if gdFixed in State then
 begin
   SetBkMode(cnv.Handle,TRANSPARENT);
   Cnv.TextOut(Rect.Left,Rect.Top,PStGrd(Sender).Cells[ACol,ARow])
 end else
   Cnv.TextRect(Rect,Rect.Left,Rect.Top,PStGrd(Sender).Cells[ACol,ARow]);
 if gdFocused in State then
   // InvertRect(cnv.Handle,Rect);
    SelCells(cnv.Handle,Rect,PStGrd(Sender).Cells[ACol,ARow]);
end;