procedure TfrmInStore.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
nRowTimes,nColTimes,nColWidth:integer;
begin
if (arow=1) and (acol=0) then
begin
StringGrid1.Canvas.Brush.Color:=clwhite;
stringgrid1.Canvas.Font.Color :=clblack ;
StringGrid1.Canvas.FillRect(stringgrid1.CellRect(acol,arow));
stringgrid1.Canvas.TextOut(rect.Left,rect.Top,stringgrid1.Cells[acol,arow]) ;
end;
end
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if not TStringGrid(Sender).Focused
and not (gdFixed in State) then
begin
TStringGrid(Sender).Canvas.Brush.Color := clWhite;
TStringGrid(Sender).Canvas.FillRect(Rect);
end;
end;