[firebase-br] OFF Topic - db_grid IBO
Roner Silva
oficiodosaber em gmail.com
Seg Jul 21 17:30:37 -03 2014
Verdade me desculpe, qualquer coisa a mais que possa ajudar posta ai.
Em 21 de julho de 2014 17:22, Washington <washington.ams em gmail.com>
escreveu:
> 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
>
> ______________________________________________
> 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
Mais detalhes sobre a lista de discussão lista