Page 1 of 1
Position of Window CENTER ?
Posted: Sun Nov 13, 2022 12:56 pm
by Jimmy
hi,
i do create Window
Code: Select all | Expand
DEFINE WINDOW oASKFORM FROM 0, 0 TO 270, 534 PIXEL
...
@ 150, 010 BUTTON oButton_Start PROMPT "&OK" SIZE 100, 64 PIXEL OF oASKFORM ACTION ...
ACTIVATE WINDOW oASKFORM CENTER
when ask for for Coordinate
Code: Select all | Expand
nTop0 := oParent:nTop
nLeft0 := oParent:nLeft
nWidth0 := oParent:nWidth
nHeight0 := oParent:nHeight
nTop := oObj:nTop
nLeft := oObj:nLeft
nWidth := oObj:nWidth
nHeight := oObj:nHeight
i got
SNAPTOCTRL( 1800 ) nTop0 = 0 nLeft0 = 0 nWidth0 = 535 nHeight0 = 271
SNAPTOCTRL( 1801 ) nTop = 150 nLeft = 10 nWidth = 101 nHeight = 65
as you can see oASKFORM Coordinate are still 0, 0 .. but it is CENTER
Question : how get Position when use CENTER
Re: Position of Window CENTER ?
Posted: Sun Nov 13, 2022 8:10 pm
by Antonio Linares
Dear Jimmy,
Before calling you code please do:
oParent:CoorsUpdate()
Re: Position of Window CENTER ?
Posted: Mon Nov 14, 2022 5:23 am
by Jimmy
hi Antonio,
Antonio Linares wrote:oParent:CoorsUpdate()
thx,
i have try it but it does not work
still get 0,0
what i´m doing wrong
Code: Select all | Expand
#include "FiveWin.ch"
PROCEDURE MAIN
LOCAL oWnd, oText_1, oBtn, cFilter := "*.*" + SPACE( 10 )
LOCAL cLog := cFileSetExt( ExeName(), "LOG" )
FErase(cLog)
DEFINE WINDOW oWnd FROM 0, 0 TO 150, 200 PIXEL TITLE "Test Snap2Ctrl"
@ 010, 010 GET oText_1 VAR cFilter SIZE 160, 30 PIXEL OF oWnd
@ 050, 010 BUTTON oBtn PROMPT "&OK" SIZE 160, 50 PIXEL ACTION( MsgInfo( cFilter ), oWnd:End() ) OF oWnd
#IFDEF __HMG__
END WINDOW
#ENDIF
// SetFocus() does not navigate Cursor to Position
oText_1:Setfocus()
// SnapToCtrl() should move Cursor to Position
ACTIVATE WINDOW oWnd ON INIT SnapToCtrl( oWnd, oText_1 ) CENTER
WinExec( "notepad.exe " + cLog )
RETURN
Code: Select all | Expand
PROCEDURE SnapToCtrl( oParent, oObj )
LOCAL hWnd, nTop, nLeft, nWidth, nHeight, nCol, nRow
LOCAL nTop0, nLeft0, nWidth0, nHeight0
oParent:CoorsUpdate()
SysRefresh()
hWnd := oObj:hWnd
nTop0 := oParent:nTop
nLeft0 := oParent:nLeft
nWidth0 := oParent:nWidth
nHeight0 := oParent:nHeight
nTop := oObj:nTop
nLeft := oObj:nLeft
nWidth := oObj:nWidth
nHeight := oObj:nHeight
// Center of control
nRow := nTop0 + nTop + ( nHeight0 / 2 )
nCol := nLeft0 + nLeft + ( nWidth / 2 )
SETCURSORPOS( nCol, nRow )
oObj:Setfocus()
FWLOG nTop0, nLeft0, nWidth0, nHeight0
FWLOG nTop, nLeft, nWidth, nHeight
FWLOG nCol, nRow
RETURN
Re: Position of Window CENTER ?
Posted: Mon Nov 14, 2022 7:50 am
by Antonio Linares
Dear Jimmy,
Please review this example:
Code: Select all | Expand
#include "FiveWin.ch"
function Main()
local oWnd
DEFINE WINDOW oWnd
@ 2, 2 BUTTON "Coors" SIZE 80, 20 ACTION XBrowser( { oWnd:nTop, oWnd:nLeft, oWnd:nWidth, oWnd:nHeight } )
XBrowser( { oWnd:nTop, oWnd:nLeft, oWnd:nWidth, oWnd:nHeight } )
ACTIVATE WINDOW oWnd CENTER
return nil
Re: Position of Window CENTER ?
Posted: Mon Nov 14, 2022 8:45 am
by Jimmy
hi Antonio,
thx for Sample
i do understand now that INIT is "before" CENTER is made under Fivewin
so i have to use a "Workaround" with TIMER to "move" Cursor to "default" BUTTON -> next ACTION
Code: Select all | Expand
#include "FiveWin.ch"
#define EM_SETSEL 0x00B1
PROCEDURE MAIN
LOCAL oWnd, oText_1, oBtn, cFilter := "*.*" + SPACE( 10 )
LOCAL oTimer
DEFINE WINDOW oWnd FROM 0, 0 TO 150, 200 PIXEL TITLE "Test Snap2Ctrl"
@ 010, 010 GET oText_1 VAR cFilter SIZE 160, 30 PIXEL OF oWnd
oText_1:PostMsg( EM_SETSEL, 0, LEN( TRIM( cFilter ) ) )
@ 050, 010 BUTTON oBtn PROMPT "&OK" SIZE 160, 50 PIXEL ACTION( MsgInfo( cFilter ), oWnd:End() ) OF oWnd
#IFDEF __HMG__
END WINDOW
#ENDIF
DEFINE TIMER oTimer INTERVAL 100 ACTION (SnapToCtrl( oWnd, oBtn , oTimer ), oTimer:End() ) OF oWnd
ACTIVATE TIMER oTimer
// SetFocus() does not navigate Cursor to Position
oText_1:Setfocus()
// SnapToCtrl() should move Cursor to Position
// does not work at INIT
ACTIVATE WINDOW oWnd ON INIT SnapToCtrl( oWnd, oBtn , oTimer ) CENTER
RETURN
PROCEDURE SnapToCtrl( oParent, oObj, oTimer )
LOCAL hWnd, nTop, nLeft, nWidth, nHeight, nCol, nRow, aRect
LOCAL nTop0, nLeft0, nWidth0, nHeight0
* oParent:Setfocus()
* oParent:Refresh()
* oParent:CoorsUpdate()
* SysRefresh()
hWnd := oObj:hWnd
nTop0 := oParent:nTop
nLeft0 := oParent:nLeft
nWidth0 := oParent:nWidth
nHeight0 := oParent:nHeight
nTop := oObj:nTop
nLeft := oObj:nLeft
nWidth := oObj:nWidth
nHeight := oObj:nHeight
// Center of control
nRow := nTop0 + nTop + ( nHeight )
nCol := nLeft0 + nLeft + ( nWidth / 2 )
SETCURSORPOS( nCol, nRow )
oObj:Setfocus()
RETURN
Re: Position of Window CENTER ?
Posted: Mon Nov 14, 2022 9:28 am
by Antonio Linares
Dear Jimmy,
if you use a dialog instead of a window, the cursor will go automatically to the first focusable control
Re: Position of Window CENTER ?
Posted: Mon Nov 14, 2022 11:05 am
by Jimmy
hi Antonio,
Antonio Linares wrote:if you use a dialog instead of a window, the cursor will go automatically to the first focusable control
have change WINDOW to DIALOG and oWnd to oDlg but Result look total different
what i´m doing wrong
Code: Select all | Expand
#include "FiveWin.ch"
#define EM_SETSEL 0x00B1
PROCEDURE MAIN
LOCAL oDlg, oText_1, oBtn, cFilter := "*.*" + SPACE( 10 )
LOCAL oTimer
DEFINE DIALOG oDlg FROM 0, 0 TO 150, 200 PIXEL TITLE "Test Snap2Ctrl"
@ 010, 010 GET oText_1 VAR cFilter SIZE 160, 30 PIXEL OF oDlg
oText_1:PostMsg( EM_SETSEL, 0, LEN( TRIM( cFilter ) ) )
@ 050, 010 BUTTON oBtn PROMPT "&OK" SIZE 160, 50 PIXEL ACTION( MsgInfo( cFilter ), oDlg:End() ) OF oDlg
#IFDEF __HMG__
END DIALOG
#ENDIF
ACTIVATE DIALOG oDlg CENTER
RETURN
you are right ... but that is NOT what i want
in Sample the Cursor is "in" GET (1st Control see "
Marker") ... right ...
but Mouse-Cursor is not "over" BUTTON (for next ACTION)
what i do is to "move" Mouse-Cursor over BUTTON so i must not "move" my Mouse "to" BUTTON just "click"
please try my Workaround Sample (using TIMER) to "see" Effect
p.s. i use a Trackball because my wrist causes problems with the mouse after long use
Re: Position of Window CENTER ?
Posted: Mon Nov 14, 2022 11:19 am
by Antonio Linares
Dear Jimmy
Code: Select all | Expand
#include "FiveWin.ch"
#define EM_SETSEL 0x00B1
PROCEDURE MAIN
local oDlg, oText_1, oBtn, cFilter := "*.*" + SPACE( 10 )
DEFINE DIALOG oDlg FROM 0, 0 TO 150, 200 PIXEL TITLE "Test Snap2Ctrl"
@ 010, 010 GET oText_1 VAR cFilter SIZE oDlg:nWidth - 120, 10 PIXEL OF oDlg
@ 050, 010 BUTTON oBtn PROMPT "&OK" SIZE oDlg:nWidth - 120, 20 PIXEL ACTION( MsgInfo( cFilter ), oDlg:End() ) OF oDlg
ACTIVATE DIALOG oDlg CENTER ON INIT ( oText_1:PostMsg( EM_SETSEL, 0, Len( Trim( cFilter ) ) ), oBtn:SetFocus(), .F. )
RETURN
Re: Position of Window CENTER ?
Posted: Mon Nov 14, 2022 12:24 pm
by Jimmy
hi Antonio,
Ok, i have much to learn, thx
now it look OK but "handling" is not "exact" what i mean
a.) Use click "OK"
b.) User change "any" Selection (need Focus), most using TAB to navigate in a Window Form
and "click" while Mouse Cursor stay "over" BUTTON to "save"
so Mouse Cursor is not the same as SetFocus() to BUTTON
p.s. under DOS i have use F10 to "save" from any GET Position, later with Hot-Key
---
i want to simulate this Windows OS Setting in App
please try my Workaround Sample how Mouse Cursor "move" to BUTTON
Re: Position of Window CENTER ?
Posted: Mon Nov 14, 2022 2:39 pm
by Antonio Linares
Dear Jimmy,
FWH SetCursorPos() lets you place the mouse pointer where desired:
https://learn.microsoft.com/en-us/windo ... tcursorpos
Re: Position of Window CENTER ?
Posted: Mon Nov 14, 2022 3:10 pm
by Jimmy
hi Antonio,
Antonio Linares wrote:FWH SetCursorPos() lets you place the mouse pointer where desired:
YES, this is what i´m doing in PROCEDURE SnapToCtrl() of 1st full Sample
but i must use a TIMER instead of INIT to call SnapToCtrl() while else i got wrong (Original) Position before CENTER
as i have a Workaround so no Problem any more