Доброго времени суток всем!
Никто не знает, как API'вскими методами осуществить прозрачность определенного цвета на окне, как это было реализовано в Делфях (там можно указать определенный цвет, который будет прозрачен, т.е. если у нас есть черный Label и мы делаем прозрачным черный цвет, то в месте, где был лэйбл мы видим грубо говоря дырку, через которую можем кликать на нижележащее окно)?
Спасибо.

-----
... we have to give freedom its REVENGE! ...

Я реализовал через SetWindowRgn...

У меня получилось вырезать кусок окна просто, а вот как сделать так, чтобы вырезался участок определенного цвета, не разобрался...

-----
... we have to give freedom its REVENGE! ...

дык помойму только так и нуно делать...
в аттаче пример на вб6...


5c66_31.05.2006_CRACKLAB.rU.tgz - SetWindowRgn.rar

Сам я не видел, но слышал ;) что Game Trainer Studio делает исходники на асме с использованием региона методом SetWindowRgn
http://treinerov.net/index.php?go=Files&in=view&id=49
~3 Mb

d1v0x
Там точно нориальный архив?
По-моему, он бытый, и там не все...

-----
... we have to give freedom its REVENGE! ...

4kusNick всё гуд...
просто это на форуме такой прикол - зачем то архивы переупаковываюцца в tgz...
я это ужо давно заметил...
кароч распаковываеш и игнорируеш сообщения ВинРАР'а

В Win2000 и свеже есть стандартные средства для этого дела (наподобии усатновки прозрачности для окна).

Delphi/BCB использует также SetWindowRgn...
В доказательство ;)

Address Stack Procedure / arguments
0012EC6C 5AD7868E ? USER32.SetWindowRgn
0012EC70 00090652 hWnd = 00090652 ('Form1',class='TForm1')
0012EC74 8B04209F hRgn = 8B04209F
0012EC78 00000001 Redraw = TRUE

Хм, интересно...
Может, кто на делфях пример простой наваяет?

-----
... we have to give freedom its REVENGE! ...

TMyForm = class (TForm)
...
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
...

const WS_EX_LAYERED = $00080000;
LWA_COLORKEY = $00000001;
LWA_ALPHA = $00000002;

procedure TMyForm .CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
ExStyle:=WS_EX_LAYERED;
end;
end;

procedure TMyForm .FormCreate(Sender: TObject);
begin
SetLayeredWindowAttributes(Handle, ColorToRGB(ПРОЗРАЧНЫЙ_ЦВЕТ), 0, LWA_COLORKEY)
end;

dermatolog
Спасибо огромное!

-----
... we have to give freedom its REVENGE! ...

Вот нарисовал оба метода на masm9
http://slil.ru/22800731
password:cracklab

Безусловно метод SetLayeredWindowAttributes лучше... Жаль работает только в 2k/xp...

[dicr0n] пишет:
Delphi/BCB использует также SetWindowRgn...
В доказательство ;)

На самом деле так рисует uxtheme.dll
А Delphi/BCB использует как-раз-таки SetLayeredWindowAttributes

;)