FiveTech Software tech support forums

I have an xbrowse created with an array without the :SetMultiSelectCol() and I have the ability to display a menupopup like this MENU oMenu POPUP if oBrw:IsSelectedRow() MENUITEM "Deselect the current row" action DeSelect_One_array(oBrw) MENUITEM "Deselect everything" action ...

... ) ) Function Contextual_Menu( oBtn,oBrw,oDbf,cIniUser,cSection,oParent,oCont,lExport,lColConfig ) .... MENU oMenu POPUP .. ENDMENU return oMenu

Nages, I have one popup on this codeblock oBrw:bRClicked := {|nRow,nCol| Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .....} Function Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .... ENDMENU ACTIVATE ...

... CENTER ;      ACTION PoupExec( Self )   ACTIVATE DIALOG oDlg CENTEREDreturn nilfunction PopupObject()   local oPop   MENU oPop POPUP      MENUITEM "One"      MENUITEM "Two"   ENDMENUreturn oPopfunction PoupExec( oBtn )   local oPop   MENU oPop POPUP  ...

... the function MenuContextual(...) should not return NIL, but should return a PopupMenu object. It looks like this function is returning NIL not a popup menu object. Please check the last line of this function. That is the exact reason for your error at this line in btnbmp.prg:       if ValType( ...

... 0 ) Look for an End() call in source\comuni\Pcomuni.prg I not understood How it came out the error is go out when I click on left mouse and show a popup when the mouse is on the xbrowse  Error description: Error BASE/1004  Metodo non disponibile: END   Args:     [   1] = U   Stack Calls===========  ...

LISTO !!!! ya logre que compile la prueba y ejecute bien. lo que no logro es cambiar el color del texto del titulo del dialogo ni tampoco como hacer que no sea transparente. he probado asi y nada Define Dialog oDlg TITLE "Class TSKIN" PIXEL Resource "Sample1" STYLE WS_POPUP color...

seem not run ok TTItle class with a dialog TRansparent DEFINE DIALOG oDlg SIZE aCooDlg[1], aCooDlg[2] PIXEL TRUEPIXEL; FONT oFont TITLE "Configurazione" COLOR CLR_BLACK, rgb(245,245,235) TRANSPARENT; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX) ICON oIcon ...

seem not run ok TTItle class with a dialog TRansparent DEFINE DIALOG oDlg SIZE aCooDlg[1], aCooDlg[2] PIXEL TRUEPIXEL; FONT oFont TITLE "Configurazione" COLOR CLR_BLACK, rgb(245,245,235) TRANSPARENT; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX) ICON oIcon ...

I want to hide the xbrowse search consisting of two say controls, a get control and a combobox through a popup menu the test works but when Ichange the size of the xbrowse the get control and the combobox control remain active with lsearch :=.t. https://i.postimg.cc/Bv8vS4Vn/1.png ...

What about? If you like it, I'll post the code. ¿Que tal? Si te gusta, publicaré el código. https://imgur.com/vZ67LOJ https://i.imgur.com/vZ67LOJ.png I LOVE FIVEWIN!! hahahahahaha, Regards, saludos. You still haven't understood anything!!!! and you insist on taking the piss ...

seem not run ok TTItle class with a dialog TRansparent DEFINE DIALOG oDlg SIZE aCooDlg[1], aCooDlg[2] PIXEL TRUEPIXEL; FONT oFont TITLE "Configurazione" COLOR CLR_BLACK, rgb(245,245,235) TRANSPARENT; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX) ICON oIcon @...

Estimado Marcelo,

La Clase TXImage proporciona el método Paste( lCheck ) que permite copiar una imagen desde el portapapeles

Además tienes el método PopupMenu( nRow, nCol, nFlags ) que te muestra un popup con la opción Paste

Espero que esto te pueda ser de ayuda

... to recall some application procedures, so each btnbmp is associated with an action to a Function. the final user can insert items from a Menu popup as this MENU oMenu POPUP     MENUITEM "Procedure1"   ;       ACTION   CreateBtn( oPanel, ...

I show my PDF from a Xbrowse. Put link to pdf in Xbrowse or a reference. R-Click and show a popup with option to view, print, etc.. Works very well. //  Xbrowse   :bRClicked        := {|nRow, nCol| PopRappel( nRow,nCol, oOmzet ),oOmzet:refresh() }procedure ...