Показать сообщение отдельно
  #8  
Старый 05.04.2011, 12:07
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

в гриде создаешь столбец в котором у тебя будет нумерация. И обзываешь (свойство 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 постаить
Ответить с цитированием