[firebase-br] OFF Topic - db_grid IBO

[Roner Silva]

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