FiveTech Software tech support forums

... "Accounting", oFont,,, !.F., Upper("TOP") ) oWnd:Activate( Upper("MAXIMIZED"), oWnd:bLClicked, oWnd:bRClicked, oWnd:bMoved, oWnd:bResized, oWnd:bPainted, oWnd:bKeyDown, oWnd:bInit,,,,,,,,,,, oWnd:bLButtonUp ) return nil ***************************************** The ...

I make a try and I have the same value :

oSprite is the bitmap

oSprite:bMoved := { | nRow, nCol | msginfo(oRbar:nheight,oSprite:nTop) }

... RESOURCE cBitmap; PIXEL NOBORDER of oWnd oSprite:lTransparent = .T. oSprite:Move(oSprite:nTop,; oSprite:nLeft,; ,; ) oSprite:lDrag := .T. oSprite:bMoved := {|| oSprite:CoorsUpdate() ,; nBmpRow := oSprite:nTop ,; nBmpCol := oSprite:nLeft ; } and I wish move the bitmaps not over the ribbon

... ,; ) oSprite:HideDots() // not run !! I want no show the dots when I capture the object with the mouse oSprite:lDrag := .T. oSprite:bMoved := {|| oSprite:CoorsUpdate() ,; nBmpRow := oSprite:nTop ,; nBmpCol := oSprite:nLeft ; } oSprite:cargo := {cBitmap,nTipo } // ASSIGN THE CARGO ...

... of oWnd oSprite:lTransparent = .T. oSprite:Move(oSprite:nTop,; oSprite:nLeft,; oSprite:nWidth(),; oSprite:nHeight()) oSprite:lDrag := .T. oSprite:bMoved := {|| oSprite:CoorsUpdate() ,; nBmpRow := oSprite:nTop ,; nBmpCol := oSprite:nLeft ; } oSprite:bAction := {|oSprite| Menu_azioni(oSprite) } ...

... they appear by dragging the bottom window above the second window, is there a way to call a tile when the mouse button is released? I've tried the bMoved option but, this is called as soon as the window is moved not when the mouse button is released. Any ideas? Thanks Pete

... ) CONSTRUCTOR METHOD Define( nTop, nLeft, nBottom, nRight, cCaption, nStyle,; nClrText, nClrPane, oBrush ) CONSTRUCTOR METHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal,; bInit, bRClicked, bWhen, lResize16 ) METHOD AdjTop() INLINE WndAdjTop( ::hWnd ) METHOD ChangeFocus() INLINE ...

... Brw1:hWnd,oDlg:hWnd ),SetParent( oDlg:hWnd,oWndChild:hWnd ),oGet[1]:SetFocus(), oDlg:Move( 46, 0 )) ; VALID (oWndChild:End(),.T. ) oWndChild:bmoved = { | nRow, nCol, nFlags | savecrd1(oWndChild,"BAL") } ACTIVATE WINDOW oWndChild ; ON INIT (oWndChild:SetSize( oDlg:nWidth, oDlg:nHeight+61+12, ...

... TTabs():New(nTop,nLeft,aPrompts,{||.t. },oDlgFld,nOption,nCor1,nCor2,lPixel,lDesign,nWidth,nHeight,) oDlgFld:Activate(oDlgFld:bLClicked,oDlgFld:bMoved,oDlgFld:bPainted,.F.,, .F. ,,oDlgFld:bRClicked,{||.T.},) Return(Self) Qual seria o problema ??? acho q esta no style WS_CHILD, q se eu tirar ...

You could try to save the position of the dialog and then add
oDlg:bMoved := ... (Codeblock to move dialog to previous position)

... "fivewin.ch" 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)))} ACTIVATE DIALOG oWnd RETURN Notes : 1) The result is WRONG , nRow is ...

bMoved is evaluated when the window is moving while bMMoved is evaluated when the mouse is moving. They are two different events.

EMG

you write oWnd:bMoved =... my by oWnd:bMMoved

Saludos Antonio:

Hice lo que sugieres

Prueba a hacer lo siguiente:
oDlg:bMoved = { || oBar:Refresh() }

Y no surte ningun efecto.
Con solo estar posicionado en el Get con Password, y pulsar mayusculas un par de veces, se ve el problema.

Si, hemos visto el error. Ocurre en XP, en Vista funciona bien.

Prueba a hacer lo siguiente:
oDlg:bMoved = { || oBar:Refresh() }

por lo visto solo ocurre al mover la caja de diálogo una vez que ha salido el aviso de las mayúsculas. Por lo menos, aqui solo falla en esa situación.