Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos


Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-08-2013
Jose Roman Jose Roman is offline
Miembro
 
Registrado: Jul 2006
Ubicación: Colombia
Posts: 296
Poder: 13
Jose Roman Va por buen camino
ListBox con diferente color de fuente

Hola a todos,

Resulta que tengo un TListBox al cual le he pasado unos items que coloque en una variable TStringList (8AM,10AM,12PM,2PM,4PM, etc) , pero deseo que despues de haberle pasado estos items cambiarle de color el item que tiene por ejemplo 12PM. He buscado ejemplos pero sinceramente no entiendo mucho debido a que soy muy novato aun.

Gracias de antemano
Responder Con Cita
  #2  
Antiguo 22-08-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.114
Poder: 30
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Jose Roman.

Un ejemplo:
Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ListBox1 do
  begin
    Items.Add('8PM');
    Items.Add('10AM');
    Items.Add('12PM');
    Items.Add('2PM');
    Items.Add('4PM');
    Items.Add('5AM');
    Style := lbOwnerDrawFixed;
  end;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TListBox(Control) do
  begin
    if Items[Index] = '12PM' then
    begin
      Canvas.Brush.Color := clRed;    // fondo rojo
      Canvas.Font.Color  := clWhite;  // letra blanca
    end;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
  end;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 22-08-2013
Jose Roman Jose Roman is offline
Miembro
 
Registrado: Jul 2006
Ubicación: Colombia
Posts: 296
Poder: 13
Jose Roman Va por buen camino
Thumbs up

Gracias ecfisa funciono de maravilla...
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Registros de diferente color yomismo24 Impresión 1 13-05-2008 10:14:55
:( Texto Diferente Color.....? .... lostprophets Varios 3 04-04-2007 20:56:25
ListBox COLOR seleccion diferente Deiv Varios 1 09-01-2006 17:10:59
ListBox diferente... Elfoscuro Varios 4 26-03-2005 09:38:14
Filas Diferente Color En Un Dbgrid jsc Varios 2 27-04-2004 17:32:44


La franja horaria es GMT +2. Ahora son las 05:46:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi