Вверх ↑
Ответов: 5227
Рейтинг: 587
#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