Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-05-2003
ing_alsaac ing_alsaac is offline
Miembro
 
Registrado: may 2003
Ubicación: Querétaro, México
Posts: 29
Poder: 0
ing_alsaac Va por buen camino
Talking Cambiar Letra en el Menu y conservar la Imagen


Hola a Todos:
Ya habia pedido su ayuda para este tema
y me recomendaron usar el evento OnDrawItem y OnMeasureItem
de la opcion para cambiar el tipo de letra,
el problema ahora fue de que trate de poner una imagen
dentro de la opción del menu pero no me la hace visible
por esos eventos, osea que puedo usar las imagenes
pero tengo que conservar el tamaño de
letra original del menu o puedo cambiar el tipo de letra
pero no puedo ver las imagenes que inserte en las opciones.
Ojala Puedan Ayudarme.

Laso opciones quedaban asi

procedure TForm1.Opciones1DrawItem(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
begin
with ACanvas do
begin
Font.Name:='Arial';
Font.Color:=clblack;
font.Size:=10;
DrawText(Handle,PChar((Sender as TMenuItem).Caption),-1,ARect,DT_VCENTER);
end;
end;

procedure TForm1.Opciones1MeasureItem(Sender: TObject;
ACanvas: TCanvas; var Width, Height: Integer);
begin
Width:=180;
Height:=30;
end;
__________________
Saludos
Alonso
Responder Con Cita
 



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


La franja horaria es GMT +2. Ahora son las 18:36:31.


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