| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

jeka_t ©   (2006-03-10 15:40:00) 

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

---

jeka_t   (2006-03-10 17:24:00) [1]

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

---

jeka_t   (2006-03-10 17:20:00) [2]

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

---

jeka_t   (2006-03-10 17:14:00) [3]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1141906227&n=18

---

Crash Coredump   (2006-03-10 17:11:00) [4]

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


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

---

jeka_t   (2006-03-10 17:01:00) [5]

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

---

Crash Coredump   (2006-03-10 16:54:00) [6]

ARow это DataLink.ActiveRecord

---

jeka_t   (2006-03-10 16:21:00) [7]

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

---

Johnmen   (2006-03-10 16:10:00) [8]

Row

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

---

jeka_t   (2006-03-10 16:03:00) [9]

У меня есть компонент 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 15:53:00) [10]

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

---

Наверх