OpenEuphoria

Re: Win32lib questions...

• Posted by Brian Broker <bkb at CNW.COM> Aug 24, 2000
• 621 views

On Thu, 24 Aug 2000 17:51:46 -0700, LEVIATHAN wrote:

>Heya all!
>
>I'm trying to get these things to work, but unfortunatly, to no avail.
>
>1st, setPenColor, setTextColor, these don't seem to work.
>2nd, drawRectangle, drawRoundRectangle, drawPolygon - these
>don't seem to work either.

You are trying to draw stuff on a window that isn't there yet.  Try putting
them into your 'onPaint' routine (this way they won't disappear when
another window covers up your window).


procedure onPaint_newForm( integer x1, integer y1, integer x2, integer y2 )
  setPenColor(newForm, rgb(81,144,0))
--      drawRectangle(newForm, False, 223, 166, 466, 329)
--      drawRectangle(newForm, False, 480, 166, 628, 244)
  setPenWidth(newForm, 3)
  drawPolygon(newForm, False, pointset1)
  drawPolygon(newForm, False, pointset2)
--  setPenColor(newForm, 13520)
end procedure
onPaint[newForm] = routine_id( "onPaint_newForm" )