FiveTech Software tech support forums

define dialog oDlg ...
activate dialog oDlg centered on init(SetWindowPos(oDlg:hWnd,-1,0,0,0,0,3))

... James I also discovered this, below is the code to the Method "SetCoors" in the TWindow class: METHOD SetCoors( oRect ) CLASS TWindow SetWindowPos( ::hWnd, 0, oRect:nTop, oRect:nLeft,; oRect:nRight - oRect:nLeft + 1,; oRect:nBottom - oRect:nTop + 1, 4 ) // Important: // Use 4 for ::nTop ...

... cancel define timer oTimer of oWnd interval 1000 action(oTimer:Deactivate(), TestFocusApp(), oTimer:Activate()) activate window ownd on init(setwindowpos( oWnd:hwnd, -1, 0, 0, 0, 0, 3 ),obutton[1]:setfocus(),otimer:activate()) return nil /**************************************/ static function ...

... from a RC dialog, generating all the tedious REDEFINEs for you :-) http://forums.fivetechsupport.com/viewtopic.php?f=3&t=28862 * Fix: Function SetWindowPos() was not properly 64 bits compatible. Now it is ok. Thanks to Felix! * Enhancement: Some enhancements on samples\FiveDBU.prg. Don't miss ...

... IF !::lFocus RETU NIL ENDIF IF oObj == NIL oObj := ::oControlItem:oObj ENDIF IF ValType( oObj ) <> 'O' RETU NIL ENDIF oObj:CoorsUpdate() SetWindowPos( oObj:hWnd, HWND_TOP ,; oObj:nTop, oObj:nLeft ,; oObj:nWidth, oObj:nHeight ) if ::lactive oitemact := ::oControlItem ::additem(oitemact:ntop, ...

... oDlg ; ACTION ( msginfo("click on dialog")) @ 4, 2 BUTTON "&Bye!" OF oDlg ACTION oDlg:End() ACTIVATE DIALOG oDlg on init(setwindowpos( oDlg:hWnd, -1, 0, 0, 0, 0, 3 ) ) nowait return(.t.)

También puedes intentar SetWindowPos(hWnd,-1,,,,,8)

Debería funcionar.

Aqui tienes unos enlaces: http://winapi.freetechsecrets.com/win32 ... dowPos.htm
y http://www.pinvoke.net/default.aspx/cor ... owPos.html aunque no son de FiveWin, esa funcion trabaja igual en FW.

George, You may use SetWindowPos() to change the tab order of a control: SetWindowPos( hWndControl, hWndControlInsertAfter, 0, 0, 0, 0, nOr( SWP_NOMOVE, SWP_NOSIZE ) ) i.e., if you have two GETs, oGet1 and oGet2, then: SetWindowPos( ...

... = ( ::nWidth * 1.167 ) - ::nHeight+iif(::nWidth>200,1,2) // By Dutch endif /* // We force a WM_NCCALCSIZE msg to be sent to the GET SetWindowPos( ::hWnd, 0, 0, 0, 0, 0,; nOr( SWP_NOMOVE, SWP_NOSIZE, SWP_NOZORDER, SWP_FRAMECHANGED ) ) */ endif return nil Regards, Dutch

Hello Antonio,
thank you.
I tried your suggestion but I feel that double click is executed before ownd:disable().
This does not work. As a workaround I use: SetWindowPos( ::hWnd, -1, 0, 0, 0, 0, 3 )
in the “called” programs.

Best regards,
Otto

... ::cResName ) ::nWidth = ::nWidth * SCALE_FACTOR hCtrl = GetWindow( ::hWnd, GW_CHILD ) if hCtrl != 0 do while ! lEnd aRect = GetCoors( hCtrl ) SetWindowPos( hCtrl, 0, aRect[ 1 ], aRect[ 2 ] * SCALE_FACTOR,; ( aRect[ 4 ] - aRect[ 2 ] ) * SCALE_FACTOR,; aRect[ 3 ] - aRect[ 1 ], nOr( SWP_NOZORDER,; ...

Estoy intnetando abrir un dialogo creado desde recursos en una posición determinada de la pantalla. Actualmente lo consigo mandando la instruccion SetWindowPos( ::oToolTip:hWnd, , aPoint[ 1 ], aPoint[ 2 ] - ::oToolTip:nWidth(), ::oToolTip:nWidth(), ::oToolTip:nHeight() ) pero se ve un feo parpadeo ...

Muchas gracias a los dos. Alvaro static ontop:=.t. SetWindowPos( oWnd:hWnd, if( ontop , HWND_TOPMOST , HWND_NOTOPMOST ) , 0, 0, 0, 0, ; nOr( SWP_NOMOVE, SWP_NOSIZE, SWP_SHOWWINDOW, SWP_NOACTIVATE ) ) ontop:=!ontop #define SWP_NOSIZE 0x0001 #define ...

alvaro,

SetWindowPos( oWnd:hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE |;
SWP_NOSIZE |;
SWP_SHOWWINDOW |;
SWP_NOACTIVATE )

Enrico,

I used SetWindowPos() this way :

Code: Select all  Expand view

SetWindowPos(wWnd,-1,US->UWORDTOP,US->UWORDLEF,US->UWORDWID,US->UWORDHEI,3)

Thanks.