Subject | IB_Grid line color |
---|---|
Author | pazeder |
Post date | 2006-03-16T14:02:02Z |
Hi !!
I need to color the Tib_grid, but i can't.
I tried to use the same method for the delphi Tdbgrid components,
but its not working because i think it's missing something
the method im using is:
-- portuguese--
estou precisando colorir uma lihna da TIB_Grid, porem não estou
conseguindo. Tentei ultilizar o mesmo metodo para o componente
Tdbgrid do delphi mas não funciona, acredito que por falta de algum
evento, o metodo que ultilizo para a Tdbgrid é este
--------------------------------------------------------------------
Procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:
TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if iboquery1.FieldByName('vencimento').AsDateTime < date
then begin
dbgrid1.canvas.Brush.Color:=$002EC9FC;
dbgrid1.DefaultDrawDataCell(Rect,dbgrid1.Columns
[datacol].Field,State);
end;
end;
--------------------------------------------------------------------
Thanks for your help.
obrigado pela ajuda
Eder Paz
+55(19)3935-6731
eder.firebird@...
I need to color the Tib_grid, but i can't.
I tried to use the same method for the delphi Tdbgrid components,
but its not working because i think it's missing something
the method im using is:
-- portuguese--
estou precisando colorir uma lihna da TIB_Grid, porem não estou
conseguindo. Tentei ultilizar o mesmo metodo para o componente
Tdbgrid do delphi mas não funciona, acredito que por falta de algum
evento, o metodo que ultilizo para a Tdbgrid é este
--------------------------------------------------------------------
Procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:
TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if iboquery1.FieldByName('vencimento').AsDateTime < date
then begin
dbgrid1.canvas.Brush.Color:=$002EC9FC;
dbgrid1.DefaultDrawDataCell(Rect,dbgrid1.Columns
[datacol].Field,State);
end;
end;
--------------------------------------------------------------------
Thanks for your help.
obrigado pela ajuda
Eder Paz
+55(19)3935-6731
eder.firebird@...