procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState); const LM = 3; {each indiviual cell's left margin} TM = 2; {each indiviual cell's top margin} var ptr: Pointer; begin {qualquer cor é armazenada no ponteiro do objeto} ptr := StringGrid1.Objects[Col, Row]; StringGrid1.Canvas.Font.Color := LongInt(ptr); {deixe as filas fixas e as colunas fixas em prata } if gdFixed in State then StringGrid1.Canvas.Brush.Color := clLime; {puxemos o destaque do modo seguinte quando a celula for selecionada } if gdSelected in State then begin StringGrid1.Canvas.Brush.Color := clBlue; StringGrid1.Canvas.Font.Color := clHighlightText; end; {finalmente, faça o desenho de celula atual } StringGrid1.Canvas.TextRect(Rect, Rect.Left + LM, Rect.Top + TM, StringGrid1.Cells[col,row]); end;
-----Mensagem original----- De: Beto Moreno [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 13 de outubro de 2004 16:31 Para: Delphi-Br-Msgs Assunto: [delphi-br] Célula de um StringGrid selecionada Olá pessoal! Alguém aqui poderia me informar como colorir as células de um StringGrid qdo elas forem clicadas? Eu escrevi uma rotina q consigo capturar a célula clicada, mas além disso, eu preciso q a celula fique "marcada" por um determinada cor como se fosse o registro da seleção. Antecipadamente eu agradeço a ajuda. Beto Moreno -- <<<<< 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 -- <<<<< 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