Как определить текущий TDBGrid.Row при событии DrawColumnCell?

← →
jeka_t (2006-03-10 15:40) [0]

Как определить текущий TDBGrid.Row при событии DrawColumnCell?
Необходимо узнать какой номер строки таблицы...

← →
Johnmen © (2006-03-10 15:53) [1]

Какой таблицы?

← →
jeka_t (2006-03-10 16:03) [2]

У меня есть компонент TDBGrid
И класс:
type THackGrid = class(TCustomGrid) public property RowHeights; end;
Хочу в оброботчик событий DrawColumnCell записать код:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var r: TRect; H: integer; begin DBGrid1.Canvas.FillRect(Rect); With Sender as TDBGrid do begin r:= Rect; H := DrawText(Canvas.Handle, PChar(Column.Field.Text), Length(Column.Field.Text),r, DT_WORDBREAK); end; THackGrid(DBGrid1).RowHeights[ARow] := H; end;
Вот только ARow где взять...
В TStringGrid есть такая перемення а в TDBGrid?

← →
Johnmen © (2006-03-10 16:10) [3]

Row

ЗЫ
Это всё не будет работать, ввиду принципиального непонимания....

← →
jeka_t (2006-03-10 16:21) [4]

почему?
если указывать так:
THackGrid(DBGrid1).RowHeights[<Индекс строки таблицы>] := H;
то работает...

← →
Crash Coredump © (2006-03-10 16:54) [5]

ARow это DataLink.ActiveRecord

← →
jeka_t (2006-03-10 17:01) [6]

Супер!
Получилось!
Спасибо всем...
Получился Многострочный TDBGrid!!!!

← →
Crash Coredump © (2006-03-10 17:11) [7]

> Получился Многострочный TDBGrid!!!!

Поздравляю! Код выложи ?

← →
jeka_t (2006-03-10 17:14) [8]

http://delphimaster.net/view/2-1141906227/

← →
jeka_t (2006-03-10 17:20) [9]

Правда работает при определённых условиях (когда одна колонка), но думаю, что можно постаратся и придумать полное решение...

← →
jeka_t (2006-03-10 17:24) [10]

Правильнее надо так:
if H > THackGrid(DBGrid1).RowHeights[ADOQuery1.RecNo]
then THackGrid(DBGrid1).RowHeights[ADOQuery1.RecNo] := H + 3;

Как определить текущий TDBGrid.Row при событии DrawColumnCell? Найти похожие ветки