| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
AbraaoRamiro
Experiente
Registrado: Sexta-Feira, 21 de Março de 2003
Mensagens: 466
Localização: Perto das Mulheres, Longe dos Rapazes
|
 Enviada: Seg Jan 12, 2015 5:40 pm Assunto: ListView / ListBox Coloridos |
 |
|
Boa noite galera!
Estou com uma duvida simples, como posso mudar a cor da fonte do ListView ou ListBox no Delphi XE6 Mobile. Sou iniciante em Mobile então toda pergunta é boba!
| Código: |
UniQuery1.Close;
UniQuery1.SQL.Clear;
UniQuery1.SQL.Add('SELECT * FROM CLIENTES');
UniQuery1.SQL.Add('order by ID, Tipo');
UniQuery1.Open;
Listw_CReceber.Items.Clear;
UniQuery1.First;
while not UniQuery1.Eof do
begin
Item_Temp:= Listw_CReceber.Items.Add;
Item_Temp.Text:= UniQuery1.FieldByName('Nome').AsInteger;
if UniQuery1.FieldByName('total').AsFloat>0 then Item_Temp.Detail:= FormatFloat('000', UniQuery1.FieldByName('total').AsFloat) else Item_Temp.Detail:='';
[color=red] if UniQuery1.FieldByName('vencimento').AsDateTime>Date then Item_Tempfont.Color:= TAlphaColorRec.Red
[/color]
UniQuery1.Next;
end;
|
_________________
Abraão Ramiro Lima de Paula Programador/Webdesigner |
|
| Voltar ao Topo |
|
 |
RaphaelComba
Novato
Registrado: Quarta-Feira, 1 de Agosto de 2012
Mensagens: 36
|
| Enviada: Qua Jan 21, 2015 8:20 am Assunto: |
|
|
Olá amigo
tenta isso aqui:
Item_Tempfont.Canvas.Fill.Color := TAlphaColorRec.Red
Cara desculpa, isso que coloquei a cima refere-se a alteração de cor da linha do listbox, para alterar a cor de fonte eu uso dessa forma
ListBox1.ListItems[nID_ListBox].StyledSettings := ListBox1.ListItems[nID_ListBox].StyledSettings - [TStyledSetting.ssFontColor];
ListBox1.ListItems[nID_ListBox].TextSettings.FontColor := TAlphaColorRec.Blueviolet;
essa variável nID_ListBox esta guardando o indice da list que estou manipulando.
espero que ajude
abraços |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
