[futurebasic] Re: [FB] Creating a Window command

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : December 2005 : Group Archive : Group : All Groups

From: Joe Smith <jsmithxx@...>
Date: Sun, 18 Dec 2005 12:31:03 -0500
First, I think that you have an error in the syntax of the Window statement:
_dialogFramed  should be   _dialogFrame

Second, make sure that the values that you use in the SIZE1, etc variables
are what you expect.  I did the following simple program and had no problem
creating a window centered on the screen.


dim as short wnum, size1, size2, size3, size4
dim as str255 wtit$


wnum   = 1
wtit$  = "test"
size1  = 0
size2  = 0
size3  = 450
size4  = 450

WINDOW wnum,wtit$,(size1,size2)-(size3,size4),_dialogFrame



Changing the value of SIZE1 and SIZE2 will move the window to an off-center
position on the screen.

Hope this helps

Joe

======================================




> From: <bheibert@...>
> Reply-To: futurebasic@...
> Date: Sun, 18 Dec 2005 10:34:58 -0600 (CST)
> To: futurebasic@...
> Subject: [FB] Creating a Window command
> 
> Hi,
> 
> I am trying to create a window command
> I tried this code but it puts  window
> way up high part of it not visible
> no matter what coordinates you enter
> 
> Here's the code:
> LONG IF left$(lineStr,10) = "WINDOWDIALOG'
> wnum = VAL(MID$(lineStr,12))
> size1 = VAL(MID$(lineStr,14))
> size2 = VAL(MID$(lineStr,16))
> size3 = VAL(MID$(lineStr,18))
> size4 = VAL(MID$(lineStr,20))
> wtit$ = MID$(lineStr,22)
> long if wnum=0 or wnum=1
> beep
> CALL PARAMTEXT ("Windows 0 & 1 are reserved.","","",'","")
> i = FN STOPALERT (128,0)
> xelse
> WINDOW wnum,wtit$,(size1,size2)-(size3,size4),_dialogFramed
> WINDOW OUTPUT wnum
> end if 
> end if
> 
> --
>