StringGrid em negrito

Delphi

22/08/2003

Olha eu de novo, é que eu não tenho muita esperiencia com StringGrid, mas indo ao assunto...

Quando eu clico em uma celula eu recupero o valor da linha do StringGrid onde eu cliquei, ate tudo bem, mas eu quero saber se tem como deixar os conteudos que estão nesta linha em negrito, como se fosse um destaque da linha em que cliquei, só para facilitar a visulaização do usuario...
ou só mudar a cor da fonte...
Será que vc pode me ajudar?


Marcela

Marcela

Curtidas 0

Respostas

Okama

Okama

22/08/2003

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with stringGrid1.Canvas do begin
if gdSelected in State then begin
   Font.Color := clBlue;
   Font.Style := [fsbold];
end;

TextOut (Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[Acol,Arow]);

end;
end;



GOSTEI 0
POSTAR