Lunes 23 de Diciembre de 2024, 08:58
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Asuntos Oficiales
»
Publicaciones y e-books
»
C/C++
(Moderador:
Toph
) »
Lista De Fuentes En Un Listbox O Combobox
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Lista De Fuentes En Un Listbox O Combobox (Leído 3735 veces)
_Viktor
Miembro MUY activo
Mensajes: 271
Lista De Fuentes En Un Listbox O Combobox
«
en:
Sábado 6 de Diciembre de 2003, 03:06 »
0
Hola, primero hagan un formulario con la sgte. forma:
Luego en el evento OnCreate del form lo siguiente:
Código: Text
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for(int i = 0; i < Screen->Fonts->Count; i++)
{
ListBox1->Items->Add(Screen->Fonts->Strings[i]);
ComboBox1->Items->Add(Screen->Fonts->Strings[i]);
}
int F = ComboBox1->Items->IndexOf("Times New Roman " );
if( F ) // If the font exists, select it
ComboBox1->ItemIndex = F;
}
//---------------------------------------------------------------------------
luego:
Código: Text
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
if( State.Contains(odSelected) )
ListBox1->Canvas->Brush->Color = clHighlight;
else
ListBox1->Canvas->Brush->Color = clWhite;
ListBox1->Canvas->FillRect(Rect);
ListBox1->Canvas->Pen->Color = clWhite;
ListBox1->Canvas->Font->Name = ListBox1->Items->Strings[Index];
ListBox1->Canvas->Font->Size = 12;
ListBox1->Canvas->TextOut(Rect.Left, Rect.Top, ListBox1->Items->Strings[Index]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
if( State.Contains(odSelected) )
ComboBox1->Canvas->Brush->Color = clHighlight;
else
ComboBox1->Canvas->Brush->Color = clWhite;
ComboBox1->Canvas->FillRect(Rect);
ComboBox1->Canvas->Font->Name = ComboBox1->Items->Strings[Index];
ComboBox1->Canvas->Font->Size = 12;
ComboBox1->Canvas->TextOut(Rect.Left, Rect.Top-2, ComboBox1->Items->Strings[Index]);
}
//---------------------------------------------------------------------------
para que al final el resultado se vea de esta forma:
Espero les sirva.
Saludos!
[EDIT: no modifique nada, fue un error
]
Tweet
_Viktor _Yañez_
"Ser inteligente no es ser mas, solo equivocarse menos y no usar visual basic"
http]
Vatoicc
Miembro activo
Mensajes: 65
Re: Lista De Fuentes En Un Listbox O Combobox
«
Respuesta #1 en:
Sábado 13 de Mayo de 2006, 00:43 »
0
Muy buen tip, nada mas se te olvido agregar que para el ComboBox hay que modificar una propiedad
ComboBox1->Style = csOwnerDrawVariable;
No lo e probado en el ListBox, pero es un buen tip para darle presentacion a un programa
La paranoia es una vision mas sutil de la vida
ronal120
Nuevo Miembro
Mensajes: 4
Re: Lista De Fuentes En Un Listbox O Combobox
«
Respuesta #2 en:
Lunes 12 de Mayo de 2008, 03:07 »
0
muy interesante
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Asuntos Oficiales
»
Publicaciones y e-books
»
C/C++
(Moderador:
Toph
) »
Lista De Fuentes En Un Listbox O Combobox