FiveTech Software tech support forums

Saludos,
En mi caso tomo las coordenadas del video:
aCoord:=GetCoors( GetDesktopWindow() )

Luego creo el dialogo o MDI segun la capacidad del video.

... En este caso en la posición vertical 100 Sigo avanzando. Ahora ya puedo determinar donde esta y cuanto mide la barra de tareas de Windows aPos := GetCoors( FindWindow( "Shell_TrayWnd", "" ) ) Una pregunta Leandro, lo que tu necesitas realmente es posicionar el dialogo a la ...

but GetCliRect() and GetCliAreaRect() doesn't work as expected, nTop and nLeft are always 0
I then tried GetCoors() and it works:

oDlg:bInit:={||oDlgAjustar(oDlg)
ACTIVATE DIALOG oDlg

RETURN .T.

FUNCTION oDlgAjustar(oDlg)
LOCAL aCoors:=GetCoors( GetDesktopWindow() )
oDlg:Move(0,0,aCoors[3],aCoors[4],.T.)
RETURN .T.

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)...

... //base height ,nrow for i:=1 TO LEN(::acontrols) oCtrol = odlg:aControls[i] // top:nrow, left:ncol,bottom: nrow, right:ncol aRect = GetCoors( oCtrol:hWnd ) do case case oCtrol:classname()=="TCOMBOBOX" oCtrol:Move( aRect[1]*rsl1, aRect[2]*rsl0 ) // cant not set height of ...

Ok I found SetCoors(), and CoorsUpdate() which contains the Function GetCoors() in it. SetCoors() is a method of the TWindow class. Thank you, I will give them a shot. James I also discovered this, below is the code to the Method "SetCoors" in the ...

... lPageUp := .F. DEFAULT lPageDown := .F. DEFAULT lPos := .F. pausa(1) UnSelectAll() FOR i := 1 TO 100 IF aWnd[i] <> NIL aFirstWndCoors := GetCoors( aWnd[i]:hWnd ) EXIT ENDIF NEXT .... cuando realizo el primer scroll pasa la pausa sin cambiar nada , pero al realizar el segundo scroll se ...

... // height ,nrow for i:=1 TO LEN(::acontrols) oCtrol = ::aControls[i] // top:nrow, left:ncol,bottom: nrow, right:ncol aRect = GetCoors( oCtrol:hWnd ) do case case oCtrol:classname()=="TCOMBOBOX" oCtrol:Move( aRect[1]*rsl1, aRect[2]*rsl0) otherwise oCtrol:Move( aRect[1]*rsl1, ...

Now I resolved !!!! http://s29.postimg.org/pc25gc47r/good.jpg On METHOD GetCoors() CLASS TVistaMenu I insert this lines on case ntype:=1 IF ::aItems[n]:aItems[n2]:lMove nBottom :=nBottom+2 ENDIF before of ::aItems[n]:aItems[n2]:rcItem := { nTop, nLeft, ...

...        (function  in ?)    WINDOW.PRG     1284  1291  1307  1314  1699  2946 GETCLIRECT()           (function  in ?)    WINDOW.PRG      604  1697 GETCOORS()             (function  in ?)    WINDOW.PRG     1425 GETDC()                (function  in ?)    WINDOW.PRG      610   611   622   846   896 ...

Implementa esta funcion:

function GetCoors( hWnd )

return { WndTop( hWnd ), WndLeft( hWnd ), WndBottom( hWnd ), WndWidth( hWnd ) - WndLeft( hWnd ) }

... as methods instead of data. This way the coordinates could be updated within the method before returning a value. Method nTop() local aRect := GetCoors( ::hWnd ) return aRect[1] Or even more simply: Method nTop() return GetCoors(::hWnd)[1] The downside to this design is that the GetCoors() ...

... definidos. RETURN( NIL ) STAT FUNC Refr_Bmp(hDC,oBmp) LOCAL aRect, hWnd, nColor:=255 LOCAL oBrush, nSteps, nI,n local nBlue := 200 IF lInit aRect:=GetCoors(GetDeskTopWindow()) // Coordenadas de ventana IF aRect[3]>=768 // si > 600x800 la centra aRect[1]:=(aRect[3]-580)/2 aRect[2]:=(aRect[4]-800)/2 ...

... oDlg;       action(nnOPtion := oTabs:nOption,xpicard(oDlg,oBrw,nnOption,xCol,oSay35,oSay36,oSay37))   update    endif       oDlg:oTop := oTabs    getcoors(ownd1:nTop,ownd1:nLeft,ownd1:nBottom,ownd1:nRight)    if ownd1:nright >= 1020 //.and. ownd1:nright < 1028        if bFont[1]   <= ...