Tenho a seguinte rotina para alterar a cor do DBGrid, quando a categoria do cadastro for 'Conveniado'.
procedure TF_Cadastrados.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if not (gdSelected in State) then Begin
if DM1.Tb_Cadastrados.FieldByName ( 'SAU_CATEG' ).AsString = 'Conveniado' then begin
DBGrid1.Canvas.Brush.Color := clYellow ;
DBGrid1.Canvas.FillRect ( Rect ) ;
DBGrid1.DefaultDrawDataCell ( Rect, Column.Field, State ) ;
end;
end;
end;
Está funcionando normalmente, porém os campos que estavam centralizados perdem o alinhamento, ficando as strings alinhadas à esquerda, e os numéricos alinhados à direita.
Como fazer para manter o alinhamento centralizado ?
Pergunta
Bettega
Boa tarde.
Tenho a seguinte rotina para alterar a cor do DBGrid, quando a categoria do cadastro for 'Conveniado'.
procedure TF_Cadastrados.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if not (gdSelected in State) then Begin
if DM1.Tb_Cadastrados.FieldByName ( 'SAU_CATEG' ).AsString = 'Conveniado' then begin
DBGrid1.Canvas.Brush.Color := clYellow ;
DBGrid1.Canvas.FillRect ( Rect ) ;
DBGrid1.DefaultDrawDataCell ( Rect, Column.Field, State ) ;
end;
end;
end;
Está funcionando normalmente, porém os campos que estavam centralizados perdem o alinhamento, ficando as strings alinhadas à esquerda, e os numéricos alinhados à direita.
Como fazer para manter o alinhamento centralizado ?
Obrigado.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.