Aero Glass Effekt für Delphi-Forms

[turboPASCAL]

Zitat:

Zitat von lbccaleb

standartmäßig ist das ja Schwarz?!

Nein, nicht schwarz sondern $00005050.
Veränderbar ist das nicht. ...ich muss doch mal "wischda" anschmeissen.


// Edit: Äh, Das gibt anscheinend Vista vor. Da muss man mal genauer nachforschen...

[MCXSC]

Wie schaut das ganze denn unter XP aus? Läuft eine EXE mit der Komponente überhaupt?

[lbccaleb]

Eigentlich nicht, da in XP kein Desktop Windows Manger mit den Funktionen bereit steht...

[turboPASCAL]

Zitat:

Zitat von MCXSC

Wie schaut das ganze denn unter XP aus?

Wie XP halt. ;)

Zitat:

Zitat von MCXSC

Läuft eine EXE mit der Komponente überhaupt?

Jo. Also mit meiner schon.

Zitat:

Zitat von lbccaleb

Eigentlich nicht, da in XP kein Desktop Windows Manger mit den Funktionen bereit steht...

Eigentlich doch, da die Funktionen dynamisch geladen werden wenn die dwmapi.dll vorhanden ist.
Jedenfalls macht das meine Unit. ( Wenn man beim Programieren etwas Obacht gibt. ;) )

[lbccaleb]

Was ist denn deine Unit?? Also ich benutze für so was eine etwas weiterentwickelte Unit, von der hier schon geposteten! Nur in der sind ja leider noch nciht alles funktionen der DWMAPI.dll enthalten, muss man sich vllt mal die Zeit nehmen und die ein wenig weiterentwickeln...

[turboPASCAL]

Ja wo ist sie denn ? Na hier: (siehe Anhang)
Warnung: Absolute Beta.- & Testversion

Zitat:

muss man sich vllt mal die Zeit nehmen und die ein wenig weiterentwickeln...

jupp.

// Edit:

So, kleines Update der Demo. Funktionsfähigkeit für XP war nicht gegeben.
Kleiner Dummheitsfehler der eine Stunde anstrengender Suche bedurfte.
Tja man wird vergesslich...

[Cyberbob]

Sieht eigentlich ganz gut aus. Allerdings werden Labels und Schrift von Buttons immer noch transparent angezeigt. Schade, dass man das nicht mit nem einfachen befehl ändern kann.

[turboPASCAL]

Zitat:

Zitat von Cyberbob

Sieht eigentlich ganz gut aus. Allerdings werden Labels und Schrift von Buttons immer noch transparent angezeigt. Schade, dass man das nicht mit nem einfachen befehl ändern kann.

Ich habe in Vista selbst noch kein Programm gesehen das solch ein Formdesign (wie im Demo) hat oder so genutzt wird.
Da die Vista theme DLL drübermalt, zB. über eien Button kan man IMHO nix machen.

PS.:

Wenn jmd grade Vista laufen hat kann er mal bitte einen Screenshot des Fensters machen ?
Ich muss sonst erst umstöpseln. ^^

[Polynom]

Hallo,

Ich hab mal die Demo aus dem Post #76 runtergeladen und ausprobiert. Und jetzt wollt ich mal fragen, ob das so sein soll ... Weil nach Aero-Glass-Effekt sieht das nicht aus.
Ich hab mit meinem Delphi 2007 noch schnell eine Form mit "SheetOfGlass" auf "True" daneben gesetzt, damit man sieht, dass es sonst funktionieren müsste.

Mit freundlichen Grüßen, Michi

[turboPASCAL]

Doch, das schon richtig.selle mal im Code folgendes um:

Delphi-Quellcode:

// uMain.pas
WM_CREATE:
      begin
        //...

        //DWM_EnableBlurBehind(_hWnd, TRUE);
        //DWM_ExtendFrameIntoClientArea(_hWnd, 50,0,0,0);
        DWM_ExtendFrameIntoAll(_hWnd); // <--<<<

        ShowWindow(_hWnd, SW_SHOWNORMAL);
        UpdateWindow(_hWnd);
      end;

// und bei:

function WinMain(hInstance: HINST; hPrevInstance: HINST;
  lpCmdLine: PChar; nCmdShow: Integer): Integer; stdcall;
var
  WndClassEx: TWndClassEx;
  msg: TMsg;
begin
  InitCommonControls;

  bsBKColor := CreateSolidBrush(RGB(0,0,0)); // <--<< die Hintergrundfarbe ändern

PS.: Apropo Delphi 2007 und SheetOfGlas, wie ist es denn da mit einem Button auf der Form ?