_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
 Publicado: Jue 28 Abr, 2005 1:59 am Asunto: |
 |
|
Tienes que pintar cada línea tu mismo, para ello tienes el evento OnDrawItem, puedes ver mas sobre como se usa en la ayuda.
Como ejemplo, pon la propiedad "Style" del TCheckListBox a "lbOwnerDrawFixed" en tiempo de diseño (con eso le indicamos que vamos a pintarlo manualmente) y luego pon el siguiente código en el evento "OnDrawItem" del mismo:
| Código: | // Suponiendo que el TCheckListBox se llama CheckListBox1
if (Index == 1 || Index == 3)
CheckListBox1->Canvas->Font->Style = TFontStyles() << fsBold;
CheckListBox1->Canvas->TextRect(Rect, Rect.Left+1, Rect.Top+1,
CheckListBox1->Items->Strings[Index]); |
Con esto pintamos en negrita las líneas 2 y 4 (se empieza a contar desde 0) |
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
