Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Еще раз о номере записи dataset а в onDrawColumnCell DBGrid а   Найти похожие ветки 

 
SergP ©   (2004-11-10 09:12) [0]

Подобная ветка уже была, но как потом оказалось ее цели не были достигнуты.
Смысл в том что нужно в гриде сделать колонку в которой бы отображался номер записи по гриду или датасету.

procedure TForm3.DBGridEh1DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumnEh;
 State: TGridDrawState);
var
 i:integer;
begin
 i:=TDBGridEh(sender).DataSource.DataSet.RecNo;
 if datacol=0 then TDBGridEh(sender).Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, inttostr(i));
end;

Если делать так то вроде бы все работает, но при переводе датасета в режим Insert  возникает неприятный эффект: Во всех строках нужной колонки отображаются "-1".

Если же делать так как мне предложили в педыдущей ветке, т.е. использовать
TMyGrid(sender).datalink.ActiveRecord        
(при этом объявив в этом же модуле TMyGrid наследником TDBGrid (в моем случае TDbGridEh, но это не важно))
то тоже все поначалу вроде бы прекрасно работает, пока количество записей не превысит то что может одновременно отображаться в gride, после чего тоже начинают наблюдаться неприятные вещи при скроллинге, связаные с тем что TMyGrid(sender).datalink.ActiveRecord возвращает не абсолютный номер строки в гриде а относительный (относительно первой отображаемой записи датасета).

Кто может предложить решение этой проблемы?


 
stud ©   (2004-11-10 12:37) [1]

а смысл подобной операции?


 
Johnmen ©   (2004-11-10 12:52) [2]

Заведи вычисляемое поле, значение которого RecNo. Тогда не надо самому рисовать...
А смысл, действительно, неясен...


 
SergP ©   (2004-11-10 21:08) [3]


> [1] stud ©   (10.11.04 12:37)
> а смысл подобной операции?


Не беспокойтесь за смысл. Он есть...


> [2] Johnmen ©   (10.11.04 12:52)
> Заведи вычисляемое поле, значение которого RecNo.


А пример можно как завести такое поле? Т.е. я не совсем представляю как сделать вычисляемое поле, значение которого RecNo.


 
Johnmen ©   (2004-11-10 21:41) [4]

Calculated поле в наборе данных.
В событии OnCalcFields - DataSet["YourCalcFieldName"]:=DataSet.RecNo;



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

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
1-1101646595
Vitiy
2004-11-28 15:56
2004.12.12
Глюк с перегруженными операторами !!!


1-1101472948
Dush
2004-11-26 15:42
2004.12.12
Объявление процедур


14-1101007383
Александр1
2004-11-21 06:23
2004.12.12
Глюк windows 2003


1-1101453334
hgd
2004-11-26 10:15
2004.12.12
Программа без формы


3-1100503339
snake1977
2004-11-15 10:22
2004.12.12
union для стандартного алиаса