|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.01.2008, 13:12 | #1 |
Пользователь
Регистрация: 04.11.2007
Сообщений: 64
|
прозрачность фона ActiveX
дело вот в чем:когда я кидаю на форму Flash-ролик,его фон остается видимым даже при установке Transporentcolor.......как это исправить?
Последний раз редактировалось Романнн; 27.01.2008 в 20:56. Причина: немного обшибся |
27.01.2008, 20:05 | #2 |
Участник клуба
Регистрация: 23.07.2007
Сообщений: 1,054
|
У меня похожая проблема Я пользуюсь RxGifanimator загружаю прозрачный gif и использую прозрачную форму.
А фон под RXGifAnimator остается непрозрачным. Мне нужно чтоб из под него виден был windows Для прозрачности формы пользуюсь этим: unit unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; // это просто кнопка на форме - для демонстрации protected procedure RebuildWindowRgn; procedure Resize; override; public constructor Create(AOwner: TComponent); override; end; var Form1 : TForm1; implementation // ресурс этой формы {$R *.DFM} { Прозрачная форма } constructor TForm1.Create(AOwner: TComponent); begin inherited; // убираем сколлбары, чтобы не мешались // при изменении размеров формы HorzScrollBar.Visible:= False; VertScrollBar.Visible:= False; // строим новый регион RebuildWindowRgn; end; procedure TForm1.Resize; begin inherited; // строим новый регион RebuildWindowRgn; end; procedure TForm1.RebuildWindowRgn; var FullRgn, Rgn: THandle; ClientX, ClientY, I: Integer; begin // определяем относительные координаты клиенской части ClientX:= (Width - ClientWidth) div 2; ClientY:= Height - ClientHeight - ClientX; // создаем регион для всей формы FullRgn:= CreateRectRgn(0, 0, Width, Height); // создаем регион для клиентской части формы // и вычитаем его из FullRgn Rgn:= CreateRectRgn(ClientX, ClientY, ClientX + ClientWidth, ClientY + ClientHeight); CombineRgn(FullRgn, FullRgn, Rgn, rgn_Diff); // теперь добавляем к FullRgn регионы каждого контрольного элемента for I:= 0 to ControlCount -1 do with Controls[I] do begin Rgn:= CreateRectRgn(ClientX + Left, ClientY + Top, ClientX + Left + Width, ClientY + Top + Height); CombineRgn(FullRgn, FullRgn, Rgn, rgn_Or); end; // устанавливаем новый регион окна SetWindowRgn(Handle, FullRgn, True); end; end.
Писано по д'Эльфийски
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разный цвет фона в таблице (php) | Lonix | PHP | 2 | 04.10.2008 21:39 |
Растягивание фона | psywalker | HTML и CSS | 7 | 19.06.2008 18:08 |
Смена фона в таблице помогите | [Pr1_Zr4k] | JavaScript, Ajax | 4 | 20.05.2008 01:49 |
Цвет фона кнопки | romets | Win Api | 10 | 23.01.2008 17:13 |
Цифровые часы без фона | Roof | Помощь студентам | 13 | 22.07.2007 12:18 |