FiveTech Software tech support forums

... just curiosity, final code? You can show? If you can't, no problem. Programmer's curiosity only. Regards, saludos. local aPt := { 111,200 } aPt := ClientToScreen( oWndMain:hWnd, aPt ) oFolder:bAction := { || IF(oFolder:nOption=3 .or. oFolder:nOption=6 ,; (oDlg:nHeight:=400,oDlg:Move( aPt[ 1 ] , ...

...  oFontDialog:End()   oFontBold:End()RETURN NIL// fin / end  resolved ( thanks to Rao) with only local aPt := { 111,200 } aPt := ClientToScreen( oWndMain:hWnd, aPt ) oFolder:bAction := { || IF(oFolder:nOption=3 .or. oFolder:nOption=6 ,; (oDlg:nHeight:=400,oDlg:Move( aPt[ 1 ] , ...

Try with ClientToScreen Function

I edited the sample.
Added 6 lines after ClientToScreen
Please implement this and try

Rao,
I have problem if I use many btnbmp

this command aPt := ClientToScreen( oBtn:oWnd:hWnd, { nRow, nCol } )

not give the right points where move the dialog of messages

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

good this : local a, aPos --- a := ::oTooltip:GetSize() aPos = { nRow, nCol } aPos := ClientToScreen( ::hWnd, aPos ) if aPos[2]+a[1] > GetSysMetrics(1) aPos[2] := GetSysMetrics(0) - a[1] - 20 endif ::oToolTip:cHeader := nil//"Calendar" ::oToolTip:cBody ...

... := cPrompt aAux := ::MaxLen( cPrompt ) nMaxLen := aAux[1] nLines := aAux[2] nWidth := nMaxLen + 4 nHeight := ( nLines * ::nHRow ) + 2 endif ClientToScreen( oWnd:hWnd, aPoint ) // CRASHES HERE BECAUSE oWn:hWnd is nil and apoint is empty. if aPoint[ 1 ] == nRow aPoint := ClientToScreen( oWnd:hWnd, ...

... := ::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:      ACTIVATE DIALOG ...

... devuelve el hwnd correspondiente a unas coordenadas. Primero captura las coordenadas con GetCursorPos(), las cambias a coordenadas de pantalla con ClientToScreen(), se las pasas a WindowFromPoint() y después averiguas el color con GetPixel(). En teoría debería funcionar. Con probar... Un saludo.

...   2074  2074  2518  3260  3278  3437  3712  3856  3858  3931                   3933 CLIENTEDGE()           (function  in ?)    WINDOW.PRG      880 CLIENTTOSCREEN()       (function  in ?)    WINDOW.PRG     3540 CLOCALS                WINDOW.PRG     1587  1590  1593 CLOSEWINDOW()          (function ...

You are right. It is oCol:nDisplayCol not nDisplayPos. Sorry for my mistake,

These coordinates are relative to oBrw:hWnd. You need to derive coordinates relative to the screen for use to create a dialog. You may consider using the function ClientToScreen(...).

... ; 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 ] + WndMain():oBar:nHeight ...

... 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 endif Then ...

... NIL //-------- NO BACKGROUND displayed from MDI-frame !!! ---------- STATIC FUNCTION CHILDPAINT( hDC, oWnd7, oWndBtn ) LOCAL aPoint aPoint := ClientToScreen( oWnd7:hWnd, { 0, 0 } ) // WndMain() aPoint := ScreenToClient( oWndBtn:hWnd, aPoint ) SetBrushOrgEx( hDC, aPoint[ 2 ] - 1, aPoint[ 1 ...