OpenEuphoria

Re: Stellar Project

• Posted by gwalters Nov 19, 2012
• 1494 views

Can someone explain my mistake?

This does not work but I need it to work

procedure starWindowOpen (integer self, integer event, sequence params)--params is () 
	atom hbitmap 
	 
	hbitmap =  createDIB( {pal, starTable[3]} ) 
	drawBitmap(pixWindow,hbitmap, 100,100) 
	copyBlt(starWindow,0,0,pixWindow) 
 
	 
end procedure 
 
	setHandler( starWindow, w32HOpen, routine_id("starWindowOpen")) 
	 
	WinMain(starWindow, Normal) 

This does work but I don't want the object where it puts it.

procedure starWindowOpen (integer self, integer event, sequence params)--params is () 
	atom hbitmap 
	 
	hbitmap =  createDIB( {pal, starTable[3]} ) 
	drawBitmap(bitWindow,hbitmap, 100,100) 
	setBitmap(bitWindow, hbitmap) 
	 
end procedure 
 
	setHandler( starWindow, w32HOpen, routine_id("starWindowOpen")) 
	 
	WinMain(starWindow, Normal) 

Any ideas what I am doing wrong.. thanks for help