OpenEuphoria

Re: Re[2]: win32lib v0.57.4 released

• Posted by Wolf <wolfritz at KING.IGS.NET> May 07, 2002
• 433 views

Since  Derek's  'away"...
> >> > - "by Thomas Parslow". GDI resource leak using wPuts and queryFont 

Does this example trash XP as nicely !  ...as it does Win98 ?
Just *minimize* after running !
( 'hard' reboot may be req.  ...if you run it a few times...   :(  )
Works OK using 0.55.5.
----
include win32lib.ew
constant
blank=create(Window,"",0,10,10,300,200,0)
setWindowBackColor(blank,BrightWhite)
procedure draw(integer i)
if remainder(i,2) then setPenColor(blank,Blue)
else setPenColor(blank,Red) end if
drawRectangle(blank,1,1,1,99,99)
end procedure
showWindow(blank,1)
for i = 1 to 20000 do
draw(i)
end for
WinMain(blank,Normal)
----