A bit smarter image handling.

This commit is contained in:
visionmercer 2026-05-20 11:30:31 +02:00
commit 3c35f4cc8a

View file

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