Вверх ↑
Ответов: 5227
Рейтинг: 585
#1: 2019-03-30 10:26:59 ЛС | профиль | цитата
Чего не сделать из за волшебного слова
Завёрнуто в компонент, динамическая смена скинов и скин из стрима.
Версия не последняя но рабочая (наработки погибли с hdd но флешки иногда делают полезные дела)
Для графических контролов процедуру Init правим самостоятельно (должно работать как в моих exe)
Пример для светодиода:

   Control := NewPaintbox(FParent);
Control.SubClassName := 'THILed'; <- добавляем имя класса
inherited;
PenGray := CreatePen(ps_Solid,1,clGray);
PenWhite := CreatePen(ps_Solid,1,clWhite);
FBr1 := CreateSolidBrush(Color2RGB(FColors[0]));
FBr2 := CreateSolidBrush(Color2RGB(FColors[1]));
FPen1 := CreatePen(ps_Solid,1,Color2RGB(FColors[1]));
FPen2 := CreatePen(ps_Solid,1,Color2RGB(FColors[2]));
FPen3 := CreatePen(ps_Solid,2,clWhite);
FPen5 := CreatePen(ps_Solid,2,Color2RGB(FColors[0]));
Control.onPaint := _onPaint;
Control.OnClick := _OnClick;

сделайте кто нибудь иконку пожалуйста.

p.s в принципе косячные диалоги можно в dll воткнуть, благо исходники сохранились.
у кого архив не откроется смените расширение на 7z
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0