OpenEuphoria

Re: IDE V.18 squares on form?

• Posted by Dan Moyer <DANIELMOYER at prodigy.net> Oct 01, 2003
• 472 views

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!
>
>