copy(backup_align, layertodrag.align);
copy(backup_edge, layertodrag.backup_edge);
layertodrag.changeorigin(lefttop,lefttop);
set(layertodrag.align,lefttop);
set(layertodrag.edge,lefttop);
layertodrag.updatepos();
copy(start_lx, layertodrag.pixelx);
copy(start_ly, layertodrag.pixely);
copy(start_mx, global.mouse.x);
copy(start_my, global.mouse.y);
asyncloop(caller.pressed,
calc(layertodrag.x, start_lx + global.mouse.x - start_mx);
calc(layertodrag.y, start_ly + global.mouse.y - start_my);
clamp(layertodrag.x, 1, calc(global.stagewidth - layertodrag.pixelwidth - 1));
clamp(layertodrag.y, 1, calc(global.stageheight - layertodrag.pixelheight - 1));
,
layertodrag.changeorigin(get(backup_align),get(backup_edge));
);
calc(name_inc, name + '_inc');
calc(name_dec, name + '_dec');
addlayer(get(name_inc));
addlayer(get(name_dec));
copy(layer_inc, layer[get(name_inc)]);
copy(layer_dec, layer[get(name_dec)]);
layer_inc.loadstyle(dmht_button);
layer_dec.loadstyle(dmht_button);
copy(layer_inc.parent, name);
copy(layer_dec.parent, name);
set(layer_inc.align, right);
set(layer_dec.align, left);
set(layer_inc.html, '+');
set(layer_dec.html, '-');
set(layer_inc.ondown, set(stepdir,+1); dmht_value_control_incdec_ondown(); );
set(layer_dec.ondown, set(stepdir,-1); dmht_value_control_incdec_ondown(); );
copy(t1,timertick);
asyncloop(pressed,
calc(dt,timertick - t1);
if(dt GT 500,
callwith(calc('layer['+parent+']'),
calc(dt,timertick - t1);
calc(stepscale, dt GT 2000 ? (dt / 1000) : 1.0);
getvar();
calc(var, var + stepdir * stepscale * varstep / display.currentfps);
setvar();
);
);
,
calc(dt,timertick - t1);
if(dt LT 500,
callwith(calc('layer['+parent+']'),
getvar();
calc(var, (var + stepdir * varstep) / varstep);
Math.round(var);
calc(var, var * varstep);
setvar();
);
);
);
copy(startx, mouse.stagex);
copy(starty, mouse.stagey);
getvar();
copy(startv, var);
asyncloop(pressed,
calc(dx, (mouse.stagex - startx) / stagewidth );
calc(dy, (mouse.stagey - starty) / stageheight );
if(dx*dx GT dy*dy,
calc(var,startv + dx * vardragrange);
,
calc(var,startv + dy * vardragrange);
);
setvar();
);