Aero Glass Effekt für Delphi-Forms

[Hanzmeierschulz]

Zitat von jbg:

Irgendwie ist mir das zu durchsichtig. Ich darf jetzt nicht mehr das Formular anlicken, da der Klick auf das darunterliegende Fenster durchgeht.

Übrigens "function(pfEnabled: PBoolean): HRESULT; stdcall; " ist falsch deklariert. Das PBoolean muss ein PBOOL sein. Mit PBoolean hat er mir unter gewissen umständen Self überschrieben.

Danke für den Hinweis habs auch gleich geändert.

Ich habe das ganze jetzt in eine Komponente gepackt, somit fällt das OnActivate oder ähnliches weg. Geht soweit auch gut, nur wie jbg bereits erwähnte, kann man die Form nicht mehr anklicken. Das liegt an der Funktion SetLayeredWindowAttributes, somit wird das Fester bei der Farbe X (clFuchsia) transparent und die Events gehen durch auf das darunterliegente Fenster. Gibts da ne Möglichkeit die Transparenttechnik (nicht Alpha/Teiltransparenz) von SetLayeredWindowAttributes so zu benutzen, dass es nicht durch geht.

[Hanzmeierschulz]

Hat jemand die winuser.h aus dem letztem Vista SDK (glaube July CTP)?
Ich brauche den Wert für WM_DWMCOMPOMPOSITIONCHANGED. Da das SDK >1GB ist, wollte ich es nicht erst downloaden wegen der Header-Datei.

[NicoDE]

Delphi-Quellcode:

const
  WM_DWMCOMPOSITIONCHANGED        = $031E;
  WM_DWMNCRENDERINGCHANGED        = $031F;
  WM_DWMCOLORIZATIONCOLORCHANGED  = $0320;
  WM_DWMWINDOWMAXIMIZEDCHANGE     = $0321;

[Hanzmeierschulz]

Super Danke

[Hanzmeierschulz]

Habe nun alles in eine Komponente gepackt, zusätzlich wurden noch ein paar Features hinzugefügt und einige Fehler bereinigt.

[CalganX]

Hi,
bitte trenne den ursprünglichen Code und die Komponente voneinander. Für die Komponente ist die entsprechende OpenSource-Sparte wahrscheinlich passender.
Den Ausgangscode würden wir jedoch gerne als Solchen in korrigierter Form in die Code-Lib übernehmen.

Danke,
Chris

[himitsu]

Wegen dem "Durchklicken"...

hab das in PSDK gefunden, vielleicht hilft das ja och noch etwas mit?

Delphi-Quellcode:

WS_EX_TRANSPARENT

Hit testing of a layered window is based on the shape and transparency of the window. This means that the areas of the window that are color-keyed or whose alpha value is zero will let the mouse messages through. However, if the layered window has the WS_EX_TRANSPARENT extended window style, the shape of the layered window will be ignored and the mouse events will be passed to other windows underneath the layered window.

[Hanzmeierschulz]

Zitat von himitsu:

Wegen dem "Durchklicken"...

hab das in PSDK gefunden, vielleicht hilft das ja och noch etwas mit?

Das Durchklicken hat sich mit der TAeroGlass Komponente erledigt, ich bin noch dran, dass in der reinen Unit-Version auch hinzubekommen. Aber durch Zeitmangel meinerseits dauert das etwas.

[MathiasSimmack]

Müsstest du hier nicht eine 6 als Versionsnummer eintragen:

Delphi-Quellcode:

if (GetVersionEx(osVInfo)) and
           (osVinfo.dwPlatformId = VER_PLATFORM_WIN32_NT) and
           (osVinfo.dwMajorVersion >= 6)) then

Quelle: constructor TAeroGlass.Create(AOwner: TComponent);

[Hanzmeierschulz]

Stimmt. Danke ich werts ändern.