Como Usar linhas Coloridas em um DBGrid ex. uma verde outr b
Ola Pessoal,
Boa Tarde a todos.
:roll:
Minha pergunta é a seguinte: Tem como usar linhas coloridas em um DBGrid, exemplo a primeira linha verde a segunda branca a terceira verde....
linha 1 - Branca
linha 2 - Verde
linha 3 - Branca
linha 4 - Verde
linha 5 - Branca
...
Gostaria de fazer assim para melhorar o visual do DBGrid, e para nao confundir as linhas.
Se alguem Tiver alguma dica ou de onde encontrar isso, Agradeco.
Boa Tarde a todos.
:roll:
Minha pergunta é a seguinte: Tem como usar linhas coloridas em um DBGrid, exemplo a primeira linha verde a segunda branca a terceira verde....
linha 1 - Branca
linha 2 - Verde
linha 3 - Branca
linha 4 - Verde
linha 5 - Branca
...
Gostaria de fazer assim para melhorar o visual do DBGrid, e para nao confundir as linhas.
Se alguem Tiver alguma dica ou de onde encontrar isso, Agradeco.
Claudio_f
Curtidas 0
Respostas
Paul
02/07/2003
Coloque a propriedade DefaultDrawData do DbGrid para FALSE. O controle é feito no evento OnDrawColumnCell.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If odd(Table1.RecNo) then
begin
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clWhite;
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack;
DBGrid1.Canvas.Brush.Color:= clGreen;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;
Ate mais!
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If odd(Table1.RecNo) then
begin
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clWhite;
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack;
DBGrid1.Canvas.Brush.Color:= clGreen;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;
Ate mais!
GOSTEI 0
Claudio_f
02/07/2003
Oi Paul,
Valeu a dica, funcionou mas em vez de ficar uma linha de cada cor, ficou uma coluna de cada cor, agora e so descobrir qual componente usar para a linha.
Obrigado.
Valeu a dica, funcionou mas em vez de ficar uma linha de cada cor, ficou uma coluna de cada cor, agora e so descobrir qual componente usar para a linha.
Obrigado.
GOSTEI 0