Fórum Mudar Cor de DBGrid #231781
12/05/2004
0
Olá pessoal,
Tenho o seguinte código:
Até aí tudo bem, o problema é: como cada curso vai ter uma cor e um destes é preto, quando seleciono um registro do DBGrid esta linha fica azul-escuro, como faço para mudar esta cor para um cinza, por exemplo?
Grato pela ajuda,
Ilano.
Tenho o seguinte código:
procedure TFrmConsAlunos.DB3DGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
Var
Cor: TColor;
begin
If DMConsultas.AlunosNomeDoCurso.AsString =´Eletromecânica´ Then
Begin
Cor:=clBlue
End
Else
If DMConsultas.AlunosNomeDoCurso.AsString =´Recursos Hídricos / Irrigação´ Then
Begin
Cor:=clRed
End
Else
If DMConsultas.AlunosNomeDoCurso.AsString =´Recursos Hídricos / Saneamento Ambiental´ Then
Begin
Cor:=clBlack
End
Else
Cor:=$0000C1C1;
DB3DGrid1.Canvas.Font.Color:=Cor;
DB3DGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.Text);
end;
Até aí tudo bem, o problema é: como cada curso vai ter uma cor e um destes é preto, quando seleciono um registro do DBGrid esta linha fica azul-escuro, como faço para mudar esta cor para um cinza, por exemplo?
Grato pela ajuda,
Ilano.
Ilanocf
Curtir tópico
+ 0
Responder
Posts
12/05/2004
Jowjow
[color=darkblue:554f736bdc]{Testa se a celula está selecionada}
if (gdSelected in State)then
begin
// Comandos
end;[/color:554f736bdc]
if (gdSelected in State)then
begin
// Comandos
end;[/color:554f736bdc]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)