Post by SkomorochPost by Rafal KubiakWitam
Czy jest jakiś prosty sposób na numerowanie wierszy dbgrida? Chodzi o taką
zwykłą liczbę porządkową, która po prostu ponumeruje wiersze. Googlałem
trochę, ale specjalnie nic nie ma. Da sie to zrobić?
Pozdrawiam
mysle, ze nie ma. grid co najwyzej moze po napisaniu odp.funkcji ponumerowac
wiersze, ktore wyswietla, o pozostalych z dataseta po prostu nie ma pojecia.
...add a Row Number in your DBGrid?
Autor: eko schuscanto
Homepage: http://www.schuscanto.com
[ Print tip ]
Tip Rating (42):
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1. create new blank field in dbgrid
2. rename the title with 'No'
3. put this code in OnDrawColumncell
4. Now your Grid has a row number
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataSource1.DataSet.RecNo > 0 then
begin
if Column.Title.Caption = 'No' then
DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top,
IntToStr(DataSource1.DataSet.RecNo));
end;
end;
begin 666 progressbar-grau.gif
M1TE&.#EA!P`.`,0``````/___]77]A8CS1LGSAXKSSQ'U45/UU%;VE9?VWA_
MXHV3YI"7YYJ?Z=#3]=W?^/___P``````````````````````````````````
M`````````````````````````"'Y! $``! `+ `````'``X```478"".9&F>
3P>.L3["^C@#/=$V[,.F@? @`.P``
`
end
begin 666 progressbar-blau.gif
M1TE&.#EA!P`.`+,``````/___]'3]>;G^A<DS20PT# \TEIDW%]HW'B XH&(
MY)&7Y]W?^/+S_/K[_O___R'Y! $```\`+ `````'``X```0B,,A)J[UA**1&
;$ 4A%LPAGD=X$H6Q$L;R+DYR)H[4" V&10`[
`
end