Hola:
¿Sigue siendo necesaria en la versión actual de FWH?
Gracias.
oImage:bWhen := { || .F.}
oImage:bRClicked := { || mifuncion()}
//----------------------------------------------------------------------------//
METHOD PopupMenu( nRow, nCol, nFlags ) CLASS TXImage
local oMenu, oClp
if PCount() > 0 .and. ! ::lFocused
::SetFocus()
endif
if ::l2007
MENU oMenu POPUP 2007
endif
if ::l2010
MENU oMenu POPUP 2010
endif
if ::l2013
MENU oMenu POPUP 2013
endif
if ::l2015
MENU oMenu POPUP 2015
endif
MENUITEM "Center" ACTION ::Center()
MENUITEM "Fit Width" ACTION ::FitWidth()
MENUITEM "Fit Height" ACTION ::FitHeight()
MENUITEM "Fit In Rect" ACTION ::FitRect()
SEPARATOR
MENUITEM "Crop" ACTION ( ::lCrop := .t. )
//SEPARATOR
if ::lCanPaste
SEPARATOR
MENUITEM "Paste" ACTION ::Paste() ;
WHEN ::Paste( .t. )
endif
if ::lMnuSave
SEPARATOR
MENUITEM "Copy To ClipBoard"
MENU
MENUITEM "As Viewed" ACTION ::CopyToClipBoard( .t. )
MENUITEM "Original Image" ACTION ::CopyToClipBoard( .f. )
ENDMENU
SEPARATOR
MENUITEM "Save To File"
MENU
MENUITEM "As Viewed" ACTION ::Save( .t. )
MENUITEM "Original Image" ACTION ::Save( .f. )
ENDMENU
endif
ENDMENU
If PCount() > 0
ACTIVATE POPUP oMenu AT nRow, nCol OF Self
endif
return oMenu
//----------------------------------------------------------------------------//
@ 52, 02 XIMAGE oImageT SIZE 410, 200 OF oWndImg NOBORDER
oImageT:FitRect()
oImageT:SetSource( uFile )
oImageT:l2007 := .F.
oImageT:l2010 := .F.
oImageT:l2013 := .F.
oImageT:l2015 := .T.
MENU oMenu POPUP 2007
MENUITEM FWString("Center") ACTION ::Center()
MENUITEM FWString("Fit Width") ACTION ::FitWidth()
MENUITEM FWString("Fit Height") ACTION ::FitHeight()
MENUITEM FWString("Fit In Rect") ACTION ::FitRect()
SEPARATOR
MENUITEM FWString("Crop") ACTION ( ::lCrop := .t. )
SEPARATOR
if ::lCanPaste
MENUITEM FWString("Paste") ACTION ::Paste() ;
WHEN ::Paste( .t. )
endif
MENUITEM FWString("Copy To ClipBoard")
MENU
MENUITEM FWString("As Viewed") ACTION ::CopyToClipBoard( .t. )
MENUITEM FWString("Original Image") ACTION ::CopyToClipBoard( .f. )
ENDMENU
MENUITEM FWString("Save To File")
MENU
MENUITEM FWString("As Viewed") ACTION ::Save( .t. )
MENUITEM FWString("Original Image") ACTION ::Save( .f. )
ENDMENU
ENDMENU
MOISES wrote:Lo primero, muchas gracias por tu ayuda y por tu tiempo.
Creo que para dejarlo perfecto el método debería coger el estilo del menú principal. Me suena que esto lo tenéis implementado, si no lo investigo yo.
oImageT:l2007 := oImageT:oWnd:oMenu:l2007
oImageT:l2010 := oImageT:oWnd:oMenu:l2010
oImageT:l2013 := oImageT:oWnd:oMenu:l2013
oImageT:l2015 := oImageT:oWnd:oMenu:l2015
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot], SantaCroya and 45 guests