[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