Fórum TDBGRID Delphi XE8 #535449
24/10/2015
0
o estranho é que quando eu minimizo e abro de novo ele abre normal.
[img:descricao=BUG]http://s10.postimg.org/up2ezczuh/bug_tdbgrid_fw.png[/img]
Se alguém puder ajudar agradeço.
Luis Dantas
Curtir tópico
+ 0Posts
24/10/2015
Marco Salles
Gostei + 0
24/10/2015
Luis Dantas
procedure TfrmClientes.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if odd(ClientDataSet1.RecNo) then
DBGrid1.Canvas.Brush.Color:= clSkyBlue
else
DBGrid1.Canvas.Brush.Color:= clWhite;
TDbGrid(Sender).Canvas.font.Color:= clBlack;
if gdSelected in State then
with (Sender as TDBGrid).Canvas do
begin
Brush.Color := clSilver;
FillRect(Rect);
Font.Style := [fsbold]
end;
TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);
end;Ta aí amigo
Gostei + 0
24/10/2015
Marco Salles
seguindo alguns relatos :
Gostei + 0
24/10/2015
Marco Salles
seguindo alguns relatos :
Gostei + 0
24/10/2015
Luis Dantas
Obrigado
Gostei + 0
24/10/2015
Marco Salles
Gostei + 0
24/10/2015
Marco Salles
Gostei + 0
24/10/2015
Luis Dantas
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)