[es] - Disable Print Screen, Transparent Windows and Popup Menu

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.as54.ze.bih.net.ba.

Profil

Disable Print Screen, Transparent Windows and Popup Menu

^{30.11.2004. u 20:37 - pre 236 meseci}

1. How to disable Preent Screen?
2. Kako naštelati da je neki prozor sa poznatim titlom transparentan 50%?
3. Ako u Popup Menu dodam item koji ima sličicu, a zatim dodam item bez sličice,
PopupMenu mi nije poravnat. Ovo se može riješiti dodavanjem prazne sličice u item bez slike. postoji li neko drugo riješenje?

Odgovor na temu

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.as54.ze.bih.net.ba.

Profil

Re: Disable Print Screen, Transparent Windows and Popup Menu

^{14.12.2004. u 14:30 - pre 235 meseci}

Vidim da niko ne odgovara pa sam se jako potrudio i našao sa se transparentnost nekog prozora podešava ovak

Code:
procedure SetTransparentForm(AHandle : THandle; AValue : byte = 0);
var
  Info: TOSVersionInfo;
  SetLayeredWindowAttributes: TSetLayeredWindowAttributes;
begin
//Check Windows version
Info.dwOSVersionInfoSize := SizeOf(Info);
GetVersionEx(Info);
if (Info.dwPlatformId = VER_PLATFORM_WIN32_NT) and
(Info.dwMajorVersion >= 5) then
   begin
     SetLayeredWindowAttributes := GetProcAddress(GetModulehandle(user32), 'SetLayeredWindowAttributes');
      if Assigned(SetLayeredWindowAttributes) then
       begin
        SetWindowLong(AHandle, GWL_EXSTYLE, GetWindowLong(AHandle, GWL_EXSTYLE) or WS_EX_LAYERED);
        //Make form transparent
        SetLayeredWindowAttributes(AHandle, 0, AValue, LWA_ALPHA);
      end;
   end;
end;

AValue ide od 0 do 255

Odgovor na temu