Toolbar form an Image / ¿ Toolbar desde una imagen ?

[danielmaximiliano]

Hola a Todos:
ayer trabajando en VFP9 con imagenes se me ocurrio crear un Toolbar desde ahi
en HMG no pude hacerlo ya que el Control IMAGE no tiene Metodo para manejar el evento
OngotFocus.
en VFP hice lo siguiente: aplique un Frame, inclui una imagen de fondo, aplique las imagenes que son los botones del Toolbar, en los Metodos de esa imagen hice.

Translate google :
Hi Everyone:
working hours in VFP9 with images occurred to me from there to create a Toolbar
in HMG could not do it because the IMAGE Control has no method to handle the event
OnGotFocus.
VFP did the following: apply a frame, including a background image, apply the images that are the buttons on the Toolbar, the methods of that image I

MouseEnter : agrando la imagen / I enlarge the image

Code: Select all

LPARAMETERS nButton, nShift, nXCoord, nYCoord
This.Height=70
This.Width=70

MouseLeave : regreso el tamaño original / return the original size

Code: Select all

LPARAMETERS nButton, nShift, nXCoord, nYCoord
This.Height=60
This.Width=60

Click : ejecuto la funcion / procedimiento asociado : execute the function / procedure associated

Code: Select all

IF _SCREEN.activeform.cambio()
     _SCREEN.activeform.nuevo
ENDIF

esto es posible de hacer en HMG ??? realmente quedaria bueno de implementar
it is possible to do in HMG?? really good to implement

[danielmaximiliano]

Hi / hola :
me olvide de enviar el link de youtube donde se ve lo que hice en VFP
forget to send me the youtube link where you see what I did in VFP

http://www.youtube.com/watch?v=GnhkpCnC_dU

[fchirico]

Daniel si te entendí bien, para mí tienes dos formas de hacerlo en HMG:

1) @ <nRow> ,<nCol>

CHECKBUTTON<ControlName>

[ OF | PARENT <ParentWindowName> ]

CAPTION <cCaption> | PICTURE <cPictureName>

[ WIDTH <nWidth>] [ HEIGHT <nHeight> ]

[ VALUE <lValue> ]

[ FONT <cFontName> SIZE <nFontSize> ]

[ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ]

[ TOOLTIP <cToolTipText> ]

[ ON GOTFOCUS <OnGotFocusProcedur> | <bBlock> ]

[ ON CHANGE <OnChangeProcedure> | <bBlock> ]

[ ON LOSTFOCUS <OnLostFocusProcedure> | <bBlock> ]

[ HELPID <nHelpId> ]

[ INVISIBLE ]

[ NOTABSTOP ]

2) Esta es la ideal para mí

DEFINE TOOLBAR <ControlName>

[ OF | PARENT <ParentWindowName> ]

[ BUTTONSIZE <nWidth> , <nHeight> ]

[ IMAGESIZE <nWidth> , <nHeight> ]

[ STRICTWIDTH ]

[ FONT <cFontName> ]

[ SIZE <nFontSize> ]

[ BOLD ]

[ ITALIC ]

[ UNDERLINE ]

[ STRIKEOUT ]

[ TOOLTIP <cTooltipText> ]

[ FLAT ]

[ BOTTOM ]

[ RIGHTTEXT ]

[ GRIPPERTEXT ]

[ BORDER ]

[ BREAK ]



BUTTON <Controlname>

[ CAPTION <cCaption> ]

[ PICTURE <cPictureName> ]

[ ACTION | ON CLICK | ONCLICK <ActionProcedureName> | <bBlock> ]

TOOLTIP <cToolTipText>

[ SEPARATOR ]

[ AUTOSIZE ]

[ DROPDOWN ]

[ WHOLEDROPDOWN ]

[ CHECK ]

[ GROUP ]

...



END TOOLBAR

por favor fíjate que hay más sintaxis posibles para ambos puntos.

[gfilatov]

Hi Everyone:
working hours in VFP9 with images occurred to me from there to create a Toolbar
in HMG could not do it because the IMAGE Control has no method to handle the event
OnGotFocus.
...
esto es posible de hacer en HMG ??? realmente quedaria bueno de implementar
it is possible to do in HMG?? really good to implement

Hi Daniel,

Thanks for your request!

This feature will be available at the next Extended build.
Please take a look for attached sample below.

[danielmaximiliano]

Muchas gracias Grigory es ud un genio / are you a genius :

y los siguientes agregados / and the following additions

MOUSEHOVER, MOUSELEAVE en Label e Image Control.

HYPERLINK en LABEL control

'HMG Cursor' sample. Borrowed from HMG 4 project.

Congratulations on your work and effort