какойто у меня прикол с OnDrawGrid в Delphi XE
на 7ке все норм работало не мойму в чем дело закрашивает с отступом вправо на пару пикселей...
текст стандартный
procedure TfmMain.StringGrid4DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ARow>0) and (not (gdSelected in State)) then
begin
with StringGrid4 do
begin
Canvas.Brush.Color:=cllime;
Canvas.FillRect(Rect);
end;
end;
end;
|