FiveTech Software tech support forums

Antonio Linares wrote:Have you tried this ?

ACTIVATE POPUP oMenu WINDOW oPanel AT aPoint[1], aPoint[2]

Yes of course
Probabile i made an error because before i saw a menu on down, far from panel but then It Is not showed anywhere

Have you tried this ?

ACTIVATE POPUP oMenu WINDOW oPanel AT aPoint[1], aPoint[2]

... oPanel4:AddLink( "testlink", bClick, ".\bitmaps\mail.bmp",oFontSmall,CLR_BLACK,CLR_WHITE ) tried with Function AddMenu() local aPoint := AdjustWnd( oPanel, oPanel:nTop-100, oPanel:nLeft ) MENU oMenu POPUP --- ACTIVATE POPUP oMenu WINDOW oWnd AT aPoint[1], aPoint[2]

... of the msgitem og Msgbar oApp:oMsgItem1:bAction := { |oBtn| ::ConteggioTotali(oApp:oWndMain:oMsgBar) } Function ConteggioTotali(obtn) Local aPoint := AdjustWnd( oBtn, -27*2, 15*2 ) DEFINE DIALOG oDlgConteggio size 400,250 TRANSPARENT; TITLE "Conteggio elementi" ACTIVATE DIALOG ...

... even knowing the source window. Now, bDropOver is evaluated with two more additional paramters. Eval( ::bDropOver, uDropInfo, nRow, nCol, nFlags, aPoint, oSourceWnd ) aPoint is { nRow, nCol } relative to the destination window. oSourceWnd is the window where the drag began. * EASY REPORT RUNTIME: ...

... even knowing the source window. Now, bDropOver is evaluated with two more additional paramters. Eval( ::bDropOver, uDropInfo, nRow, nCol, nFlags, aPoint, oSourceWnd ) aPoint is { nRow, nCol } relative to the destination window. oSourceWnd is the window where the drag began. * EASY REPORT RUNTIME: ...

Mr Antonio You made two points: 1) nMakeLong( aPoint[ 1 ], aPoint[ 2 ] ) makes more sense than nMakeLong( nRow, nCol ) and 2) The code in 15.07 used nMakeLong( aPoint[ 1 ], aPoint[ 2 ] ), where as subsequently it was changed to nMakeLong( nRow, ...

... ****************************************** METHOD Show( nRow, nCol, cPrompt, oWnd ) ****************************************** Local n Local aPoint := { nRow, nCol } Local aAux, nMaxLen Local nHeight Local nWidth Local nHScreen := GetSysMetrics( 1 ) Local nWScreen := GetSysMetrics( 0 ) Local ...

... - 1   nCol     := ::nDisplayCol - 2  Ahora tendrias que pasar esas coordenadas a valores de la pantalla completa: local aPoint := { nRow, nCol } aPoint = ClientToScreen( oBrowse:hWnd, aPoint ) Y desde la claúsula ON INIT de tu diálogo, posicionarlo en esas coordenadas: ...

...      445   617   618 APARENT1                WINDOW.PRG     4019  4022  4025  4028 APARENT2                WINDOW.PRG     4019  4023  4028 APOINT                  WINDOW.PRG     3534  3539  3540  3541  3541 APROPERTIES            WINDOW.PRG      465   469   742   747  1157  1911  1912  1913 ...

... Files\Citrix\GoToMeeting\1133\g2mstart.exe 4 , C:\Program Files\Common Files\Intel\WirelessCommon\iFrmewrk.exe 5 , C:\Program Files\DellTPad\Apoint.exe 6 , C:\Program Files\EMS\SQL Studio for MySQL\Studio\myagent.exe 7 , C:\Program Files\EMS\SQL Studio for SQL Server\Studio\msagent.exe 8 ...

... I nice work. I found a little bug. Just protect the Header-area for drop-over. In function < Dropover > do case case oBrwThis == oBrwRoster aPoint := ClientToClient( oBrwFrom:hWnd, oBrwThis:hWnd, { nRow, nCol } ) IF apoint[1] <= 45 apoint[1] := 50 ENDIF forces to use the first row in ...

I tried with :

ACTIVATE DIALOG oDlg CENTERED ;
ON PAINT (oDlg:Move(aPoint[1], aPoint[2],,,.t.), ;
__ChangeStyleWindow( oTree:hWnd, WS_VSCROLL, -16, .t. ))

but not run !! it not make error and not make the vertical scroll

... ; BORDER NONE ; NOSYSMENU ; NOICONIZE ; NOCAPTION 2. capture the Brush-area from the Mainwindow. STATIC FUNCTION CHILDPAINT( hDC, oWnd ) local aPoint aPoint := ClientToScreen( WndMain():hWnd, { 0, 0 } ) aPoint := ScreenToClient( oWnd:hWnd, aPoint ) SetBrushOrgEx( hDC, aPoint[ 2 ], aPoint[ 1 ...

... mouse within the rectangle { nTop, nLeft, nBottom, nRight ) After deciding the x and y then the point needs to converted to screen coordinates: aPoint := ClientToScreen( oBrw:hWnd, { y, x } ) if aPoint[ 1 ] > 32768 aPoint[ 1 ] -= 65535 endif if aPoint[ 2 ] > 32768 aPoint[ 2 ] -= 65535 ...