Menu Editor Y Herencia Del Control Event


Objetivo: Menu Editor Y Herencia Del Control Event
Buenos días,

estoy investigando pero creo que no es posible. Estoy intentando hacer que cuando pase el ratón por encima de un menú o submenú, etc. Rellenar el text de un Label destinado para información Información. Tan pronto como pase el ratón por encima se active ese evento.

Lo he conseguido para un botón, por ejemplo tras el evento _Enter o _Leave. Pero veo que el menu no hereda estas propiedades de control y evento, sólo tiene 3 _Click _Hide y _Show. ¿No hay más? ¿No se puede hacer alguna historia para que tenga esos controles de evento? Como crear una librería de SuperMenu o algo así.

http://gambaswiki.org/wiki/comp/gb.qt4/menu
http://gambaswiki.org/wiki/comp/gb.qt4/button

Muchísimas gracias.

Perfil MP  
Objetivo: Re: Menu Editor Y Herencia Del Control Event
...ad exemplum con un Balloon (hace falta crear al menos una voz de Menu):

Private tm As Timer


Public Sub Form_Open()

With tm = New Timer As "Tempus"
.Delay = 50
.Start
End With

End


Public Sub Tempus_Timer()

Dim rt As New Rect(Me.ScreenX + 10, Me.ScreenY + 10, Me.Font.TextWidth(Menu1.Caption), Me.Font.TextHeight(Menu1.Caption))

If rt.Contains(Mouse.ScreenX, Mouse.ScreenY) Then Balloon.Info("Mus intravit !", Me, 10 + (Me.Font.TextWidth(Menu1.Caption) / 2), 5)

End

Perfil MP  
Objetivo: Re: Menu Editor Y Herencia Del Control Event
¿Es este el tipo de menú que estás buscando?

menuextra


MenuExtra.tar.gz
Descripción:  
Descargar
Nombre del archivo: MenuExtra.tar.gz
Tamaño: 35.67 KB
Descargado: 130 veces
MenuExtra.tar.gz
Descripción:  
Descargar
Nombre del archivo: MenuExtra.tar.gz
Tamaño: 35.67 KB
Descargado: 130 veces
MenuExtra.tar.gz
Descripción:  
Descargar
Nombre del archivo: MenuExtra.tar.gz
Tamaño: 35.67 KB
Descargado: 130 veces

Perfil MP  
Objetivo: Re: Menu Editor Y Herencia Del Control Event
vuott escribió:  
...ad exemplum con un Balloon (hace falta crear al menos una voz de Menu):

Private tm As Timer


Public Sub Form_Open()

With tm = New Timer As "Tempus"
.Delay = 50
.Start
End With

End


Public Sub Tempus_Timer()

Dim rt As New Rect(Me.ScreenX + 10, Me.ScreenY + 10, Me.Font.TextWidth(Menu1.Caption), Me.Font.TextHeight(Menu1.Caption))

If rt.Contains(Mouse.ScreenX, Mouse.ScreenY) Then Balloon.Info("Mus intravit !", Me, 10 + (Me.Font.TextWidth(Menu1.Caption) / 2), 5)

End



Este ejemplo me ha venido genial, muchísimas gracias!

Perfil MP  
Objetivo: Re: Menu Editor Y Herencia Del Control Event
cogier escribió:  
¿Es este el tipo de menú que estás buscando?

menuextra



Si, la historia es hacer que cuando pases el ratón por encima de uno de esos menús (y submenús), se active un evento de ratón para modificar por ejemplo un label, donde voy poniendo información.

Perfil MP  
Objetivo: Re: Menu Editor Y Herencia Del Control Event
Por favor, pruebe el programa. Esto es exactamente lo que hace.

Perfil MP  
Objetivo: Re: Menu Editor Y Herencia Del Control Event
cogier escribió:  
Por favor, pruebe el programa. Esto es exactamente lo que hace.


Buenas Cogier,

muchas gracias por el fuente, lo he cargado en mi gambas y con lo novato que soy aun con este lenguaje, no consigo hacerlo correr.

Parece un tema de componente con PictureBox a la hora de ejecutar la clase main.

captura_de_pantalla_2020_03_13_a_las_13_25_28


Perfil MP  
Objetivo: Re: Menu Editor Y Herencia Del Control Event
mateobadajoz escribió:  
cogier escribió:  
Por favor, pruebe el programa. Esto es exactamente lo que hace.


Buenas Cogier,

muchas gracias por el fuente, lo he cargado en mi gambas y con lo novato que soy aun con este lenguaje, no consigo hacerlo correr.

Parece un tema de componente con PictureBox a la hora de ejecutar la clase main.

captura_de_pantalla_2020_03_13_a_las_13_25_28



Nada, eliminé el elemento PictureBox y creé uno nuevo igual.

El ejemplo es muy bueno, muchísimas gracias!

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.4209s (PHP: -74% SQL: 174%)
Consultas SQL: 47 - Debug off - GZIP Activado