Еще раз о номере записи 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.

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

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