Zitat:
Läuft bei mir leider nicht. Die Datei Graphics.dcu wird nicht gefunden.
Das hat dann aber mit deinem System zu tun Graphics ist eine Standard
Unit in Delphi.
Zitat:
Auf Win7x64 läuft es und auch flickerfrei.
Danke euch.. Habe vergessen bei zu schreiben das ich ältere System nicht mehr unterstütze. mindestens Win10
Windows 10 verwendete eine andere Methode für Blur wundert mich das es unter win7 damit noch geht.
Zitat:
Nur wenn ich die Fensterhöhe per Titlebar verändere dann tun mir "die Augen weh".
Muss ich mal prüfen Danke.
Zitat:
Das Einzige was aufgefallen ist, ist, dass bei Abwahl der Checkboxen "Crystal" oder "Blur mode" zuerst ganz kurz ein Zwischenbackground kommt und dann erst der Standard.
Wenn dann nur beim Blur Effekt.
Diese Implementierung ist unter Windows 10 sehr schlecht. Es arbeitet nicht mit WM_PRINT zusammen und die Regionen von Fenstern werden grundsätzlich ignoriert.
Nebenbei der Fix für den Resize.. auch wenn es darum eigentlich nicht ging.
Delphi-Quellcode:
{$REGION 'Procedure ResizeWindow'}
procedure ResizeWindow(WinHandle: HWND; ChangeBackground: integer);
begin
if SKAERO_IsEngineAssigned then
begin
// Nicht minimiert
if ChangeBackground = 0 then
if not IsIconic(WinHandle) then
ShowWindow(WinHandle, SW_HIDE);
if SKAERO_Composited(WinHandle) then
lRes := SKAERO_BeginDeferWindowPos(WinHandle, 0);
// Hintergrund neuzeichnen
SKAERO_DrawBackground(WinHandle);
// Controls Repositionieren
SKAERO_AnchorEnum(WinHandle);
if SKAERO_Composited(WinHandle) then
SKAERO_EndDeferWindowPos(WinHandle, lRes);
if ChangeBackground <> 0 then
SKAERO_UpdateWindow(WinHandle, False);
if ChangeBackground = 0 then
ShowWindow(WinHandle, SW_SHOW);
end;
end;
{$ENDREGION}
gruss