Obsługa Delphi dla Aero Glass i właściwości DoubleBuffered - co się dzieje i jak z nich korzystać?

O DoubleBuffer

. Net może mieć taką samą nazwę i ten sam cel, co Delphi, ale Delphi implementuje DoubleBuffer od podstaw i zakładam, że. NET robi to samo. Nie są używane żadne bity stylu okna.

DoubleBuffer i Glass Aero

Dość proste: nie ustawiaj Doublebuffera na elementy sterujące siedzące na szkle. Aby DoubleBuffering działał, trzeba być w stanie zainicjować "bufor" - ale czym go zainicjować Dla szkła? Podwójne buforowanie nie jest wymagane dla standardowych kontrolek systemu Windows (w tym TButton). W przypadku nowych kontrolek, które wymagają zarówno przezroczystych powierzchni, jak i zachowania przypominającego doublebuffer, można użyć warstwowego interfejsu API systemu windows.]}

Uzyskanie kontroli do pracy na szkle

Krok 1:

TForm1 = class(TForm)
...
protected
  procedure CreateWindowHandle(const Params: TCreateParams); override;
...
end;

procedure TForm15.CreateWindowHandle(const Params: TCreateParams);
begin
  inherited;
  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
  SetLayeredWindowAttributes(Handle, RGB(60, 60, 60), 0, LWA_COLORKEY);
end;

Krok 2 , to powinien być program obsługi OnPaint twojego formularza:

procedure TForm15.FormPaint(Sender: TObject);
var rClientRect:TRect;
begin
  if GlassFrame.Enabled then
  begin
    rClientRect := ClientRect;

    Canvas.Brush.Color := RGB(60, 60, 60);
    Canvas.Brush.Style := bsSolid;
    Canvas.FillRect(rClientRect);

    if not GlassFrame.SheetOfGlass then
    begin
      rClientRect.Top := rClientRect.Top + GlassFrame.Top;
      rClientRect.Left := rClientRect.Left + GlassFrame.Left;
      rClientRect.Right := rClientRect.Right - GlassFrame.Right;
      rClientRect.Bottom := rClientRect.Bottom - GlassFrame.Bottom;
      Canvas.Brush.Color := clBtnFace;
      Canvas.FillRect(rClientRect);
    end;
  end;
end;

Krok 3 : Ustaw Szkiełko.Enabled = True; Ustaw wszystkie inne właściwości szkła, dodaj kontrolki do formularza, gdzie tylko zechcesz. Może być na szkle lub gdziekolwiek indziej. Upewnij się, że elementy sterujące nie mają "DoubleBuffered = True". To jest to, smacznego. Testowałem z TButton, TCkBox i TEdit.

... Edycja ...

Niestety przy użyciu tej metody "szkło" jest traktowane jako w 100% przezroczysta powierzchnia i nie jest-wygląda jak szkło, ale nie zachowuje się jak szkło. Problem ze 100% przezroczystością polega na tym, że kliknięcie na tym przezroczystym obszarze przechodzi do okna za oknem. Straszne.

W momencie pisania tego tekstu jestem prawie pewien, że nie ma API, które zmieniłoby domyślny kolor czarnego klucza dla oryginalnego szkła (google znajduje niezliczone posty na blogu i forum na temat tego, jak należy używać niestandardowego rysunku dla kontrolek, które siedzą na szkle i nie ma funkcji, która zmieniłaby to w lista funkcji DWM na MSDN ). Bez zmiany domyślnego koloru czarnego większość kontrolek nie może renderować poprawnie, ponieważ zapisują tekst za pomocą clWindowText i to jest czarny. Jedna z propozycji sztuczka znaleziona na kilku forach polega na zmianie koloru przezroczystości za pomocą interfejsu API SetLayeredWindowAttributes. I to działa! Gdy już to zrobisz czarny tekst na kontrolkach pokazuje rzut, ale niestety szkło nie jest już szkłem, szkło wygląda jak szkło, ale zachowuje się jak 100% przezroczystość. To praktycznie unieważnia To rozwiązanie i pokazuje podwójny standard po stronie Microsoftu: oryginalna czerń nie zachowuje się jak 100% przezroczystości, ale jeśli zmienimy ją na coś lepszego, zachowuje się jak 100% przejrzystość.

Moim zdaniem powszechne myślenie o stosowaniu niestandardowych kontrolek na szkle jest błędne. To jedyna rzecz, która może działać, ale jest błędna, ponieważ powinniśmy używać kontrolek, które są spójne na całej platformie: sugerowanie niestandardowych kontrolek otwiera drzwi do niespójnych, podobnych do Winampa aplikacji, gdzie każdy użytkownik odtwarza koło, aby pasowało do jego artystycznych pomysłów. Nawet jeśli deweloperowi uda się wiernie odtworzyć dowolną kontrolę systemu windows i sprawić, że będzie działać na szkle, "fix" jest tylko tymczasowy i musi zostać ponownie utworzony dla następnej wersji systemu windows. Nie wspominając o tym, że prawdopodobnie należy mieć wiele wariantów dla istniejących wersji systemu windows.

Innym rozwiązaniem jest użycie warstwowych okien z UpdateLayeredWindow. Ale to ból z wielu powodów.