Подскажите как сделать - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Подскажите как сделать (http://forum.oszone.net/showthread.php?t=29339)

В NVIDIA ForceWare есть опция, благодаря которой можно совершенно любое окно в системе сделать полупрозрачным. Подскажите как это можно организовать в своей программе на Delphi.

[s]Исправлено: rootKit, 16:33 22-10-2004[/s]

rootKit
А разве это не на уровне GDI делается?

Я в этом совсем чайник. Хоть строчку кода пожалуста.

[s]Исправлено: rootKit, 17:24 22-10-2004[/s]

Уй ё!:o А полегче некак?

AlphaBlend. Только в Win2000 и более новых, в старых Windows никакого эффекта не будет. Для Delphi 5 - не помню, а в Delphi 6+:

Код:

procedure TForm1.Button1Click(Sender: TObject);

begin

 &nbsp;AlphaBlendValue:=128;

 &nbsp;AlphaBlend:=not AlphaBlend;

end;

[s]Исправлено: Netscaper, 19:31 29-10-2004[/s]

Netscaper
Я так понял человек хочет сделать ЛЮБОЕ окно полупрозрачным, а не окно своей программы.

Kuper
Возможно. Функция Windows API:

Код:

BOOL SetLayeredWindowAttributes(HWND hwnd,COLORREF crKey,BYTE bAlpha,DWORD dwFlags);

Окно hwnd должно обладать атрибутом WS_EX_LAYERED(в расширенных стилях GWL_EXSTYLE), который устанавливается при его создании или с помощью функции SetWindowLong после его создания. Указывается структура COLORREF (4-х байтный TColor в Delphi) - указывается цвет, который должен выступать в роли прозрачного, если надо, скажем, сделать неровные границы. bAlpha - уровень прозрачности 0-255, где 255 - непрозрачный,
dwFlags это:
LWA_COLORKEY - сделать прозрачным цвет
LWA_ALPHA - сделать прозрачным окно.
Вот как делает это Delphi 6 (см. исходники VCL):

Код:

procedure TCustomForm.SetLayeredAttribs;

const

 &nbsp;cUseAlpha: array [Boolean] of Integer = (0, LWA_ALPHA);

 &nbsp;cUseColorKey: array [Boolean] of Integer = (0, LWA_COLORKEY);

var

 &nbsp;AStyle: Integer;

begin

 &nbsp;if not (csDesigning in ComponentState) and

 &nbsp; &nbsp;(Assigned(SetLayeredWindowAttributes)) and HandleAllocated then

 &nbsp;begin

 &nbsp; &nbsp;AStyle := GetWindowLong(Handle, GWL_EXSTYLE);

 &nbsp; &nbsp;if FAlphaBlend or FTransparentColor then

 &nbsp; &nbsp;begin

 &nbsp; &nbsp; &nbsp;if (AStyle and WS_EX_LAYERED) = 0 then

 &nbsp; &nbsp; &nbsp; &nbsp;SetWindowLong(Handle, GWL_EXSTYLE, AStyle or WS_EX_LAYERED);

 &nbsp; &nbsp; &nbsp;SetLayeredWindowAttributes(Handle, FTransparentColorValue, FAlphaBlendValue,

 &nbsp; &nbsp; &nbsp; &nbsp;cUseAlpha[FAlphaBlend] or cUseColorKey[FTransparentColor]);

 &nbsp; &nbsp;end

 &nbsp; &nbsp;else

 &nbsp; &nbsp;begin

 &nbsp; &nbsp; &nbsp;SetWindowLong(Handle, GWL_EXSTYLE, AStyle and not WS_EX_LAYERED);

 &nbsp; &nbsp; &nbsp;RedrawWindow(Handle, nil, 0, RDW_ERASE or RDW_INVALIDATE or RDW_FRAME or RDW_ALLCHILDREN);

 &nbsp; &nbsp;end;

 &nbsp;end;

end;

Looks perfect... Но можно ли где небудь достать исходник, илюстрирующий данную возможность?