| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблемма с установкой прозрачности окна [D7, WinXP]

Engy ©   (2004-08-09 11:48:00) 

Попробовал такой кусок кода, но окошко не отреагировало, кто делал, подскажите...


const
 MY_WS_EX_LAYERED = $00080000;
 MY_LWA_ALPHA = $00000002;
var
 AStyle: Integer;
 bTransparent: Boolean = True;
 MySetLayeredWindowAttributes: TSetLayeredWindowAttributes = nil;
 iBlendValue: Byte = 70;

...

 AStyle := GetWindowLong(Handle, GWL_EXSTYLE);
 if (@MySetLayeredWindowAttributes <> nil) and bTransparent then begin
   if (AStyle and MY_WS_EX_LAYERED) = 0 then
     SetWindowLong(Handle, GWL_EXSTYLE, AStyle or MY_WS_EX_LAYERED);
   MySetLayeredWindowAttributes(Handle, RGB(0,0,0), Round(iBlendValue * 255 div 100), MY_LWA_ALPHA);
 end
 else begin
     SetWindowLong(Handle, GWL_EXSTYLE, AStyle and not MY_WS_EX_LAYERED);
     RedrawWindow(Handle, nil, 0, RDW_ERASE or RDW_INVALIDATE or RDW_FRAME or RDW_ALLCHILDREN);
 end;


---

Engy   (2004-08-09 12:18:00) [1]

2Ajax Спасибо, заработало...

---

Fynjy   (2004-08-09 12:02:00) [2]

form1.alphablend не подходит?

---

Ajax   (2004-08-09 11:54:00) [3]

Приведу то что у меня работает:
SetWindowLong(Wnd,GWL_EXSTYLE,GetWindowLong(Wnd,GWL_EXSTYLE) or WS_EX_LAYERED);

SetLayeredWindowAttributes(Wnd,0,Transparency,LWA_ALPHA);
или
SetLayeredWindowAttributes(Wnd, Color,Transparency ,LWA_ALPHA or LWA_COLORKEY);

---

Наверх