Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 08-09-2007
Avatar de paldave
paldave paldave is offline
Miembro
 
Registrado: ago 2007
Ubicación: Uruguay
Posts: 148
Poder: 19
paldave Va por buen camino
Bueno, tampoco está mal darse un poco de idea.
Para lo que quieres debes hacer esto:
1) Pones un MenuItem en blanco a la izquierda de tu menú, o sea, en primer lugar, antes del "Archivo", por ejemplo, llamado MiMenuItem, y en su propiedad Bitmap asignas tu mapa de bits.
2) Al MenuItem "Archivo" le pones la propiedad Break=mbBarBreak
3) Pones el MainMenú con la propiedad OwnerDraw=true
4) Pones este código en el evento OnAdvancedDrawItem del MiMenuItem.
Código Delphi [-]
procedure TForm1.MiMenuItemAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; State: TOwnerDrawState);
begin
  ACanvas.StretchDraw(Rect(ARect.Left,ARect.top,ClientWidth,ARect.Bottom),MiMenuItem.Bitmap);
end;
5) Listo!!!!
Espero sea eso lo que querías, ya que no pude ver tu imágen.

Última edición por paldave fecha: 08-09-2007 a las 17:36:33.
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como incluir una imagen en la barra del menu?? Greco Varios 10 31-08-2011 01:10:09
Cambiar Letra en el Menu y conservar la Imagen ing_alsaac OOP 3 23-07-2008 06:11:37
Menu popup johurgi Varios 1 27-07-2007 13:55:49
XP Menu silviodp OOP 1 08-10-2004 15:41:44
Menu rezahe Varios 6 18-06-2003 17:14:56


La franja horaria es GMT +2. Ahora son las 20:52:20.


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