TSpeedButton + Flat + "onMouseOver"

[vitaly_l]

Всем доброй недели.
Есть кнопка TSpeedButton.
В режиме Flat := true; (плоская)
На ней картинка. Всё замечательно работает.
При наведении мышкой (далее onMouseOver), кнопка активируется, белеет и типа приподнимается за счёт визуально появления углов.

Вопрос в следующем:
Как при "onMouseOver", у TSpeedButton отключить высветление?
Как при "onMouseOver", у TSpeedButton отключить угла-рисование?

Сторонние компоненты - не предлагайте, пожалуйста.


.

[SeZuka]

Может вместо TSpeedButton использовать TImage, либо создать свой компонент из TSpeedButton и переопределить ее поведение.

[vitaly_l]

Может вместо TSpeedButton использовать TImage

Спасибо добрый SeZuka.
Возможно Вы правы, если TImage позволяет загружать картинки из ImageList...
А он скорее всего позволяет это делать... То ... TImage - это самая лучшая кнопка...
Даже при не очень большом желании из неё, действительно можно сделать всё что угодно...
Но я уже сделал на TSpeedButton ... Всё переделывать?

создать свой компонент из TSpeedButton и переопределить ее поведение

Я не умею переопределять поведение компонентов... дополнить могу, а переопределить... увы
И даже не представляю как это можно делать? Собственно я это и прошу или нет?

Добавлено спустя 4 минуты 50 секунд:
Хотя-бы, отменить выбеливание при наведении мышкой, т.к. оно выбеливает и картинку на TSpeedButton - можно? ...



.

Добавлено спустя 3 часа 15 минут 20 секунд:
Судя по всему нельзя... Злые Вы... Уйду я от вас... к Карлсону уйду...
Потому что, он(Карлсон) - любит варенье и приведений...

Неужели нельзя отменить выбеливание TSpeedButton, при onMouseMove? А?
У меня доброе волшебное слово есть: Пожалуйста...


/

Добавлено спустя 34 минуты 3 секунды:
Ура... нашёл, что такое переопределить...
Если кому понадобиться оно(переопределить) выглядит так:

Код: Выделить всё

TSpeedButton=class(Buttons.TSpeedButton)
   procedure wmp(var m:TWMPaint);message WM_PAINT;
  end;


взято здесь: http://www.programmersforum.ru/showthread.php?t=109097