[firebase-br] RES: OFF Topic - db_grid IBO

[Joel do Prado Junior]

Veja se te ajuda.

http://pastebin.com/zLfAmDLG

Em 21/07/2014 17:39, Washington escreveu:
>
> Caro Gladiston
>
> Foi exatamente o que fiz, procurei nos exemplos do IBO, no site, mas 
> as respostas apontam para o ongetcellprops.
>
> No caso do grid, utilizo o TIB_grid, neste caso, como vc mesmo 
> mencionou, só conecta as classes do IBO, e todas as demais, pelo menos 
> até o momento, não funciona com o mesmo.
>
> Estou tentando aqui, mas até agora nada, a mais de uma semana, recorri 
> a lista, no último caso.
>
> Atenciosamente
>
> #######################
> Washington A. Muller da Silva
> http://wvoleibol.blogspot.com
> washington.ams em gmail.com
> #######################
> -----Mensagem Original----- From: Gladiston Santana
> Sent: Monday, July 21, 2014 5:25 PM
> To: FireBase
> Subject: Re: [firebase-br] RES: OFF Topic - db_grid IBO
>
> Use os exemplos que acompanham o IBO para você aprender a usar seus
> componentes.
> Os componentes IBO* são compativeis com TDataset, assim não tem 
> diferença.
> Se estiver usando grid com herança TIB_*, este sim só se conecta as 
> classes
> do IBO, neste caso, um TIB_Grid seria mais ou menos assim:
> procedure TFormMAIN.GradePesquisaDrawCell(Sender: TObject; ACol,
>  ARow: Integer; Rect: TRect; State: TGridDrawState);
> begin
>  with (Sender as TIB_Grid) do
>  begin
>    if (gdSelected in State) or (gdFocused in State) then
>    begin
>      Canvas.Brush.Color := clBlue;
>      Canvas.Font.Color := clWhite;
>    end
>    else
>    begin
>     if (not DoExibeAtivas.Checked) and (PesquisaSQL.Active) and
> (PesquisaSQL.BufferFieldByName('status').AsString='A')
>     then Canvas.Brush.Color := ZebraAberto.Color
>     else
>      begin
>        if Odd(ARow)
>        then Canvas.Brush.Color := Zebra1.Color
>        else Canvas.Brush.Color := Zebra2.Color;
>      end;
>    end;
>
> DefaultDrawCell(acol,arow,rect,state,GetCellDisplayText(acol,arow),taLeftJustify);// 
>
> (rect,column.field,state);
>  end;
> end;
>
> Como eu uso, o mesmo evento para mil e uma coisa, faço uso massivo de
> Sender.
> Os grids do ibo são mais programáveis, por exemplo, mudar um texto S/N 
> para
> Sim ou Não usando o DefaultDrawCell dele é direto, sem usar campo 
> calculado
> ou colunas virtuais.
>
>
> Em 21 de julho de 2014 16:50, Felix - SOL Informática 
> <felix em solsistemas.com
>> escreveu:
>
>> procedure TFm_PesqCartao.DBGrid1DrawColumnCell(Sender: TObject;  const
>> Rect:
>> TRect; DataCol: Integer; Column: TColumn;  State: TGridDrawState);
>> begin
>>    if (TabelaSituacao.AsString = 'Ativo') then
>>       DBGrid1.Canvas.brush.Color := $00FFD6D2
>>    else
>>       if (TabelaSituacao.AsString = 'Quitado') then
>>          DBGrid1.Canvas.brush.Color := $00D9FFDB
>>       else
>>          DBGrid1.Canvas.brush.Color := $00D2D2FF;
>>
>> // mude a cor das celulas com foco
>>    if(gdfocused in State) then
>>    begin
>>       DBGrid1.Canvas.brush.Color:= clHighlight;
>>       DBGrid1.Canvas.Font.Color := clWhite;
>>    end;
>>
>>    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,state);
>> end;
>>
>> Francisco Felix
>> www.solsistemas.com
>>
>> -----Mensagem original-----
>> De: lista [mailto:lista-bounces em firebase.com.br] Em nome de Washington
>> Enviada em: segunda-feira, 21 de julho de 2014 16:29
>> Para: Lista Firebase - BR
>> Assunto: [firebase-br] OFF Topic - db_grid IBO
>>
>> 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
>>
>>
>> ______________________________________________
>> 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
>>
>
>
>