Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.035 c
2-1142056505
The X
2006-03-11 08:55
2006.03.26
Ввод даты в поле Date.


2-1141226299
KyRo
2006-03-01 18:18
2006.03.26
Ado Table


4-1136589218
zaN0za
2006-01-07 02:13
2006.03.26
Вопрос по Native API


15-1141110019
forb
2006-02-28 10:00
2006.03.26
Ищется программист для написания программы для курсовой работы


1-1140277657
Игорь Степанов
2006-02-18 18:47
2006.03.26
Вывод bitmap-изображения на канву компонента Image





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский