[zmicer]

Здравствуйте!
Подскажите пожалуйста, существует ли какой-нибудь способ сделать контрол в виде таблицы, чтобы в ней (допустим чётные) столбцы, отрисовывались с небольшим смещением (в половину ячейки) по вертикали? Т.е. не в одну строку. Может быть есть у listview или у data-grid метод который рисует сразу все ячейки?

Или тут проще не заморачиваться, а написать полностью свой контрол?

[M.A.D.M.A.N.]

Используй TDrawGrid.

[zmicer]

Да, "копаю" в сторону DrawGrid. Вот проблема в том, чтобы сделать мой вариант - нужно каким-то образом изменять аргумент <Rect: TRect> в методе <DrawCell>. Но это невозможно, т.к. он только для чтения...

Для наглядного примера, что мне нужно сделать:

[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;

вроде все честно

[zmicer]

Сообщение от 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.

[cotseec]

Код:

Rect:=Rect(NewTop ,NewLeft, NewRight, NewBottom);

посмотреть можно тут

[angvelem]

Сообщение от zmicer

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

OffsetRect

[zmicer]

Здравствуйте!
Ребята, всё перепробовал, но так ничего и не получается. <InflateRect> работает, но меняет только ширину и высоту. Конструктор TRect сразу отпадает. <OffsetRect> не работает.
Сегодня начал перебирать метод <DrawCells> в файле Grids.pas - похоже другого пути у меня нет.

[NumLock]

чтобы отрисовывать как на рисунке нужно "одну" ячейку рисовать сразу в двух.

[angvelem]

Грид с объединяемыми ячейками данных