Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Рисование на TButton [D7, WinXP]


MSTX ©   (2004-07-25 14:18:00) 

Здравствуйте!

Подскажите пожалуйста, как можно рисовать на компоненте TButton, ведь у него нет свойства Canvas?

Заранее благодарен


malkolinge   (2004-08-10 20:31:00) [1]


> vertex ©   (25.07.04 14:27) [2]
> проще:
>
> var canvas:tcanvas;
> begin
> canvas:=tcanvas.create;
> canvas.handle:=GetDC(Button.Handle);
> ...

Прикольно вот только нужно еще момент КОГДА делать отрисовку поймать.


MSTX   (2004-07-25 16:58:00) [2]

Т.е. если этого свойства нет, его следует создать? Всего-то!
Первый способ мне больше подходит, т.к. это мне надо именно для создания компонента.

P.N.P., vertex, благодарю за ответы!


vertex   (2004-07-25 14:27:00) [3]

проще:

var canvas:tcanvas;
begin
canvas:=tcanvas.create;
canvas.handle:=GetDC(Button.Handle);
...


P.N.P.   (2004-07-25 14:23:00) [4]

Сделать наследника с Canvas

type

 TMyBtn = class(TButton)
 private
   FCanvas: TCanvas;
....


Посмотри, как сделана TBitBtn


Наверх

Титульная страница Поиск, карта сайта Написать письмо