Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

Как сделать прозрачным фон TAnimate?   Найти похожие ветки 

 
_Дельфин_   (2004-12-10 18:38) [0]

Подскажите, пожалуйста, мне нужно, чтобы фон в Animate был прозрачным, но я не могу никак это сделать. Там есть какое-то свойство Transparent, но это не то. Как быть?


 
clickmaker ©   (2004-12-10 18:49) [1]

type
 TForm1 = class(TForm)
 private
   { Private declarations }
   procedure WMCtlColorStatic(var Message: TMessage); message WM_CTLCOLORSTATIC;
 public
   { Public declarations }
 end;

procedure TForm1.WMCtlColorStatic(var Message: TMessage);
begin
 if (HWND(Message.LParam) = ХэндлОкнаТвоегоАнимэйта) then begin
   SetBkColor(Message.WParam, ColorToRGB(Color));
   Message.Result := Brush.Handle;
 end else
   DefaultHandler(Message);
end;


 
Fay ©   (2004-12-10 18:55) [2]

2 clickmaker ©   (10.12.04 18:49) [1]
Это и есть "Transparent, но это не то" 8)


 
_Дельфин_   (2004-12-12 15:14) [3]

А может кто-то знает, где можно достать компонент на основе TAnimate, в котором можно было бы менять цвет фона? Или как сделать такой компонент?



Страницы: 1 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
1-1103086828
Андерсон
2004-12-15 08:00
2004.12.26
Экспорт в Excel буленовское поле


1-1102647545
Relaxxx
2004-12-10 05:59
2004.12.26
Отрезание конца строки, как так сделать?


8-1096355911
X-Disa
2004-09-28 11:18
2004.12.26
Печать изображений


14-1102064193
080D:07BBh
2004-12-03 11:56
2004.12.26
DB components


14-1102497033
NailMan
2004-12-08 12:10
2004.12.26
Убить зверя на компе....