Компонент UpDown. Проблема со вставкой картинок.

[z-wer]

Собственно решил попробовать создать компонент наподобие апдауна.
Проблема возникла со вставкой картинок в кнопки.
За основу была взята кнопка, немного переработанная под свои потребности. Что то типа speedbutton.

Заготовку updown прикрепил.

[Stilet]

Undeclared identifier: 'TImButton'
Ты под какую версию Делфи пишешь?

P.S. Да кстати, если написание компонента не есть производственной необходимостью, то можно накидать все что нужно на Frame - это будет а-ля компонент.

[z-wer]

Версия седьмая.

Пардон, мозги опухли.

Приклеил ImButton.pas

Это почти готовый компонент, на основе которого я и пытался сообразить апдаун.

[Stilet]

Вот так я его создаю на форме:

procedure TForm1.FormCreate(Sender: TObject);
begin
 b:=TUpDownButton.Create(self);
 b.Parent:=self;
 b.Width:=50;
 b.Height:=50;
 b.Top:=100;
 b.Left:=100;
 b.Show;
end;

У меня в Д6 он вот как слажал:

[z-wer]

У меня прорисовка кнопки нормально.
Вопрос в том как в эту кнопку втиснуть картинку, я с графикой очень мало сталкивался.

В ИмВаттон все нормально. Только иногда при смене картинки были мерцания. Но вроде этот дефект я поборол.

[z-wer]

Что бы в инспекторе, в свойствах можно было выбирать нужный ico, bmp, и т.д

[z-wer]

В принципе проблема решена.

Всем удачи.