Главная страница
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.023 c
3-1100166372
denis24
2004-11-11 12:46
2004.12.12
insert into....select f1,f2....


6-1096735381
Хтз
2004-10-02 20:43
2004.12.12
Как включить или выключить сетвевой интерфейс???


14-1101333145
Труп Васи Доброго
2004-11-25 00:52
2004.12.12
Citrix


1-1101817874
Erik1
2004-11-30 15:31
2004.12.12
Как отправить сообщение всем активным формам, одного класса?


1-1101488782
denis24
2004-11-26 20:06
2004.12.12
форма по вводу пароля и создание основной