DBGrid,por em Negrito o Registro Selecionado como faço isso?
11/04/2006
0
:roll: :?:
Hviana
Posts
11/04/2006
Aureliovs
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in State then begin DBGrid1.Canvas.Font.Style := [fsBold]; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); end; end;
Um abraço
t+
11/04/2006
Hviana
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in State then begin DBGrid1.Canvas.Font.Style := [fsBold]; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); end; end;
VALEU KRA RESOLVEU!!!! BRIGADU
29/04/2012
Eniorm
Meu caso eu tenho uma tabela de localizações, e na tabela de clientes eu tenho um campo que guarda o codigo da localização (fk), e no form do cadastro de clientes, eu seleciono a localização no dbgrid.
Baseado na explicação desse tópico, adaptei o código para que, a linha do grid cujo código seja igual ao gravado na tabela do cliente, fique em negrido.
Assim eu tenho destacado qual é a localização escolhida para o cliente.
if (SCDS_Localizacao.FieldByName(codigo).AsInteger = CDS_Cliente.FieldByName(cod_localizacao).AsInteger) then
DBGrid2.Canvas.Font.Style := Font.Style + [fsBold];
DBGrid2.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;
01/06/2020
Nomad
[code:1:c44c50e91b]procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if gdSelected in State then
begin
DBGrid1.Canvas.Font.Style := [fsBold&93;;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;[/code:1:c44c50e91b]
Um abraço
t+
Boa noite!
Utilizando o componente Resultados da pesquisa TDBAdvGrid, não dá certo... Algm saberia como pode ser feito nesse componente?
Obrigado!
Clique aqui para fazer login e interagir na Comunidade :)