this that and the other.

This commit is contained in:
visionmercer 2026-06-08 12:23:37 +02:00
commit 1cc76d6c2a

View file

@ -10,7 +10,7 @@ type statetype
starty as long
isdrawing as integer
end type
''
type layertype
ihandle as long
blendmode as long
@ -33,7 +33,7 @@ dim shared rmousedown as integer
$resize:on
screen _newimage(750,480,32)
_delay 0.1
temp&=_resize
dim temp as long:temp=_resize
redim shared pal(0) as _unsigned long
loadpalette"custodian-8",pal()
@ -273,7 +273,6 @@ sub listcontextmenu (index as long, mx as integer, my as integer)
end if
end if
' --- RENDER ENTRIES VIA UI BUTTONS ---
dim bx as integer: bx = x + 2
dim by as integer: by = y + 2
dim bw as integer: bw = menuw - 4
@ -290,7 +289,6 @@ sub listcontextmenu (index as long, mx as integer, my as integer)
done = -1
end if
by = by + 24
' Item 2: Move Up (moves toward end of array visually)
if button(bx, by, bw, bh, "Move Up") then
if index < ubound(commands) - 2 then
@ -979,7 +977,6 @@ sub do.polygon(x as long,y as long)
thickline polypoints((pointcount-1)*2),polypoints((pointcount-1)*2+1),x,y,state.fcolor
end if
end if
_source osource
_dest odest
end if