mirror of
https://github.com/ultimatepp/ultimatepp.git
synced 2026-05-16 14:16:09 -06:00
22 lines
555 B
Text
22 lines
555 B
Text
ctrl QtfCtrl {
|
|
group "Static";
|
|
|
|
GetMinSize() { return Size(0, 0); }
|
|
GetStdSize() { return Size(64, 24); }
|
|
|
|
Doc SetLabel @1 ? "Label of control" ;
|
|
bool VCenter = false ? "Vertical center";
|
|
Color Background = :SWhite ? "Background color";
|
|
int Zoom = 140;
|
|
Frame SetFrame @1;
|
|
Qtf SetInfo @1 ? "Info of control" ;
|
|
|
|
Paint(w) {
|
|
sz = GetSize();
|
|
w.DrawRect(0, 0, sz.cx, sz.cy, .Background);
|
|
y = 0;
|
|
if(.VCenter)
|
|
y = (sz.cy - GetQtfHeight(.Zoom, .SetLabel, sz.cx)) / 2;
|
|
w.DrawQtf(.Zoom, 0, y, .SetLabel, sz.cx, .Background);
|
|
}
|
|
}
|