E ai galera, tranquilo com vcs?
Eu estou terminado minha aplicação, e estou introduziondo o o dbgrig
zebrado, ele está funcioanndo perfeitamente, como segue a linha de
código abaixo.
Porém por eu ter setado a cor da linhae da fonte, a linha selecionada
não muda de cor, e não estou conseguindo manipular a linha
SELECIONADA, para mudar ela de cor.
Quem souber como manipula ela, agradeço muito!
Abraços,
Henrique Faria
------------------------------------------------------------------
procedure Tfaluno.DBGrid1DrawColumnCell(Sender: TObject; const Rect:
TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
x := DM.cAluno.RecNo mod 2;
if x <> 0 then
begin
DBGrid1.Canvas.Font.Color := clBlack;
DBGrid1.Canvas.Brush.Color := $00F0F8FF;
end
else
if x = 0 then
begin
DBGrid1.Canvas.Font.Color := clBlack;
DBGrid1.Canvas.Brush.Color := clWhite;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;
--
<<<<< 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]
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
