Fabio,
Obrigado pela atenção dispensada! E aproveitando o ensejo, a rotina funcionou muito bem, colorindo as condições propostas nela, exceto no que diz respeito à visualização dos dados que estão sendo replicados em cima dos dados originais, ou seja, os dados estão sendo pintados numa posição deslocada a posição original da informação. Você sabe me dizer de que forma posso resolver o problema? Grato, []’s Christian Balz _____ De: Fabio Giro [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 1 de março de 2005 09:44 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Colorir informação Criei 1 form e coloquei 1 stringgrid. Adapte as suas necessidades. procedure TForm1.FormShow(Sender: TObject); var j, k : shortint; begin for j := 1 to 4 do for k := 1 to 4 do begin stringgrid1.Cells[j,k] := inttostr(j+k); StringGrid1.Objects[j,k] := Pointer(clgreen); if stringgrid1.Cells[j,k] = '4' then StringGrid1.Objects[j,k] := Pointer(clRed); if k = stringgrid1.rowcount - 1 then StringGrid1.Objects[j,k] := Pointer(clblue); end; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState); var ptr: Pointer; ptr2: Pointer; begin // pinta o conteudo da celula ptr := StringGrid1.Objects[Col, Row]; StringGrid1.Canvas.Font.Color := LongInt(ptr); {finalmente, faça o desenho de celula atual } StringGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, StringGrid1.Cells[col,row]); end; Espero ter ajudado. ----- Original Message ----- From: "Christian Balz" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Monday, February 28, 2005 5:12 PM Subject: [delphi-br] Colorir informação Ola pessoal, Necessito colorir uma determinada informação (texto contido em uma célula), em um StringGrid de acordo com o retorno, ou seja, se o retorno for igual a "A" então a cor da fonte receberia o vermelho, se "B" então a cor da fonte seria preto e assim por diante. Se alguém souber me ajudar fico grato, []'s Christian Balz [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.1 - Release Date: 27/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.3 - Release Date: 01/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: <http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif> <http://br.rd.yahoo.com/SIG=12ac5ckgs/M=264105.3931087.6562589.1588051/D=brc lubs/S=2137111264:HM/EXP=1109811167/A=2361264/R=6/SIG=10v4acpp0/*http:/br.sh opping.yahoo.com/> _____ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos <http://br.yahoo.com/info/utos.html> do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
