SetLayeredWindowAttributes включение\отключение.

[Alex Cones]

http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

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

SetLayeredWindowAttributes(Handle,
                                $FF00FF,
                                0,
                                LWA_COLORKEY);

- Врубает прозрачный цвет.

SetLayeredWindowAttributes(Handle,
                                0,
                                128,
                                LWA_ALPHA);

- Врубает прозрачность.

SetLayeredWindowAttributes(Handle,
                                $FF00FF,
                                128,
                                LWA_COLORKEY Or LWA_ALPHA);

- Врубает и то, и другое.

Вопрос - а как отрубить все?

[GunSmoker]

http://msdn.microsoft.com/en-us/libr...px#layered_win

SetWindowLong для -WS_EX_LAYERED.

Или я вопроса не понял.

[Alex Cones]

Эм... Не совсем. У меня окно "слоеное" окно создается с самого начала. Без всяких "плюшек" выглядит как обычное окно.

Предположим юзер хочет прозрачность на blue- вуаля, сделали. Хочет на red - сделали на red. Хочет 50% - сделали.

А вот если он уже НЕ ХОТЕТЬ прозрачность на blue и на любой другой цвет? Просто отрубить прозрачность без смены режима "слоености", чтобы потом лишний раз не перещелкивать? Я просто сейчас проверить практикой не могу, но насколько я могу читать сорцы флаг LWA_COLORKEY = 1, а LWA_ALPHA = 2, следоватьно, по идее

SetLayeredWindowAttributes(Handle,
                                0,
                                0,
                                0);

должно сработать? не?

[Alex Cones]

Перегрузился под винду. Попробовал такой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  I : Integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled := TRUE;
 SetWindowLong(Handle,
               GWL_EXSTYLE,
               GetWindowLong(Handle,
                             GWL_EXSTYLE) Or WS_EX_LAYERED);
 Application.ProcessMessages;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Inc(I);
 Button1.Caption := IntToStr(I);
 Application.ProcessMessages;
 Case I of
  5 : Begin
        Form1.Hide;
        SetLayeredWindowAttributes(Handle,
                                   Panel1.Color,
                                   0,
                                   LWA_COLORKEY);
        form1.Show;
       End;
  10 : Begin
        Form1.Hide;
        SetLayeredWindowAttributes(Handle,
                                   0,
                                   128,
                                   LWA_ALPHA);
        form1.Show;
       End;
  15 : Begin
        Form1.Hide;
        SetLayeredWindowAttributes(Handle,
                                   $FF00FF,
                                   128,
                                   LWA_COLORKEY Or LWA_ALPHA);
        form1.Show;
       End;
  20 : Begin
        Form1.Hide;
        SetLayeredWindowAttributes(Handle,
                                   0,
                                   0,
                                   0);
        form1.Show;
       End;
 End;
end;

end.

Забавно. Первые три отрабатывает нормально, а четвертая делает так - делает всю форму прозрачной, оставляя лишь _□x.

Видимо придется лепить включение\отключение слоености.

[Пепел Феникса]

поставь переключение в режим частичной прозрачности LWA_ALPHA
но установи отсутствие прозрачности(точнее нулевая прозрачность)

[Alex Cones]

поставь переключение в режим частичной прозрачности LWA_ALPHA
но установи отсутствие прозрачности(точнее нулевая прозрачность)

Ыыыы... Как же я сам не додумался! Спасибо!

 SetLayeredWindowAttributes(Handle,
                                   0,
                                   255,
                                   LWA_ALPHA);