You can put this code in your onAfterStart EEP of the form and it will move
the form to 0,0.
{begin code}
{
This is the API function.
Details of this function are at:
http://msdn.microsoft.com/en-us/library/windows/desktop/ms633545(v=vs.85).aspx
BOOL WINAPI SetWindowPos(
__in HWND hWnd,
__in_opt HWND hWndInsertAfter,
__in int X,
__in int Y,
__in int cx,
__in int cy,
__in UINT uFlags
);
}
IF (ChkFunc('SetWindowPos')) = 0 THEN
-- even though the API returns a BOOL we use an INTEGER in RBASE. 1 = TRUE 0
= FALSE
STDCALL function 'SetWindowPos' (Integer, Integer, Integer, Integer,
Integer, Integer, Integer) : Integer
ENDIF
SET VAR vHWND INTEGER = 0 -- the HANDLE of the Rbase Form
SET VAR vInsAfter = -1 --HWND_TOPMOST
SET VAR vLeft INTEGER = 0 -- x
SET VAR vTop INTEGER = 0 -- y
SET VAR vWidth INTEGER = 400 -- cx
SET VAR vHeight INTEGER = 600 -- cy
SET VAR vFlags INTEGER = (1 + 512) --SWP_NOSIZE +SWP_NOREPOSITION
SET VAR vretval INTEGER = 0
SET VAR vhwndtext TEXT = ''
GETPROPERTY RBASE_FORM handle 'vHwndText'
--PAUSE 2 USING .vhwndtext
SET VAR vHWND = (INT(.vhwndtext))
SET VAR vretval = +
(DLCall('User32', 'SetWindowPos', vFlags, vHeight, vWidth, vTop, vLeft,
vInsAfter, vHWND))
RETURN
{end code}
----- Original Message -----
From: "Steve Breen" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Sunday, July 15, 2012 5:28 AM
Subject: [RBASE-L] - What is the beast way to get a form to stay or start up
to the left top of windows screen in rbase 76
What is the best way to get a form to stay or start up to the left top
of windows screen in R: Base 76
Using dual monitors and forms open in center and are spit in two.
Screen are set for horizontal stretch
Stephen Breen
--- RBASE-L
================================================
TO POST A MESSAGE TO ALL MEMBERS:
Send a plain text email to [email protected]
(Don't use any of these words as your Subject:
INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH,
REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP)
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: INTRO
================================================
TO UNSUBSCRIBE:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: UNSUBSCRIBE
================================================
TO SEARCH ARCHIVES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: SEARCH-n
(where n is the number of days). In the message body,
place any
text to search for.
================================================
