ddavison
January 22nd, 2010, 06:34
Here it is:
Inside graphics_frames.xml
<framedef name="scrollbar">
<bitmap file="frames/scrollbar.png" />
<top rect="0,0,20,31" />
<middle rect="20,0,20,94" />
<bottom rect="0,31,20,31" />
<decal rect="0,62,20,32" />
</framedef>
Template: Placed in desktop_templates.xml for the launcher ruleset:
<template name="scrollbar">
<genericcontrol name="campaignscrollbar">
<anchored>
<left>
<anchor>right</anchor>
</left>
<top>
<anchor>top</anchor>
</top>
<size>
<width>10</width>
<height>10</height>
</size>
</anchored>
<frame>
<offset>5,4,5,4</offset>
<name>scrollbar</name>
</frame>
<invisible />
<script>
function update()
if targetcontrol then
local sx, px, vx, sy, py, vy = targetcontrol.getScrollState();
local tw, th = targetcontrol.getSize();
th = th + 2*marginy
if vy < sy then
local pos = py/sy * th;
local height = vy/sy * th;
setAnchor("left", target[1], "right", "absolute", 1 + marginx);
setAnchoredWidth(10);
setAnchor("top", target[1], "top", "absolute", pos - marginy);
setAnchoredHeight(height);
setVisible(true);
else
setVisible(false);
end
end
end
function onInit()
targetcontrol = window[target[1]];
marginx = 0;
marginy = 0;
if barmargin and barmargin[1] and barmargin[1].x then
marginx = barmargin[1].x[1];
end
if barmargin and barmargin[1] and barmargin[1].y then
marginy = barmargin[1].y[1];
end
if targetcontrol then
targetcontrol.onScroll = update;
end
end
function onDrag(button, x, y, draginfo)
if targetcontrol then
if not dragging then
local sx, px, vx, sy, py, vy = targetcontrol.getScrollState();
dragstarty = y;
dragstartpos = py;
dragfactor = sy/vy;
end
dragging = true;
targetcontrol.setScrollPosition(0, dragstartpos + (y - dragstarty)*dragfactor);
end
return true;
end
function onDragEnd()
dragging = false;
end
</script>
</genericcontrol>
</template>
Usage (placed inside windowclass at the bottom of sheedata:
<scrollbar name="patchnotebar">
<barmargin>
<x>1</x>
<y>10</y>
</barmargin>
<target>patchnotes</target>
</scrollbar>