A bit smarter image handling.

pixler.bas

@@ -325,8 +325,8 @@ sub toolbox
 end sub
 
 sub colorpicker
-    dim img as long
-    img=_newimage(16,16,32)
+    static img as long
+    if img=0 then img=_newimage(16,16,32)
     for i=0 to ubound(pal)
         _dest img
         cls,pal(i)
@@ -341,7 +341,6 @@ sub colorpicker
                 addcommand"bcolor ("+hex$(pal(i))+")"
         end select
     next i
-    _freeimage img
 end sub
 
 sub addcommand(cmd as string)