mirror of
https://github.com/ultimatepp/ultimatepp.git
synced 2026-05-17 14:16:10 -06:00
22 lines
No EOL
486 B
Text
22 lines
No EOL
486 B
Text
ctrl MediaPlayer {
|
|
group "Complex";
|
|
|
|
GetMinSize() { return Size(0, 0); }
|
|
GetStdSize() { return Size(140, 140); }
|
|
|
|
Frame SetFrame @1;
|
|
|
|
Paint(w) {
|
|
r = GetRect();
|
|
|
|
DrawCtrlFrame(w, r, .SetFrame);
|
|
|
|
sz = Size(r.right - r.left, r.bottom - r.top);
|
|
|
|
DeflateRect(r);
|
|
sz = Size(r.right - r.left, r.bottom - r.top);
|
|
w.DrawRect(r.left, r.top, sz.cx, sz.cy, :SWhite);
|
|
img = "Media:MediaPlayer.iml:Image";
|
|
w.DrawImage(r.left, r.top, sz.cx, sz.cy, img);
|
|
}
|
|
} |