[firebase-br] OFF Topic - db_grid IBO

Washington washington.ams em gmail.com
Seg Jul 21 17:22:54 -03 2014


Olá Roner

Infelizmente no IBO, não tem a propriedade DrawColumnCell. Se tivesse 
funcionaria corretamente, pois no grid nativo do delphi já utilizo algo 
parecido.

Atenciosamente

#######################
Washington A. Muller da Silva
http://wvoleibol.blogspot.com
washington.ams em gmail.com
#######################
-----Mensagem Original----- 
From: Roner Silva
Sent: Monday, July 21, 2014 4:51 PM
To: FireBase
Subject: Re: [firebase-br] OFF Topic - db_grid IBO

Tenta issa rotina ai e me diz se é isto que vc quer



procedure TCONSULTA.DBG_ITEMDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if Q_ITM_PTOT_I.AsFloat = 0
then
begin
DBG_ITEM.DefaultDrawing := true;
DBG_ITEM.Canvas.Font.Color:= clRed;
DBG_ITEM.DefaultDrawDataCell(Rect, DBG_ITEM.columns[datacol].field, State);
end
else
begin
DBG_ITEM.DefaultDrawing := false;
DBG_ITEM.Canvas.Font.Color:= clSilver;
DBG_ITEM.DefaultDrawDataCell(Rect, DBG_ITEM.columns[datacol].field, State);

end;
end;



Em 21 de julho de 2014 16:29, Washington <washington.ams em gmail.com>
escreveu:

> Caros colegas
>
> Já li aqui na lista sobre pintar as linhas do db grid do IBO de acordo com
> uma condição, mas ainda não encontrei a solução. Alguém achou alguma forma
> de fazer isto ?
>
> Abaixo a minha rotina, colocada no evento ONGetCellProps, mas o problema
> que ao clicar no grid ele pinta o grid inteiro com a cor da condição.
>
>
> procedure TfmAgenda.IB_GridAgendaGetCellProps(Sender: TObject; ACol,
>   ARow: Integer; AState: TGridDrawState; var AColor: TColor; AFont: 
> TFont);
> begin
>      if dmDados.IB_qryAgenda.BufferRowNum > 0 then
>         begin
>            if dmDados.IB_qryAgenda.FieldByName('pac_codigo').asInteger = 1
> then    // para mostrar em vermelho o horário cancelado.
>               begin
>                  AColor:= clRed;
>                  AFont.Color:= clWhite;
>               end
>            else
>               begin
>                  if
> dmDados.IB_qryAgenda.FieldByName('age_comparecido').asString = 'S' then
>                     begin
>                       AColor:= clGreen;
>                       AFont.Color:= clWhite;
>                     end
>                  else
>                     begin
>                       AColor:= clWindow;
>                       AFont.Color:= clBlack;
>                     end;
>               end;
>         end;
> end;
>
> Atenciosamente
>
> #######################
> Washington A. Muller da Silva
> http://wvoleibol.blogspot.com
> washington.ams em gmail.com
> #######################
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 
Att,

Roner
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use: 
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa 





Mais detalhes sobre a lista de discussão lista