Imagen o texto sobre el menu / menu con align / menu movible

[scriptors]

How i can call

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);

from one Frame

Because I "unHidden" one MenuItem form one hidden form ... after this ... all menuitem are on the LEFT

i try TForm1.FormCreate.Execute ... but of course not work

[dajaji]

Primero gracias por la respuesta.
Genial el codigo, lo hice y funciono a la perfeccion. Pero no es a lo que me referia, lo que busco es que la imagen este en un espacio entre la barra de titulo y la barra de menu(no a un lado del menú), como en la siguiente imagen:

http://www.imaxenes.com/imagenes/menuespl1kh03fl.jpg

Ojo que el formulario de la imagen lo hice copiado de otra imagenes. (obvio no? si no, no estaria haciendo esta preg. jeje )

Bueno pero en fin por si el link no funca :
----------------------------------
titulo
----------------------------------
imagen
----------------------------------
Menu
----------------------------------
.
.
.
.
-----------------------------------


Gracias de antemano.

[paldave]

El link que pusiste está mal, no se permiten imágenes de ese tamaño. Prueba subiéndola a www.imageshack.com o www.upload27.com
y colócanos el link, claro

[paldave]

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.

[dajaji]

Gracias, justamente a eso es que me refiero:

estes el link (bajo sujerencia), que espero funcione:

http://www1.upload27.com/viewimage.p...50-menuesp.JPG

gracias paldave, solo falta un pequeño detalle a la aplicacion.

ya que todo se hizo con un solo MainMenu, como puedo hacer que solo el primer "MiMenuItem" sea de un Alto como de 2 cm y el resto del menu conserve su Alto de 1cm.

Gracias.



PD.- ¿De donde sacais tanta sabiduria. ???

Me respondo a mi mismo: Obvio del esfuerzo, constancia, experiencia y pasion por la programación.

[dajaji]

Buscando buscando en torry encontre el componente
Pie-Menu, y en la pagina del autor

http://www.pie-tools.de/

encontre el grupo completo de componentes muy variados por cierto
hay que leer las instrucciones de instalacion para instalarlo

Su componente TPieMainMenu tiene la opcion de cambiar el alto de los menus, pero lamentablemente, si cambia el alto del menu en la aplicación, tambien cambia el alto de todos los menues de Windows.

Alguien sabe como cambiar el alto del menu solo en la alicacion sin afectar a todo windows.

PD.- claro que haceptaria otras alterenativas para el problema que origino este hilo.

Gracias.

[dajaji]

Mi objetivo es poner una imagen por encima del menú principal de la aplicacion.

Uso dos Form

Form1
con un label y una imagen cualquiera ubicada en la parte superior del form

y un Form2
con su propiedad

BorderStyle:=bsNone;

Ademas en este Form2 pongo un MainMenu con los items que se quiera.

En el Form1 que sera el principal (o el primero que se construya)

en su evento OnActivate:

Código Delphi [-]
form2.top:=top+80;
form2.left:=left+4;
form2.Width:=width-8;
form2.Height:=Height-80-4;
form2.showmodal;
application.Terminate;

y es todo.

Claro que tiene muchos inconvenientes como que no puedo mover la aplcacion, no puedo cerrar la aplicacion si no es por un boton o ALTT+F4
y me imagino que tambien tiene otros incovenientes

Que les parece la ilusion????



Bueno Espero alguien me ayude sin tanto artificio a poner una simple imagen por