Цитата:
Сообщение от NumLock
Код:
TDrawGrid = class(TCustomDrawGrid)
TCustomDrawGrid = class(TCustomGrid)
private
FOnDrawCell: TDrawCellEvent;
TDrawCellEvent = procedure (Sender: TObject; ACol, ARow: Longint;
Rect: TRect; State: TGridDrawState) of object;
Код:
type
TForm1 = class(TForm)
DrawGrid1: TDrawGrid;
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
...
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
InflateRect(Rect, 10, 10);
end;
вроде все честно
|
Да, что-то близкое

<InflateRect> меняет только ширину и высоту прямоугольника. Вот бы как-нибудь изменить положение x и y.