1. IDE V.18 squares on form?
Judith,
I just got the latest IDE to begin work on another project and when I
start the program I get the standard Win32Lib warning window about
drawRectangle() failed. If I click Yes I get 5-7 more such warnings
before the main window appears.
I'm assuming it's related to the squares now drawn on the form? I
looked in the docs and couldn't find anything about this. What is the
purpose of these squares and is it possible to not display them?
Thanks,
Jonas
2. Re: IDE V.18 squares on form?
----- Original Message -----
From: "Judith Evans" <camping at txcyber.com>
To: "EUforum" <EUforum at topica.com>
Subject: RE: IDE V.18 squares on form?
>
> I sent this little program to Jonas to see if it also produced the 'boxes'
> effect on his machine. It tells me it does. I works fine on my win98SE
> producing a bunch of dots on my screen but on Jonas's system it produces
> many dark bordered boxes each about 25 dots (his zipped screen shot
> attached).
>
> I'd like anyone that can help to test on their various Op systems and let me
> know if it works or not.
>
> TIA,
> --judith
[snip]
Windows ME: Shows dots.
--
Derek
3. Re: IDE V.18 squares on form?
Judith,
Shows full window of blue dots on 98 1st ed.
Dan Moyer
----- Original Message -----
From: "Judith Evans" <camping at txcyber.com>
To: "EUforum" <EUforum at topica.com>
Subject: RE: IDE V.18 squares on form?
>
> I sent this little program to Jonas to see if it also produced the 'boxes'
> effect on his machine. It tells me it does. I works fine on my win98SE
> producing a bunch of dots on my screen but on Jonas's system it produces
> many dark bordered boxes each about 25 dots (his zipped screen shot
> attached).
>
> I'd like anyone that can help to test on their various Op systems and let
me
> know if it works or not.
>
> TIA,
> --judith
>
> --code follows:
> include win32lib.ew
> without warning
>
> sequence sizeS
> sizeS=getRect(Screen)
>
> constant win=createEx(Window,"test grid",0,Default,Default,400,300,0,0)
> constant tile=createEx(Pixmap, "a",win,-40,0,40,40,0,0)
> constant GridBlit=createEx(Pixmap,"",win,-1,-1,sizeS[3],sizeS[4],0,0)
> constant ControlBlit=createEx(Pixmap,"",win,-2,-2,sizeS[3],sizeS[4],0,0)
> integer SnapSize, GridDots, GridLines, GridColor
> SnapSize=4
> GridDots=True
> GridLines=False
> GridColor=BrightBlue
>
> procedure drawGrid( integer id )
> sequence size
> integer blitsize, many, many1, many2
>
> blitsize=20
> many = floor( blitsize/SnapSize )
> many1 = blitsize - ( many*SnapSize )
> many2 = SnapSize - many1
> blitsize+=many2
>
> size = getRect( Screen )
>
> if not SnapSize then
> return
> end if
>
> setPenColor( id, GridColor )
> setPenColor( tile, GridColor )
>
> if GridDots then
>
> if SnapSize < 41 then
> for i=0 to blitsize by SnapSize do
> for j=0 to blitsize by SnapSize do
> drawLine( tile, i, j, i+1, j+1 )
> end for
> end for
>
> for i=0 to size[3] by blitsize do
> for j=0 to size[4] by blitsize do
> copyBlt( id, i, j, tile )
> end for
> end for
> else
> for i=0 to size[3] by SnapSize do
> for j=0 to size[4] by SnapSize do
> drawLine( id, i, j, i+1, j+1 )
> end for
> end for
> end if
>
> else
>
> for i = 0 to size[3] by SnapSize do
> drawLine( id, i, 0, i, size[4] )
> end for
>
> for i = 0 to size[4] by SnapSize do
> drawLine( id, 0, i, size[3], i )
> end for
>
> end if
>
> end procedure
>
> procedure Activate_win(integer self, integer event, sequence params)
> sequence size
>
> size=getClientRect(win)
> setPenColor(GridBlit,getSysColor(COLOR_BTNFACE))
> drawRectangle(GridBlit,True,0,0,size[3],size[4])
> setPenColor(tile,getSysColor(COLOR_BTNFACE))
> drawRectangle(tile,True,0,0,40,40)
> drawGrid(GridBlit)
> copyBlt(ControlBlit,0,0,GridBlit)
> bitBlt(win,0,0,ControlBlit,0,0,size[3],size[4],SRCCOPY )
> end procedure
> setHandler(win,w32HActivate,routine_id("Activate_win"))
>
>
> WinMain(win,Normal)
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>
4. Re: IDE V.18 squares on form?
Judith,
Shows just the window full of blue dots on my XP and W2K,
however on both these if I bring another window in front of the test
and then return to the test window I've lost all the blue dots...
Pete
----- Original Message -----
From: "Judith Evans" <camping at txcyber.com>
To: "EUforum" <EUforum at topica.com>
Subject: RE: IDE V.18 squares on form?
>
> I sent this little program to Jonas to see if it also produced the 'boxes'
> effect on his machine. It tells me it does. I works fine on my win98SE
> producing a bunch of dots on my screen but on Jonas's system it produces
> many dark bordered boxes each about 25 dots (his zipped screen shot
> attached).
>
> I'd like anyone that can help to test on their various Op systems and let
me
> know if it works or not.
>
> TIA,
> --judith
>
> --code follows:
> include win32lib.ew
> without warning
>
> sequence sizeS
> sizeS=getRect(Screen)
>
> constant win=createEx(Window,"test grid",0,Default,Default,400,300,0,0)
> constant tile=createEx(Pixmap, "a",win,-40,0,40,40,0,0)
> constant GridBlit=createEx(Pixmap,"",win,-1,-1,sizeS[3],sizeS[4],0,0)
> constant ControlBlit=createEx(Pixmap,"",win,-2,-2,sizeS[3],sizeS[4],0,0)
> integer SnapSize, GridDots, GridLines, GridColor
> SnapSize=4
> GridDots=True
> GridLines=False
> GridColor=BrightBlue
>
> procedure drawGrid( integer id )
> sequence size
> integer blitsize, many, many1, many2
>
> blitsize=20
> many = floor( blitsize/SnapSize )
> many1 = blitsize - ( many*SnapSize )
> many2 = SnapSize - many1
> blitsize+=many2
>
> size = getRect( Screen )
>
> if not SnapSize then
> return
> end if
>
> setPenColor( id, GridColor )
> setPenColor( tile, GridColor )
>
> if GridDots then
>
> if SnapSize < 41 then
> for i=0 to blitsize by SnapSize do
> for j=0 to blitsize by SnapSize do
> drawLine( tile, i, j, i+1, j+1 )
> end for
> end for
>
> for i=0 to size[3] by blitsize do
> for j=0 to size[4] by blitsize do
> copyBlt( id, i, j, tile )
> end for
> end for
> else
> for i=0 to size[3] by SnapSize do
> for j=0 to size[4] by SnapSize do
> drawLine( id, i, j, i+1, j+1 )
> end for
> end for
> end if
>
> else
>
> for i = 0 to size[3] by SnapSize do
> drawLine( id, i, 0, i, size[4] )
> end for
>
> for i = 0 to size[4] by SnapSize do
> drawLine( id, 0, i, size[3], i )
> end for
>
> end if
>
> end procedure
>
> procedure Activate_win(integer self, integer event, sequence params)
> sequence size
>
> size=getClientRect(win)
> setPenColor(GridBlit,getSysColor(COLOR_BTNFACE))
> drawRectangle(GridBlit,True,0,0,size[3],size[4])
> setPenColor(tile,getSysColor(COLOR_BTNFACE))
> drawRectangle(tile,True,0,0,40,40)
> drawGrid(GridBlit)
> copyBlt(ControlBlit,0,0,GridBlit)
> bitBlt(win,0,0,ControlBlit,0,0,size[3],size[4],SRCCOPY )
> end procedure
> setHandler(win,w32HActivate,routine_id("Activate_win"))
>
>
> WinMain(win,Normal)
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>
