Fórum Criar Lista com cores das fontesdiferentes...Help!!! #177752
27/08/2003
0
Quero criar uma [b:189ef3b988]Listbox ou DbGrid [/b:189ef3b988]onde, insiro um dado ou item a lista se for um valor positivo a fonte sera [color=blue:189ef3b988]azul[/color:189ef3b988] se for negativo a fonte sera [color=red:189ef3b988]vermelha..[/color:189ef3b988]
Tem como alternar cor das fontes conforme ensiro o texto ou dado.., mais só q eu quero que fique de forma alternada!.
exemplo da Lista como deve ficar:
[color=blue:189ef3b988]Marcos 2,00[/color:189ef3b988]
[color=red:189ef3b988]Maria -10,00[/color:189ef3b988]
[color=blue:189ef3b988]Mauro 5,00[/color:189ef3b988]
[color=red:189ef3b988]Celmo -20,00[/color:189ef3b988]
Alguem pode me ajudar?
Obrigado pela atenção.
Tem como alternar cor das fontes conforme ensiro o texto ou dado.., mais só q eu quero que fique de forma alternada!.
exemplo da Lista como deve ficar:
[color=blue:189ef3b988]Marcos 2,00[/color:189ef3b988]
[color=red:189ef3b988]Maria -10,00[/color:189ef3b988]
[color=blue:189ef3b988]Mauro 5,00[/color:189ef3b988]
[color=red:189ef3b988]Celmo -20,00[/color:189ef3b988]
Alguem pode me ajudar?
Obrigado pela atenção.
Marcos Tavares
Curtir tópico
+ 0
Responder
Posts
27/08/2003
Fabio.hc
Eu faço assim.
procedure TFrm1.dbgItensDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (valor < 0) then
begin
dbgItens.Canvas.Font.Color:=clRed;
dbgItens.DefaultDrawDataCell(Rect, dbgItens.Columns[datacol].Field, State);
end
else
begin
dbgItens.Canvas.Font.Color:=clBlue;
dbgItens.DefaultDrawDataCell(Rect, dbgItens.Columns[datacol].Field, State);
end;
end;
Fábio.
procedure TFrm1.dbgItensDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (valor < 0) then
begin
dbgItens.Canvas.Font.Color:=clRed;
dbgItens.DefaultDrawDataCell(Rect, dbgItens.Columns[datacol].Field, State);
end
else
begin
dbgItens.Canvas.Font.Color:=clBlue;
dbgItens.DefaultDrawDataCell(Rect, dbgItens.Columns[datacol].Field, State);
end;
end;
Fábio.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)