Aero Glass Effekt für Delphi-Forms

[lbccaleb]

@TurboPASCAL:

Also ich weiß nicht, aber dein Programm hat bei mir noch ziemliche Probleme, liegt es vllt daran wie du die Controls einfärbst??

Ich hab es in meiner Anwedung so gemacht:

Delphi-Quellcode:

      WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC:
        if IsDWMloaded then
          if (lParam = hwndTrackBar1) then
            begin
              SetBkColor(loword(WParam), $FF);
              Result := GetStockObject(BLACK_BRUSH);
              Exit;
            end

Das funktioniert auch, nur hab ich das Problem, das die Controls schwarz gezeichnet werden, wenn ich das gar nicht haben will, also auch wenn ich den Status des DW Manager abfrage (IsDWMloaded in meiner Unit), und bei nicht vorhandensein die Controls in normaler Farbe zeichnen will!

Ich hab mir die DWMIAPI folgend geändert (unten angehängt)!

Ausserdem besteht auch bei mir noch das Problem mit den Schriften der Controls, alles durchsichtig! Es muss doch ne möglichkeit geben die Schriftfarbe zu ändern! Hab es auch über die messages "WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC" probiert, aber dort tut sich bei den Farben nichts, vllt hab ich aber auch nur ein Fehler gemacht beim Zeichen in den Canvas, denn da bin ich noch ein totaler Noob oO!

Vllt kennt sich damit ja nochjemand besser hier aus...