Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Как добавить свойство Flat к компанентам? 


Baron   (2002-01-17 11:33) [0]

Мастера подскажите как самому сделать чтобы компаненты были со свойством Flat. Так, к примеру, сделано у FlatControls фирмы AfalinaSoft.



gek   (2002-01-17 11:35) [1]

Писать свой компонет



valery_f   (2002-01-17 11:44) [2]

Своя компонента с перехватом CM_MOUSEENTER/CM_MOUSELEAVE и соответствующей перерисовкой.



Baron   (2002-01-17 11:57) [3]

Это и так понятно!!! А более конкретно кто-нибудь может сказать?



Digitman   (2002-01-17 13:09) [4]

А загляни-ка в модуль Buttons в реализацию методов TSpeedButton.SetFlat() и TGraphicControl.Paint() на предмет, как действует сам Борланд, реализуя св-во TSpeedButton.Flat. Да на пиши по образу и подобию свой код !



paul_shmakov   (2002-01-17 16:32) [5]

2 Baron:
а что более конкретно? все правильно говорят, пишите свой компонент, наследник от стандартного. перехватывайте в нем процедуру рисования, обрабатывай события CM_MOUSEENTER/CM_MOUSELEAVE.

в кладовку выложил пример - TFlatBtn




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
1-8845            Eraser                2002-01-21 10:58  2002.02.04  
Где sleep


4-9037            Искатель              2001-12-07 23:22  2002.02.04  
Как получить значок, связанный с логическим диском?


6-8969            Hawk                  2001-11-11 20:20  2002.02.04  
Разрыв связи между TServerSocket и TClienSocket


1-8886            Dmitriy_R             2002-01-15 13:51  2002.02.04  
Генерация случайного числа в диапазоне 30......90


1-8823            dzk                   2002-01-20 00:54  2002.02.04  
Загрузка из ресурса текста в кавычках