FIELD Selector for FiveWin ?

[Jimmy]

hi,

is there a FiveWin Sample like this ?

[Otto]

Hello Jimmy,
You could use the FW example as a start.

Another question: you also know MINIGUI.
Do you think you can use the dialog designer as well for FIVEWIN and maybe HTML forms?

Ivanil Marcelino
Good afternoon;

I don't know fivewin, but I believe the syntax differs from minigui;
the minigui syntax model for graphical objects is:
define window
define textbox cName
row 10
col 10
width 50
height 20
end textbox
end window

Best regards,
Otto

C:\FWH\samples\dragdrop3.prg

Code: Select all  Expand view

    // FiveWin - own Drag&Drop new features !!!
    // Drag item from one listbox to another listbox

    #include "FiveWin.ch"
    #include "xbrowse.ch"

    //----------------------------------------------------------------------------//

    function Main()

       local oWnd, oCursor, oLbx, oLbx2
       local cItem:=""

       DEFINE CURSOR oCursor hand

       DEFINE WINDOW oWnd TITLE "FiveWin's own Drag & Drop features!!!"


       @ 6, 3 XBROWSE oLbx OF oWnd COLUMNS 1 ;
          ARRAY { "Item 1","Item 2","Item 3","Item 4" } SIZE 200, 200

       // Set a DropOver action for the ListBox
       oLbx:bDropOver = { | uDropInfo, nRow, nCol, nKeyFlags | ;
                            AAdd( oLbx:aArrayData,  oLbx2:aArrayData[ uDropInfo ] ), ;
                            ADel( oLbx2:aArrayData, uDropInfo, .t. ), ;
                            oLbx:Refresh(.t.), oLbx2:Refresh(.t.) }

       oLbx:oDragCursor = oCursor         // Select a Drag cursor
       oLbx:bDragBegin  = { | nRow, nCol, nKeyFlags | ;
                            SetDropInfo( oLbx:nArrayAt ),;   // Save drop info !!!
                            oWnd:SetMsg( "Dragging..." ) }

       @ 6, 30 XBROWSE oLbx2 OF oWnd COLUMNS 1 ARRAY {} size 200,200
       oLbx2:bDropOver = { | uDropInfo, nRow, nCol, nKeyFlags | ;
                            AAdd( oLbx2:aArrayData,  oLbx:aArrayData[ uDropInfo ] ), ;
                            ADel( oLbx:aArrayData, uDropInfo, .t. ), ;
                            oLbx:Refresh(.t.), oLbx2:Refresh(.t.) }

       oLbx2:oDragCursor = oCursor         // Select a Drag cursor
       oLbx2:bDragBegin  = { | nRow, nCol, nKeyFlags | ;
                            SetDropInfo( oLbx2:nArrayAt ),;   // Save drop info !!!
                            oWnd:SetMsg( "Dragging..." ) }


       oLbx:CreateFromCode()
       oLbx2:CreateFromCode()

       // Set a DropOver action for the ListBox

       SET MESSAGE OF oWnd ;
          TO "FiveWin - own DragDrop interface !!!" CENTER

       ACTIVATE WINDOW oWnd MAXIMIZED

    return nil

 

[Euclides]

Hi Jimmy.
There is a FWH function: cGetExpression()
It user \fwh\samples\expbuild.rc and \fwh\samples\ExpBuild.ch. The use is for expressions.
I made a very simple routine (back in fw 2.0 - Just transalte it from Portugese)

Code: Select all  Expand view

Function MOVFIELDS()
local oDlg1, oLbx1, oLbx2, aItm2:={}, cX, cTit
local aItm1:={"HUMBERTO", "NASCIMENTO", "ROBERTO SCHAFF", "TEREZINHA", "CAZUZA", "CLAUDIO NINGA", "RENATO", "MARCELO ALEIXO", "AGAMENON", "RICIERI"}
*
   DEFINE DIALOG oDlg1 RESOURCE "DLGASP3"
   REDEFINE LISTBOX oLbx1 VAR cX   ITEMS aItm1 ID 101 OF oDlg1  // ON CHANGE iif(aScan(aItm2, cX)=0, (oLbx2:Add(cX), cTit:=cX),)
   oLbx1:bLDblClick:={|nRow,nCol| iif(aScan(aItm2, cX)=0, (oLbx2:Add(cX), cTit:=cX),)}
   REDEFINE LISTBOX oLbx2 VAR cTit ITEMS aItm2 ID 102 OF oDlg1
   REDEFINE BUTTON ID 11 OF oDlg1 ACTION oDlg1:End(1)
   REDEFINE BUTTON ID 12 OF oDlg1 ACTION oDlg1:End()
   REDEFINE BUTTON ID 13 OF oDlg1 ACTION (oLbx2:Del(aScan(aItm2, cTit)), oLbx2:GoTop())
   REDEFINE BUTTON ID 14 OF oDlg1 ACTION iif(aScan(aItm2, cX)=0, (oLbx2:Add(cX), cTit:=cX),)
   ACTIVATE DIALOG oDlg1 CENTER ON INIT cX := aItm1[1]
return nil
/*. RC
DLGASP3 DIALOG 2, -1, 223, 118
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION " Seleção de Destinatários"
FONT 8, "MS Sans Serif"
{
 LTEXT "Usuários", -1, 8, 3, 37, 9
 PUSHBUTTON "&Incluir", 14, 94, 29, 35, 12, NOT WS_TABSTOP
 LTEXT "Destinatários", -1, 137, 3, 44, 9
 PUSHBUTTON "&Retirar", 13, 94, 51, 35, 12, NOT WS_TABSTOP
 LISTBOX 102, 138, 15, 75, 78, LBS_STANDARD
 PUSHBUTTON "&Ok", 11, 68, 100, 40, 14
 PUSHBUTTON "&Cancela", 12, 121, 100, 40, 14
 LISTBOX 101, 8, 15, 75, 78, LBS_STANDARD
}
*/
 

Hope it helps. Regards Euclides

[Jimmy]

hi Euclides,

thx for Answer.

There is a FWH function: cGetExpression()

OK, i will look for it
[quote="Euclides"]It user \fwh\samples\expbuild.rc and \fwh\samples\ExpBuild.ch. The use is for expressions./quote]
i have look into expbuild.ch and expbuild.rc
i don´t know how to use your Code Sample as i have not work with REDEFINE yet.

where can i read more about REDEFINE to learn

[Antonio Linares]

Dear Jimmy,

Simply create this example:

jimmy.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   MsgInfo( cGetExpression() )

return nil

Then, being at FWH\samples do:

copy expbuild.rc jimmy.rc

Finally do:
buildh.bat jimmy

And you get this:

[Jimmy]

hi Antonio,

And you get this:

WOW

[Jimmy]

hi Otto,

Another question: you also know MINIGUI.
Do you think you can use the dialog designer as well for FIVEWIN and maybe HTML forms?

thx for your DragDrop Sample.

---

when try to use HMG FMG Syntax in MiniGUI Extended Version it (most) fail as Property are Different
i guess it will be a huge work to get all FiveWin Control and its Property

remember MiniGUI Form-Designer is 2-Way
Note : all Property must exist when "read" again (after manual modify Source)

---

about HTML :
i do not know anything about HTML so i can´t talk about it
but HTML have so much Property ... how much work will it be ...