Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как сделать форму полупрозрачной?

Аноним
Очень много материалов о том как сделать форму прозрачной? А как сделать форму полупрозрачной и регулировать прозрачность во время выполнения?
448
04 октября 2001 года
Mr. API
105 / / 20.06.2000
1)Необходимо взять изображение которое нахожится за окном.
2)Наложить эффект затемнения.
3)Отобразить полученое изображение на окно.

Могу помочь с 1 и 3.
Со 2-ым к сожалению нет. Если узанаешь скажи мне как. Но должны бать библиотеки, которые умееют такие штуки делать.
Аноним
<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD>Quote:<HR></TD></TR><TR><TD><FONT SIZE=-1><BLOCKQUOTE>
On 2001-10-04 12:38, Mr. API wrote:
1)Необходимо взять изображение которое нахожится за окном.
2)Наложить эффект затемнения.
3)Отобразить полученое изображение на окно.

Могу помочь с 1 и 3.
Со 2-ым к сожалению нет. Если узанаешь скажи мне как. Но должны бать библиотеки, которые умееют такие штуки делать.
</BLOCKQUOTE></FONT></TD></TR><TR><TD><HR></TD></TR></TABLE>

Помоги
448
05 октября 2001 года
Mr. API
105 / / 20.06.2000
<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD>Quote:<HR></TD></TR><TR><TD><FONT SIZE=-1><BLOCKQUOTE>
Помоги
</BLOCKQUOTE></FONT></TD></TR><TR><TD><HR></TD></TR></TABLE>

Тебе только на WinAPI или можно с использованием объектов Delphi?
Лучше мыль мне так лучше получится.

P. S.
По некоторым обстоятельствам моя производительность (за компьютером) снизилась в 1.7 раз (((((((

Так что, лучше пиши.
591
14 октября 2001 года
x77
40 / / 20.03.2000
http//www.delphikingdom.com/treasury/samples.htm#link10

Только работать с этим окном практически невозможно.
Аноним
Интересно как это делается в WindowFX и Winamp3?
все просто летает
Аноним
Цитата:

On 2001-10-04 0628, Anonymous wrote
Очень много материалов о том как сделать форму прозрачной? А как сделать форму полупрозрачной и регулировать прозрачность во время выполнения?



Существует winapi SetLayeredWindowAttributes

591
26 ноября 2001 года
x77
40 / / 20.03.2000
Ага, только вот работает эта штука только в w2k. Кому интересно, вот забавный кусочек кода

unit Win2k;
interface
uses Graphics, Windows;

function SetLayeredWindowAttributes(
hwnd HWND; // handle to the layered window
crKey TColor; // specifies the color key
bAlpha byte; // value for the blend function
dwFlags DWORD // action
) BOOL; stdcall;

function SetLayeredWindowAttributes; external 'user32.dll';
implementation

end.

program WinLayer;

uses
Windows, SysUtils,
Win2k in 'Win2k.pas';

const
WS_EX_LAYERED= $80000;
LWA_COLORKEY = 1;
LWA_ALPHA = 2;

var
Hndl THandle;
Transp Byte;

begin
Writeln('Windows2000 Layer <- build by AK ->');
Writeln(' Usage WINLAYER.EXE [window name] [Transp (0-255)]');
Writeln(' Example WINLAYER &quot;Calculator&quot; 200');
Writeln;

if ParamCount <> 2 then exit;

Hndl = FindWindow(nil, PChar(ParamStr(1)));
Transp = StrToIntDef(ParamStr(2), 128);

if SetWindowLong(Hndl, GWL_EXSTYLE, GetWindowLong(Hndl, GWL_EXSTYLE) or WS_EX_LAYERED) = 0 then
Writeln('Error !');

if not SetLayeredWindowAttributes(Hndl, 0, Transp, LWA_ALPHA) then
// ^^^ степень прозрачности
// 0 - полная прозрачность
// 255 - полная непрозрачность
Writeln('Error !');
end.

З.Ы.
содрано с delphi.proext.com, сам не пробовал.

[ Это Сообщение было отредактировано x77 в 2001-11-26 0002 ]
591
26 ноября 2001 года
x77
40 / / 20.03.2000
и ещё одна любопытная ссылочка, реализация полупрозрачности в виде компонента

http//delphi.vitpc.com/asp/answer.asp?IDAnswer=6314
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог