FiveTech Software tech support forums

... FUNC MAIN LOCAL oWnd DEFINE WINDOW oWnd FROM 10,10 TO 20,70 SET MESSAGE OF oWnd TO "TEST ON MOVE" CLOCK DATE KEYBOARD NOINSET oWnd:bMoved := {|nRow,nCol|oWnd:setMsg(LTRIM(STR(nRow)) + " , " + LTRIM(STR(nCol)))} ...

Hello Trying to use ON MOVE , i noticed : 1) oDlg:bMoved is executed with nRow,ncol , so the preprocessor should be (fivewin.ch and dialog.ch): <oWnd>:bMoved [ := \{ | nRow,nCol | <uMove> \} ], ; 2) Comparing two methods : case nMsg == ...

... 32 CLASS TDIAG OF TDIALOG CLASSDATA lRegistered AS LOGICAL DATA lSomb AS LOGICAL INIT .F. DATA hFond,hPen,nDif METHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow ) METHOD Initiate( hWndFocus, hWnd ) METHOD Paint() METHOD StartPaint() ...

... dialog ::oDlg nomodal valid ::MyValid() (...) The activate code will conflict with Self name, see the PPO: ::oDlg:Activate(::oDlg:bLClicked,::oDlg:bMoved,::oDlg:bPainted,.T.,,! .T. ,{|Self|::MyValid()},::oDlg:bRClicked,,) "valid ::MyValid()" turn into "{|Self|::MyValid()}" We suggest change Self ...

... 32 CLASS TDIAG OF TDIALOG CLASSDATA lRegistered AS LOGICAL DATA lSomb AS LOGICAL INIT .F. DATA hFond,hPen,nDif METHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow ) METHOD Initiate( hWndFocus, hWnd ) METHOD Paint() METHOD StartPaint() ...

... dialog ::oDlg nomodal valid ::MyValid() (...) The activate code will conflict with Self name, see the PPO: ::oDlg:Activate(::oDlg:bLClicked,::oDlg:bMoved,::oDlg:bPainted,.T.,,! .T. ,{|Self|::MyValid()},::oDlg:bRClicked,,) "valid ::MyValid()" turn into "{|Self|::MyValid()}" We suggest change Self ...

... -16 CLASS TDIAG OF TDIALOG CLASSDATA lRegistered AS LOGICAL DATA lSomb AS LOGICAL INIT .F. DATA hFond,hPen,nDif METHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow ) METHOD Initiate( hWndFocus, hWnd ) METHOD Paint() METHOD StartPaint() ...

... "Move" from the System Menu of a Dialog box ? 2) Can we ristrict a dialog movement beyond the Client area of a Window. I tried in this way: oDlg:bMoved := {|| oDlg:Move(72,4), SysRefresh() } The Dialog box became movable beyond the client area, even though the "DEFINE DIALOG oDlg OF oMainWindow:oClient" ...

... ) IF !EOF() dbSkip(1) ENDIF NEXT oDlg:Activate( Upper("maximized"), oDlg:bLClicked, oDlg:bRClicked, oDlg:bMoved, oDlg:bResized, oDlg:bPainted, oDlg:bKeyDown, oDlg:bInit,,,,,,,,,,, oDlg:bLButtonUp ) return nil 

... ) IF !EOF() dbSkip(1) ENDIF NEXT oDlg:Activate( Upper("maximized"), oDlg:bLClicked, oDlg:bRClicked, oDlg:bMoved, oDlg:bResized, oDlg:bPainted, oDlg:bKeyDown, oDlg:bInit,,,,,,,,,,, oDlg:bLButtonUp ) return nil 

... compiler shown error in "DEFINE DIALOG" row. If I INCLUDE "FiveWin.ch", then when I start exe, error shows: Message not found. TWINDOW:BMOVED One stupid question: which INCLUDE file is for programing in PPC - I'm beginner in PPC :) Thank you, Richard & Antonio

I fix my tget (fwh24) and i include it in my link but if i use:

oget1:bMoved:={ || myfunction() }

myfunction() is called only when i relase the left mouse button

while if i use

oget1:bMMoved:={ || myfunction() }

nothing happens

any help
Piscicelli/Zingoni

I have this little example: ... get oget1 var pippo1 ... get oget2 var pippo2 oget1:ldrag:=.t. oget2:ldrag:=.t. oget1:bMoved:={ || myfunction() } activate .... Now i want to move pippo1 and while i move it i want call a myfunction(). The above example only call the myfunction() after ...

... oget2 var pippo2 oget1:ldrag:=.t. oget2:ldrag:=.t. activate .... Volevo che al muovere di pippo1 si muovesse anche pippo2 ho provato con: oget1:bMoved:={ || miafunzione() } ma ho visto che tale funzione viene chiamata solo al rilascio di pippo1 io volevo invece qualcosa che venisse richiamato ...