[gebs]

Здравствуйте. Помогите сделать отчёт с нумерацией строк.
Сейчас это выглядит так


Отчёт формируется так:

Код:

...
PrinterPreview.Previewer.ViewMode:=vm150;
PrintDBGridEh_orgastat.Preview;
...

Свойство грида ShowRecNo=true но в отчёт нумерация не попадает:

Если можно поделитесь правильным кодом или наведите на путь истинный. Спасибо.

[Pilot_Red]

Я бы не стал придумывать велосипед а использовал бы готовые построители отчетов например FastReports или RaveReports.

[gebs]

Сообщение от Pilot_Red

Я бы не стал придумывать велосипед а использовал бы готовые построители отчетов например FastReports или RaveReports.

Но: на событии OnGetCellParams в новом созданном столбце делаем:

Код:

...
if (DataModule10.MyQ_orgstat.RecNo > 0) then
Params.Text:= IntToStr(DataModule10.MyQ_orgstat.RecNo);
...

При этом в отчёте появляется нумерация в вгриде нет. Я так понимаю надо на событии в гриде OnDrowDataCell что-то сделать...

[Pilot_Red]

Сообщение от gebs

Но: на событии OnGetCellParams в новом созданном столбце делаем:

Код:

...
if (DataModule10.MyQ_orgstat.RecNo > 0) then
Params.Text:= IntToStr(DataModule10.MyQ_orgstat.RecNo);
...

При этом в отчёте появляется нумерация в вгриде нет. Я так понимаю надо на событии в гриде OnDrowDataCell что-то сделать...

так я не понимаю, тебе в гриде нужна нумерация, или в самом отчете???

[gebs]

Сообщение от Pilot_Red

так я не понимаю, тебе в гриде нужна нумерация, или в самом отчете???

Ну в отчёте я уже сделал, осталось в гриде.

[Pilot_Red]

в гриде... можно конечно использовать DrawColumnCell. и в нем чисто recNo отрисовывать. Но этот фокус прокатит, если у тебя таблица будет выводится в чистом виде, без всяких фильтров, т.к. может получиться такое
............
1
2
3
4
10
11
55
56
57

[gebs]

Сообщение от Pilot_Red

в гриде... можно конечно использовать DrawColumnCell. и в нем чисто recNo отрисовывать. Но этот фокус прокатит, если у тебя таблица будет выводится в чистом виде, без всяких фильтров, т.к. может получиться такое
............
1
2
3
4
10
11
55
56
57

Фильтры не планируется использовать, может кто поделится примером кода для DrawColumnCell?

[Pilot_Red]

в гриде создаешь столбец в котором у тебя будет нумерация. И обзываешь (свойство Title ) его например №п.п.

далеев DrawColumnCell прописываешь

Код:

if Column.Title.Caption='№п.п.' then
begin
DbGrid.Canvas.FillRect(rect);
DbGrid.Canvas.TextOut(rect.Left,rect.Top,Inttostr(DbGrid.DataSource.DataSet.RecNo)); 
end
else
DbGrid.DefaultDrawColumnCell(rect,datacol,column,state);

и не забудь свойство грида DefaultDrawing =false постаить

[Black Raider]

А можно в набор добавить вычесляемое поле еще...

[Pilot_Red]

Сообщение от Black Raider

А можно в набор добавить вычесляемое поле еще...

как вариант. Но по-моему сточки зрения оптимизэйшн ручная отрисовка побыстрее будет. Так как вычисляемое поле вычисляется по всей таблице, а отрисовка происходит только по ее видимой части грида.