FiveTech Software tech support forums

... oWnd FROM 1, 1 TO 12, 32 TITLE "TEST" MENU MakeMenu()

ACTIVATE WINDOW oWnd

RETURN( NIL )

Function MakeMenu()
Local oMenu

MENU oMenu
MENUITEM '&Menu'
MENU
MENUITEM "&1 MsgDate (Use DATE())" ACTION MsgInfo(MsgDate(DATE()), "Date Returned")
MENUITEM "&2 MsgDate (Use 03/25/97)" ACTION ...

... 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 oBrw:SelectRow( 0 )
MENUITEM "Prints the ...

Hola

Temas asi los soluciono con el preprocesador. Haciendo un esbozo:

#Translate xmenuitem <c1> action <fAction> message <cMessage> => ;
menuitem <c1> action ( LogAction(<c1>), <fAction>) message <cMessage>


Y asi el codigo que hay que tocar es añadir una x a menuitem

Salu2

... la opción del menú ?
Existe algún método, algún bchange donde se pueda tomar la opción antes de ejecutarse ?

Ejemplo:
menu oMnuDBIO Popup 2007
menuitem '&Países' action CATPai() message 'Países'
menuitem '&Entidades Federativas' [url][/url] action CATEst() message 'Entidades Federativas'
endmenu ...

MENUITEM "Copy" WHEN acopy=NIL .and. oBrw:IsSelectedRow(); // only when is seletected
ACTION ( IIF(Len(oBrw:aselected) >1,aClone:=Giverows(oBrw),;
aCopy := aclone(oBrw:aRow)),;
oBrw:SetFocus() )


Function Giverows(oBrw)
local n,atmp:={},nAt
For n= 1 to Len( oBrw:aselected)
nAt := oBrw ...

... I have the last release of fwh


Silvio,
Here you have the solution. But, look also into xbrowse.prg in C:\FWH\Source\Classes\xbrowse.prg.

MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,;
oBrw:SetFocus(), xbrowse(oBrw:aSelected) )



All you need is there. This is the biggest ...

... I have the last release of fwh


Silvio,
Here you have the solution. But, look also into xbrowse.prg in C:\FWH\Source\Classes\xbrowse.prg.

MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,;
oBrw:SetFocus(), xbrowse(oBrw:aSelected) )



All you need is there. This is the biggest ...

Perhaps...


MENUITEM "Copy" WHEN acopy=NIL .and. oBrw:IsSelectedRow(); // only when is seletected
ACTION IIF(Len(oBrw:aseleted) >1,Aclone:= Giverows (oBrw),aCopy := aclone(oBrw:aRow)),;
oBrw:SetFocus() )



Function Giverows (oBrw)
local n,uBook,nAt
local aTmp:= {}
For n = 1 to len(oBrw ...

... example of how you could modify your code:

### Modified Copy Functionality

```harbour
// Inside PopMenu Function - Modify the "Copy" Menu Item
MENUITEM "Copy" WHEN acopy==NIL .and. oBrw:IsSelectedRow();
ACTION (
aCopy := {}, // Initialize aCopy as an empty array
FOR EACH nRow IN oBrw ...

... msgInfo's.
Best regards,
Otto

I not understood
when I copy insert on acopy the row I selected ( all field) change acopy[1] with new codsep

MENUITEM "Paste" WHEN acopy!=NIL ACTION ( ;
oBrw:Lock(), ;
aCopy[ 1 ] := codsep ,;
aCopy[ 8 ] := 0 ,; //recno
aadd( oBrw:aArrayData, aCopy ),;
oBrw ...

You have to extend here:
MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,;
oBrw:SetFocus() )


and here:
aadd( oBrw:aArrayData,aCopy ),; // oBrw:aArrayData[ oBrw:nArrayAt ] := aCopy ,;



>MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,;
>oBrw:SetFocus() )

must be ...

You have to extend here:
MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,;
oBrw:SetFocus() )


and here:
aadd( oBrw:aArrayData,aCopy ),; // oBrw:aArrayData[ oBrw:nArrayAt ] := aCopy ,;

https://i.postimg.cc/R0YV9Xff/fff.gif

when I copied to the second xbrowse
it should enable the "copy" menuitem and disable the "paste" menuitem and give the possibility to copy another line and repeat the operations instead the copy command is disabled and "paste" is always active

what menuitem is missing ? I can't understand what you posted...
Hi Antonio,

When the right button is pressed in Webview, "Inspect" should appear on the bottom line of the menu that opens.

The pictures I sent are in Turkish. Somehow, although my Microsoft Edge browser is in English, I could not ...

what menuitem is missing ? I can't understand what you posted...