Завёрнуто в компонент, динамическая смена скинов и скин из стрима.
Версия не последняя но рабочая (наработки погибли с 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
Поиск
Друзья
Администрация