Dapo Совершенно справедливо! Но на практике наверное не очень удобно каждый раз на WM_PAINT создавать и убивать Cnvs... лучше сделать его пропертью.
Но не ужели нет варианта каким-нибудь образом попытаться заставить windows отрисовывать кнопку др. цветом? Возможно ли на время отрисовки TButton изменить значение BtnFaсe например?...
Мне кажется что вопрос был задан именно в этом направление.

Не...
Я не сдамся!!!
Отвечаю, кнопка как живая, потому что я отступаю от краёв, если не отступать, то получится просто не живой цветной прямоугольник, а тут именно кнопка, зацените.
Вот готовый код.
Caption работает!!! Всё готово!!!

Код

var capt:string; procedure KickBitBtn(frag:TBitBtn; clr:TColor; board:integer);overload; var bmp:Tbitmap; begin if (frag.Caption<>'') then capt:=frag.Caption; frag.Caption:=''; if board>0 then board:=board+1 else board:=-1; with bmp do begin bmp:=TBitmap.Create; Height:=frag.Height-2*board; Width:=frag.Width-2*board; with Canvas do begin Brush.Color:=clr; FillRect(Rect(0, 0,Width-1, Height-1)); TextOut((Width div 2)-(TextWidth(Capt)div 2 ),(Height div 2)-(TextHeight(Capt) div 2),Capt); end; frag.Glyph:=bmp; end; end;

Всё теперь всё работает, кнопка просто кидается на форму,
после Implementation прописываем этот код (сверху),
И теперь когда надо перекрасить просто вызываем эту процедеру:

Код

KickBitBtn(BitBtn1, clblue, 2);

и кнопка перекрашиваеися в указаный цвет.
Если надо создать уже "накрашенную" пихаем запуск процедуры в
OnCreate;
Просто сделайте как я говорю, и все будет чики-пуки!


Это сообщение отредактировал(а) Sarge - 3.6.2003, 13:57

>>frag.Glyph:=bmp;//используешь св-во Glyph

Так что на счет TButton?

Цитата(Unregistered @ 3.6.2003, 05:35)

Dapo ... лучше сделать его пропертью...

Конечно лучше! :-) Возвращаемся к коду Pegas-a (создание собственного компонента). Расширяем?

Button- никак не перекрасишь она использует цвета Windows, а другую BitBtn.Color если не ошибаюсь.

Dapo так я же говорю, что если во время WM_PAINT изменить системную константу BtnFace, кажеться так она называется, интересно что получиться... ща просто занят немного, освобожусь попробую...

Цитата(Pasha @ 4.6.2003, 09:46)

Button- никак не перекрасишь она использует цвета Windows, а другую BitBtn.Color если не ошибаюсь.

Прежде чем ввязываться в дисскуссию, читайте пожалуйста темы с самого начала,

Странно, кажется идеи закончились, и каждый остался при своём мнении...

Закрасил так же кнопочку. Единственное, хотел бы обратить внимание на 

Лучше bmp объявить сразу после implementation



Само создание сделать так:

так как необязательно его создавать каждый раз заново

ну и не забывать его освобождать, например по событию формы дестрой:


а то утечки будут. Если я заблуждаюсь, подправьте меня, пожалуйста.

Добавлено @ 18:07
пы сы: темка старая, но до сих пор актуальная 

Это сообщение отредактировал(а) Чoо - 7.8.2010, 14:50

Чoо, нет, за 7 лет ему ужн точно не надо. Не делай так больше.

bems, я тему апнул не просто что бы апнуть или посоветовать что-то автору. Просто решил, что, поскольку я так же закрашиваю кнопки, кто-то и еще может воспользоваться примером, написанным выше. Поэтому написал пару замечаний на счет утечек. И у самого же возник вопрос: так ли опасны эти утечки, что стоит им уделять внимание, и освобождаются ли ресурсы, если уничтожается дочерняя форма, которая заняла эти ресурсы (создала bmp.create)?

вобщем тему поднял только из добрых побуждений.

Это сообщение отредактировал(а) Чoо - 7.8.2010, 11:51