ultimatepp/archive/uppsrc/TCtrlLib/TCtrlLib.usc
cxl 5b610cc0e6 upp.src: reorganize (TCore... moved to archive)
git-svn-id: svn://ultimatepp.org/upp/trunk@14426 f0d560ea-af0d-0410-9eb7-867de7ffcac7
2020-05-03 08:26:26 +00:00

28 lines
646 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";
}