dbgrid zebrado
22/03/2003
0
Ola pessoal,
Alguem sabe como deixar uma dbgrid zebrado, onde uma linha fica com cor e a outra sem.
Usei a funcao abaixo, porem nao funcionou.
if Odd(DM01.qryFindVenda.RecNo) then
begin
DBGrid1.Canvas.Font.Color:= clLime;
DBGrid1.Canvas.Brush.Color:= clBlack;
end
else
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);
Um abraço,
Daniel.
Alguem sabe como deixar uma dbgrid zebrado, onde uma linha fica com cor e a outra sem.
Usei a funcao abaixo, porem nao funcionou.
if Odd(DM01.qryFindVenda.RecNo) then
begin
DBGrid1.Canvas.Font.Color:= clLime;
DBGrid1.Canvas.Brush.Color:= clBlack;
end
else
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);
Um abraço,
Daniel.
Dse
Curtir tópico
+ 0
Responder
Posts
22/03/2003
Anonymous
Eu usei o DBGrid do RX em conjunto com uma função, como segue abaixo:
No evento OnGetCellParams, digite o seguinte:
if TestaParaPar(Tabela.RecNo) then // é par
Background := clWhite
else
Background := $00FCEDD6;
if Highlight then
begin
AFont.Color := clHighlightText;
Background := clHighlight;
end;
// verifica se um número inteiro é par ou impar
function TestaParaPar(TestaInteiro : Integer) : boolean;
begin
if (TestaInteiro div 2) = (TestaInteiro/2) then
result := True
else
result := False;
end;
No evento OnGetCellParams, digite o seguinte:
if TestaParaPar(Tabela.RecNo) then // é par
Background := clWhite
else
Background := $00FCEDD6;
if Highlight then
begin
AFont.Color := clHighlightText;
Background := clHighlight;
end;
// verifica se um número inteiro é par ou impar
function TestaParaPar(TestaInteiro : Integer) : boolean;
begin
if (TestaInteiro div 2) = (TestaInteiro/2) then
result := True
else
result := False;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)