FiveTech Software tech support forums

... from nLeft of the object (here from xBrowse) you drag from? How could I find out on what folder you drop? oFld:bDropOver = { |uDropInfo,nRow,nCol,nKeyFlags| msginfo(nCol) } oxBrwFolio1:nLeft := 0 http://www.atzwanger.com/fw/drag1.jpg oxBrwFolio1:nLeft := 10 http://www.atzwanger.com/fw/drag2.jpg

Hello Antonio,

I think it is the same with the other controls.

What is the problem if I change
return 0 to

return Super:LButtonUp( nRow, nCol, nKeyFlags )

in the LButtonUp method.

Then it is working. Do we face other problems.
Regards,
Otto

... features!!!" @ 3, 3 BUTTON oBtn PROMPT "DragMe/DropMe at the Listbox" SIZE 210, 25 oBtn:oDragCursor = oCursor oBtn:bDragBegin = { | nRow, nCol, nKeyFlags | SetDropInfo( Time() ) } @ 6, 3 LISTBOX oLbx VAR cItem ; ITEMS { "I am a listbox!","Apples", "Oranges", "Lemons", "Limes" } SIZE 200, 200 ...

... By Joao Santos => ; [ <oBmp> := ] TBitmap():ReDefine( <nId>, <cResName>, <cBmpFile>,; <oWnd>, [\{ |nRow,nCol,nKeyFlags| <uLClick> \}],; [\{ |nRow,nCol,nKeyFlags| <uRClick> \}],; <.scroll.>, <.adjust.>, <oCursor>, <cMsg>, ...

Hello, A application that I wrote is generating drawing by using meta-files. Then I display them and by using oMeta:blClicked := {|nRow, nCol, nKeyFlags| myfunc(nRow, nCol, nKeyFlags)} I check where the mouse is clicked, then I jump to another drawing. I was wondering that I can use some kind ...

... FONT oFont COLOR CLR_RED TRANSPARENTE oSayTxt:lTabs := .f. oSayTxt:lSombra := .f. oSayTxt:oDragCursor := oCursor oSayTxt:bDragBegin := { | nl, nc, nKeyFlags | SetDropInfo( oSayTxt ), oWnd:SetMsg( "Dragging and Dropping" ) } Return nil /* Thanks ! Gui - São Paulo - Brazil */

... ArPrgElem[3]:GoTop() ArPrgElem[3]:nClrText := {|| ColorBloqueo( ArPrgElem[6]:xGet(ArPrgElem[3]:nAt) )} ArPrgElem[3]:bRClicked := { |nRow,nCol,nKeyFlags| PasaMenu(nRow, nCol, nKeyFlags, IdeArra ) } ArPrgElem[3]:nLineStyle := 0 ... The class TARRAY: ***************************************************************************** ...

... style for the browse oLbx:lCellStyle := .T. // To perform and edit Cell operation using left double click oLbx:bLDBLclick := { |nRow, nCol, nKeyFlags| ; ColVarChg(@oLbx, @aItems), oLbx:Refresh()} REDEFINE BUTTON ID COSTINVT_ACCEPT OF oDlg2; ACTION (oDlg2:end()) ACTIVATE DIALOG oDlg2 return ...

Rochinha,

o METHOD LButtonDown( nRow, nCol, nKeyFlags ) CLASS TFoldAng

Nao esta faltando alguma coisa no final dele ?

Ou eh só fechar os If's ?

Maurilio;
obrigado pela dica.

@braços ale

Silvio,

You have to implement these methods in your Class:

METHOD RButtonDown( nRow, nCol, nKeyFlags )
METHOD RButtonUp( nRow, nCol, nKeyFlags )

Please review source\classes\window.prg to see how they are implemented.

I 'm trying to implement to a my class an method
MouseMove( nRow, nCol, nKeyFlags )
is there a manual reference where I can read to determinate when I click R_UP and R_Down ?

-------------------

... Comparing two methods : case nMsg == WM_LBUTTONDOWN return ::LButtonDown( nHiWord( nLParam ), nLoWord( nLParam ),; METHOD LButtonDown( nRow, nCol, nKeyFlags ) case nMsg == WM_MOVE return ::Moved( nLoWord( nLParam ), nHiWord( nLParam ) ) METHOD Moved( nRow, nCol ) INLINE ; Which is nRow ? nLoWord(nLParam) ...

... lBorder, lTabStop ) CONSTRUCTOR METHOD Paint() METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint() METHOD LButtonDown( nRow, nCol, nKeyFlags ) ENDCLASS //----------------------------------------------------------------------------// METHOD New( nTop, nLeft, nBottom, nRight, oWnd, ...

... right(Eval( oBrw:aColumns[ oBrw:nAtCol( nCol ) ]:bData ),10)+ ; Eval( oBrw:aColumns[ 2 ]:bData ) ) } oBrw:bDropOver := { |uDropInfo,nRow,nCol,nKeyFlags| if(uDropInfo<>nil, ( MoveRms( uDropInfo+str( Int((nRow-25)/20),3 ), oBrw ) ), ) } *Now I use this* Function MoveRms( cData, oLbx ) ...

I change into below, porblem still, obrow1 obrow2 obrow2:BLDBLClick:={||msginfo("aaa")} METHOD LDblClick( nRow, nCol, nKeyFlags ) CLASS TXBrowse local oCol local nColPos, nRowPos // add if ::BLDBLClick<>nil return Super:LDblClick( nRow, nCol, nKeyFlags ) end //add ::CancelEdit() ...