Скачать: CL | DM;

Как определить текущий 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c