/
dinruspro
/
reference
Обзор
Документация
Войти
/
dinruspro
/
reference
Код
Запросы
0
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
main
Counter/Counter.usc
20 строк
536 B
EnergonV
Справка по коду перекочевала в репозиторий (наконец-то!)
09 янв 2024, 19:20
09 янв 2024, 19:20
e333663
Код
Авторство
О чём код?
ctrl CounterCtrl { group "Example"; GetMinSize() { sz = GetTextSize("X"); sz.cy += 2; return sz; } GetStdSize() { sz = GetMinSize(); sz.cx *= 7; return sz; } Frame SetFrame = BlackFrame() @2; Font SetFont = StdFont(); Color Ink = :SBlack; Color Paper = :SWhite; Paint(w) { r = GetRect(); DrawCtrlFrame(w, r, .SetFrame); w.DrawRect(r, .Paper); textsize = GetTextSize("0", .SetFont); w.DrawText((r.right + r.left - textsize.cx) / 2, (r.bottom + r.top - textsize.cy) / 2, "0", .SetFont, .Ink); } };