Artykuł Przeżroczystość formatki

Przeżroczystość formatki
Autor: Shadow Dodano: 2008-07-10 22:57:33 Komentarze: 0
Licencja: Copyright Kategoria: Programowanie » Delphi/Pascal Odsłon: 224

Przeżroczystość formatki

Ciekawy efekt zastosowany w wielu programach, np winamp. Przeżroczystość okienka.
Jest to łatwiejsze do zrobienia niź się moźe wydawać.

Kod 
  1. SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
  2. WS_EX_LAYERED);
  3. SetLayeredWindowAttributes(Handle, 0, 18 , LWA_ALPHA);
  4.  


Dwie linijki kodu a tyle radości:)
SetLayeredWindowAttributes(Handle, 0, 18 , LWA_ALPHA); Ta linijka kodu jest kluczowa.
3 parametr jest kluczowy dla przezroczystosci. Przyjumuje wartosci od 0 do 255.
Wartośc 255 jest traktowana jakby okno bylo nieprzezroczyste, 0 jako calkowicie przezroczyste.
Przyklad na lepsze zobrazowanie tego. Kładziemy na formatce button i wypełniamy go kodem:

Kod 
  1.  
  2. procedure TForm1.Button1Click(Sender: TObject);
  3. var
  4.  i:integer;
  5. begin
  6.  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
  7. WS_EX_LAYERED);
  8.  for i:=255 downto 0 do begin
  9.   application.ProcessMessages;
  10.   SetLayeredWindowAttributes(Handle, 0, i , LWA_ALPHA);
  11.   sleep(1);
  12.  end;
  13.  for i:=0 to 255 do begin
  14.   application.ProcessMessages;
  15.   SetLayeredWindowAttributes(Handle, 0, i , LWA_ALPHA);
  16.   sleep(1);
  17.  end;
  18. end;
  19.  

Po kliknięciu guzika Zobaczymy jak pięknie zmienia się przeżroczystość obrazka.

Zobacz więcej

Status Skype na stro... Jeżeli chcesz aby na twojej stronie internetowaj widniał stan twojego statusu sk... 2010-12-24 12:56:54
Wyślij do... Często zdarza się, źe chcąc wrzucić np. brushe do Photoshopa musimy krąźyć po wi... 2009-06-14 11:19:35
Programy Open Source... Krótka lista darmowych i Open Source programów na Mac`a. Jest t... 2008-07-20 12:00:58
Jak zainstalować Win... Czasami jesteśmy zmuszeni do zainstalowania naszego systemu na nowo. Jeżeli posi... 2010-08-20 22:52:51
Jak przyspieszyć Win... W sieci moźna znależć pełno artykułów na temat sposobów przyspiesz... 2008-08-10 19:00:20
Charakterystyka dźwi... Dźwięki biosu i prawdopodobne przyczyny AWARD 1 krótki - brak jakic... 2011-08-16 22:53:42

Komentarze

Zaloguj się, aby móc dodawać komentarze.

E-pomocnik

Strona główna Regulamin O nas Prawa autorskie Kontakt

Najnowsze Artykuły  

Przywracanie skrótu ...2011-12-22

Poradnik pisany z dedykacją dla użytkowniczki Shadija, której to zniknął

czytaj całość
Charakterystyka dźwi...2011-08-16

Dźwięki biosu i prawdopodobne przyczyny AWARD 1 krótki - brak jakic

czytaj całość
Jak korzystać z Conk...2011-08-11

Conky to najpopularniejszy wysoko konfigurowalny monitor systemu znany użytkonik

czytaj całość
Status Skype na stro...2010-12-24

Jeżeli chcesz aby na twojej stronie internetowaj widniał stan twojego statusu sk

czytaj całość
Jak sprawdzić bezpie...2010-08-25

Chciałbym przedstawić w pełni bezpieczny sposób na sprawdzenie poprawne

czytaj całość

Statystyki

Użtkowników: 132

Artykuły: 136

Ostatnio zarejestrowany: faniladia

Użytkowników online: 8

Reklama



Strona główna | Rejestracja | Forum | Użytkownicy | Poradniki | Kontakt

© Copyright 2011 e-pomocnik.pl