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

[dajaji]

Hola a todos en el foro:

Estoy haciendo una aplicacion en Delphi 7 en que es necesario mostrar el logo y nombre de la empresa en la parte superior del Form principal en un espacio de 4 cm como minimo.(asi reza el contrato).

Mi problema es que aun no logro colocar una imagen o texto sobre el menu principal.

de la siguiente forma

__________________________________________
|_______________________________________X|
| |
| <Imagen > Nombre de la aplicacion |
|________________________________________|
|Archivo|Edicion|Ayuda |
| |
| |
| |
| |
| |
| |
| |
| |
|________________________________________|



Estuve viendo algunos hilos pero no encontre nada similar
Por favor ayudenme.

- claro que busqué menus principales que se puedan mover y no encontre nada.
- tb busqué menus con align para alienarlo top y que otro componente con align top se pusiese enciama pero nada.

Como curiosidad: se fijaron que cuando ponen un componente menu, en sus propiedades del menu no existe la propiedad top
pero cuando entran a las propiedades basicas del fichero DFM (o cuando ven el formulario como texto y no de manera visual). SI existe la propiedad top del menu, pero si se cambia el valor no afecta en nada al componente menu.

o estoy del todo equivocado...?

Ayuda porfa.

atte. Dajaji

[paldave]

Mira este hilo

[dajaji]

Antes gracias por la respuesta.

pero ya vi antes el hilo que pones.

habla del toolbar97 ya me lo baje y tb el toolbar2000 pero no logro hacer lo que quiero, (o es que no le doy al punto es que a veces no veo lo mas obvio).

Ademas que en la ultima seccion del hilo no daban la respuesta a la ultima pregunta de Greco

Grapcias

[paldave]

Bueno, como veo que seguimos insistiendo en varios hilos con la colocación de imágenes en el menú trataré de explicarles como lo hago:

1) Si lo que quieren es insertar una imagen a la izquierda (o si quieren en el medio del menú), la cosa es simple: solo tienen que crear con el editor de menú un MenuItem con Caption='' (sin caption) y con Name='MiMenuItem' por ejemplo, en el lugar que quieran poner la imagen, y luego le asignan a su propiedad Bitmap el bitmap que deseen, o en su propiedad ImageIndex el índice de la imagen que quieran mostrar (que debe estar en el ImageList asociado, claro). Esto les mostrará su imagen en el espacio del MenuItem alineada a la izquierda.
Si quieren hacerlo un poquito más "vistoso" pueden hacer que la imagen ocupe todo el MenuItem. Para ello ponen la propiedad OwnerDraw de MainMenu a True y luego en el evento DrawItem del MenuItem dibujan la imagen utilizando el canvas que les proporciona la función, algo así:

Código Delphi [-]
procedure TForm1.MiMenuItemDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
  Selected: Boolean);
  var b:TBitmap;
begin
  b:=TBitmap.Create;
  b.LoadFromFile('d:\Seguridad\Imágenes\Chaplin.bmp');
  ACanvas.StretchDraw(ARect,b);
  b.free;
end;

claro que el bitmap pueden declararlo como público y cargarlo una sola vez cuando se cree el formulario .

2) Si quieren que la imágen se alinee a la derecha del menú, pues hacen lo mismo poniendo el MenuItem como el último item a la derecha y luego en el procedimiento Create del Form ponen este código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
   mii: TMenuItemInfo;
   MainMenu: hMenu;
   Buffer: array[0..79] of Char;
begin
   MainMenu := Self.Menu.Handle;
   mii.cbSize := SizeOf(mii) ;
   mii.fMask := MIIM_TYPE;
   mii.dwTypeData := Buffer;
   mii.cch := SizeOf(Buffer) ;
   GetMenuItemInfo(MainMenu, MiMenuItem.Command, false, mii) ;
   mii.fType := mii.fType or MFT_RIGHTJUSTIFY;
   SetMenuItemInfo(MainMenu, MiMenuItem.Command, false, mii) ;
end;

y listo! queda alineado a la derecha del menú.

Si quieren cambiar el ancho del MenuItem pueden utilizar el evento OnMeasureItem:

Código Delphi [-]
procedure TForm1.MiMenuItemMeasureItem(Sender: TObject; ACanvas: TCanvas; var Width,
  Height: Integer);
begin
  Width:=40;
end;

Prueban y me cuentan que resultado les dió. Saludos a todos.

[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.