OpenEuphoria

RE: Bitmap clearing

• Posted by Brian Broker <bkb at cnw.com> Jan 23, 2003
• 656 views

Patrick.Barnes at transgrid.com.au wrote:
> If I have a win32lib pixmap, what is the quickest/easiest way to clear 
> all of it to a given background color?
  ------------------------------
-- PROCEDURE: clearWindow
--   Clear a window/pixmap to a particular color
--  Parameters:
--    id: ID of Window/Pixmap
--    color: color to paint Window/Pixmap
  ------------------------------
global procedure clearWindow( integer id, integer color )
   sequence p

   p = getCtlSize( id )
  
   setPenColor( id, color )
   drawRectangle( id, 1, 0, 0, p[1], p[2] )
end procedure

-- Brian