Fórum Número da linha no DbGrid #336966
30/01/2007
0
ola Pessoal,
Criei um método o qual lista o numero/indice de cada linha, ate ia tudo bem...
o problema eh q quando navego ele se perde...ou seja...ele soh mostra os
valores/indice de cada linha q eh visivel....
TMyGrid = class(TDBGrid);
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Str : String;
begin
if (DataCol = 0) then
with TMyGrid(DBGrid1) do
begin
Str := Inttostr(TDataLink(DataLink).ActiveRecord);
Canvas.TextOut((Rect.Right - Canvas.TextWidth(Str)) - 30, Rect.Top, Str);
end;
end;
alguem sabe se como posso fazer para numerar todas minhas linhas no dbgrid?
vlw
Criei um método o qual lista o numero/indice de cada linha, ate ia tudo bem...
o problema eh q quando navego ele se perde...ou seja...ele soh mostra os
valores/indice de cada linha q eh visivel....
TMyGrid = class(TDBGrid);
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Str : String;
begin
if (DataCol = 0) then
with TMyGrid(DBGrid1) do
begin
Str := Inttostr(TDataLink(DataLink).ActiveRecord);
Canvas.TextOut((Rect.Right - Canvas.TextWidth(Str)) - 30, Rect.Top, Str);
end;
end;
alguem sabe se como posso fazer para numerar todas minhas linhas no dbgrid?
vlw
Fernando Piccini
Curtir tópico
+ 0
Responder
Posts
31/01/2007
Acacio
Não tem tem como pegar o numero de linhas pelo dbgrid, mas pode pegar o recordcount da tabela ou da query que tiver lincada ao dbgrid. Só que isso pode deixar a consulta muito lenta.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)