ultimatepp/uppsrc/TCtrlLib/TCtrlLib.usc
mdelfede 263ff5f895 changed svn layout
git-svn-id: svn://ultimatepp.org/upp/trunk@281 f0d560ea-af0d-0410-9eb7-867de7ffcac7
2008-06-07 22:31:27 +00:00

28 lines
618 B
Text

ctrl ArrayPair {
> ArrayCtrl;
bool Vert = false;
group "Complex";
Paint(w) {
r = GetRect();
mx = (r.left + r.right) / 2;
my = (r.top + r.bottom) / 2;
HGAP = 4;
VGAP = 4;
BGAP = 2 * VGAP;
BUTTON = 24;
if(.Vert) {
PaintArray(w, Rect(r.left, r.top, r.right, my - (BUTTON >> 1) - VGAP));
PaintArray(w, Rect(r.left, my + (BUTTON >> 1) + VGAP, r.right, r.bottom));
}
else {
PaintArray(w, Rect(r.left, r.top, mx - (BUTTON >> 1) - HGAP, r.bottom));
PaintArray(w, Rect(mx + (BUTTON >> 1) + HGAP, r.top, r.right, r.bottom));
}
}
}
ctrl ValueArrayCtrl {
> ArrayCtrl;
group "Complex";
}