Тема: Таблица
Показать сообщение отдельно
  #5  
Старый 01.06.2012, 12:50
zmicer zmicer вне форума
Прохожий
 
Регистрация: 01.06.2012
Сообщения: 6
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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.
Ответить с цитированием