Fórum Colorir o DbGrid quando parcela estiver em atraso. #288103
14/07/2005
0
Pessoal,
estou colocando no evento OnDrawColumnCell o seguinte codigo.
Ele está colorindo a linha perfeitamente. O problema é que nesse momento eu ele perde todas as caracteristicas da fonte que está configurada no DbGrid. Cor, tamanho, alinhamento.
Tem como eu colorir o Grid sem perder essas configurações?
Obrigado.
estou colocando no evento OnDrawColumnCell o seguinte codigo.
if Status = ´Atrasado´ then Canvas.Font.Color := clRed else Canvas.Font.Color := clBlue DefaultDrawDataCell(Rect, Column.Field, State);
Ele está colorindo a linha perfeitamente. O problema é que nesse momento eu ele perde todas as caracteristicas da fonte que está configurada no DbGrid. Cor, tamanho, alinhamento.
Tem como eu colorir o Grid sem perder essas configurações?
Obrigado.
Yallebr
Curtir tópico
+ 0
Responder
Posts
15/07/2005
Araujojunior
Eu faço assim :wink:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const
Rect: TRect;
DataCol: Integer;
Column: TColumn;
State: TGridDrawState);
begin
if (Column.Field.FieldName = ´NOMEDOCAMPO´) then
begin
if condição then // coloque aqui sua condição
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const
Rect: TRect;
DataCol: Integer;
Column: TColumn;
State: TGridDrawState);
begin
if (Column.Field.FieldName = ´NOMEDOCAMPO´) then
begin
if condição then // coloque aqui sua condição
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
Responder
Gostei + 0
15/07/2005
Bruno Belchior
é mais exatamente nessa linha [b:2aea2490ba]DBGrid1.Canvas.FillRect(Rect)[/b:2aea2490ba] a grid perde toda a formatação original do Sistema Operacional...
Responder
Gostei + 0
16/07/2005
Bruno Belchior
sobe...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)