 |
Club Builder
Foro de C++Builder en español
|
| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Mónica
Cmdr
Registrado: 27 Sep 2002Mensajes: 136Ubicación: Pontevedra (España)
|
 Publicado: Mie 15 Jun, 2011 12:11 pm Asunto: Cambiar fuente en TMainMenu |
 |
|
Tengo que cambiar el tipo de fuente del TMainMenu de mi programa y no consigo hacerlo.
Lo he intentado en el evento OnDrawItem y, no sé porqué, sale el menú sin texto...
Gracias. |
|
| Volver arriba |
|
 |
Felip
Master
Registrado: 09 Jun 2004Mensajes: 200
|
| Publicado: Dom 17 Jul, 2011 8:52 am Asunto: |
|
|
| Código: |
Object Inspector: MainMenu1->OwnerDraw = true;
|
| Código: |
void __fastcall TForm1::DrawMenuItem(TObject *Sender, TCanvas *ACanvas,
TRect &ARect, bool Selected)
{
if( Selected ) {
ACanvas->Brush->Color = clYellow;
ACanvas->Font->Color = clRed;
ACanvas->Font->Size = 12;
ACanvas->Font->Name = "Monotype Corsiva";
}
else {
ACanvas->Brush->Color = clRed;
ACanvas->Font->Color = clWhite;
}
ACanvas->FillRect( ARect );
TMenuItem* pItem = static_cast<TMenuItem>( Sender );
::DrawText( ACanvas->Handle, pItem->Caption.c_str(), -1, &ARect, DT_SINGLELINE | DT_VCENTER | DT_LEFT );
}
|
|
|
| Volver arriba |
|
|
|
|
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro
|
© 2002–2026 Club Builder · Funciona con phpBB.
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
