FiveTech Software tech support forums

... 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 benefit of FiveWin that you have ...

... 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 benefit of FiveWin that you have ...

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:= {} ...

... // 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:aSelectedRows // Iterate over selected rows AAdd( aCopy, oBrw:aArrayData[nRow] ...

... 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:Unlock( .t. ), ; acopy:=NIL ,; oBrw:RefreshCurrent(), ...

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 ...

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 ,;

... ;      SIZE 80,40 PIXEL OF oDlg FLAT UPDATE ;      COLOR { || If( DlgModified( oDlg ), CLR_HRED, CLR_BLACK ) } ;      ACTION ( If( lSave, MsgInfo( "Save" ), ), oDlg:End() )   ACTIVATE DIALOG oDlg CENTERED   RELEASE FONT oFontreturn ...

... oDlgSTK:End() ), ) } oBrw:nRowHeight := 35 REDEFINE BTNBMP 2007 prompt HB_UTF8CHR( 57611 ) + " Confirma " font oSegoe ID 120 OF oDlgStk ACTION ( lsave := .t., oDlgSTK:End() ) REDEFINE button btnMod ID 130 OF oDlgStk action (Editstock( oBrow, oCon, oRS1, oRS1:AbsolutePosition, .t. ), ...

... ), 0 )         return 0  In fwh 23.10 version, when the nKey variable is 286, a question mark is printed on the screen as per the action in this code. As seen in both versions, the FW_Unicode() function Even though it is defined as .F., the nKey variable coming to METHOD KeyChar ...

Mr Rao,

I need to treat each xBrowser cell as if it were a button. Simply click on it and it will perform an action.

The bLClicked command, it seems, treats the entire line.

Att.,

Oliveiros Junior

I would like to know if it is possible to assign an action when clicking just once on a cell in the xBrowser, You can assign an action to code-block: oBrw:bLClicked := { |row,col,flags,brw| youraction( ... ) } The default behavior ...

Hi guys good morning! I would like to know if it is possible to assign an action when clicking just once on a cell in the xBrowser, and another question is about the SetDlgGradient command, when dividing a screen as follows: SetDlgGradient( { { 0.9, CLR_WHITE, ...

... GET oGet1 VAR Inicio OF oDlg SIZE 100, 10 COLOR "W/G" PICTURE "99999999" @ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION Averba() @ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL ACTIVATE DIALOG oDlg CENTERED Return nil Static ...

... GET oGet1 VAR Inicio OF oDlg SIZE 100, 10 COLOR "W/G" PICTURE "99999999" @ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION Averba() @ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL ACTIVATE DIALOG oDlg CENTERED Return nil Static ...