Test: Glass Form

[rinaldo]

Windows 10 Pro r2 ok

[Mini]

Windows 10 Pro WORK FINE

[kassane]

AMD software uses Qt technology.

My Test:

[gozarck]

Originally Posted by 78372

Windows 7 x64 SP1

Same error in the same OSx64

[Razor12911]

Originally Posted by kassane

AMD software uses Qt technology.

My Test:

But not free right?

[Gupta]

As far as i know: Qt and all its components are free for non commercial moreover they are opensource

[kassane]

Originally Posted by Razor12911

But not free right?

It has Free (Open-Source) version, following the LGPLv3 license. As long as you do not change the source code of the framework.

[kassane]

My Test Delphi:

program ConsoleGlassDelphi;

{$APPTYPE CONSOLE}
 
uses
  Windows,
  SysUtils;
 
type
  DWM_BLURBEHIND = record
    dwFlags                 : DWORD;
    fEnable                 : BOOL;
    hRgnBlur                : HRGN;
    fTransitionOnMaximized  : BOOL;
  end;
 
//function to enable the glass effect
function DwmEnableBlurBehindWindow(hWnd : HWND; const pBlurBehind : DWM_BLURBEHIND) : HRESULT; stdcall; external  'dwmapi.dll' name 'DwmEnableBlurBehindWindow';
//get the handle of the console window
function GetConsoleWindow: HWND; stdcall; external kernel32 name 'GetConsoleWindow';
 
function DWM_EnableBlurBehind(hwnd : HWND; AEnable: Boolean; hRgnBlur : HRGN = 0; ATransitionOnMaximized: Boolean = False; AFlags: Cardinal = 1): HRESULT;
var
  pBlurBehind : DWM_BLURBEHIND;
begin
  pBlurBehind.dwFlags:=AFlags;
  pBlurBehind.fEnable:=AEnable;
  pBlurBehind.hRgnBlur:=hRgnBlur;
  pBlurBehind.fTransitionOnMaximized:=ATransitionOnMaximized;
  Result:=DwmEnableBlurBehindWindow(hwnd, pBlurBehind);
end;
 
begin
  try
    DWM_EnableBlurBehind(GetConsoleWindow(), True);
    Writeln('See my glass effect');
    Writeln('Go Delphi Go');
    Readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

[felice2011]

@Razor In this case, to ensure the correct functionality and effect in any system used (Win7, Vista, Win8 and Win10) 2 separate codes must be used, the exact code will be started according to the system in use, after a scan before the start of the Form in the computer and system in use.

[Razor12911]

Originally Posted by kassane

My Test Delphi:

program ConsoleGlassDelphi;

{$APPTYPE CONSOLE}
 
uses
  Windows,
  SysUtils;
 
type
  DWM_BLURBEHIND = record
    dwFlags                 : DWORD;
    fEnable                 : BOOL;
    hRgnBlur                : HRGN;
    fTransitionOnMaximized  : BOOL;
  end;
 
//function to enable the glass effect
function DwmEnableBlurBehindWindow(hWnd : HWND; const pBlurBehind : DWM_BLURBEHIND) : HRESULT; stdcall; external  'dwmapi.dll' name 'DwmEnableBlurBehindWindow';
//get the handle of the console window
function GetConsoleWindow: HWND; stdcall; external kernel32 name 'GetConsoleWindow';
 
function DWM_EnableBlurBehind(hwnd : HWND; AEnable: Boolean; hRgnBlur : HRGN = 0; ATransitionOnMaximized: Boolean = False; AFlags: Cardinal = 1): HRESULT;
var
  pBlurBehind : DWM_BLURBEHIND;
begin
  pBlurBehind.dwFlags:=AFlags;
  pBlurBehind.fEnable:=AEnable;
  pBlurBehind.hRgnBlur:=hRgnBlur;
  pBlurBehind.fTransitionOnMaximized:=ATransitionOnMaximized;
  Result:=DwmEnableBlurBehindWindow(hwnd, pBlurBehind);
end;
 
begin
  try
    DWM_EnableBlurBehind(GetConsoleWindow(), True);
    Writeln('See my glass effect');
    Writeln('Go Delphi Go');
    Readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

The problem is this uses DWM, which no longer works the way you want it to work in Windows 8.1 and doesn't work in Windows 10.

[Razor12911]

Originally Posted by felice2011

@Razor In this case, to ensure the correct functionality and effect in any system used (Win7, Vista, Win8 and Win10) 2 separate codes must be used, the exact code will be started according to the system in use, after a scan before the start of the Form in the computer and system in use.

Yea, what to use for Windows 8?
Because I know what needs to be done for Win7 and Win10.

[felice2011]

Originally Posted by Razor12911

Yea, what to use for Windows 8?
Because I know what needs to be done for Win7 and Win10.

I do not understand why it should not work in W8, I unfortunately do not have the chance to try, Vista and Win8 systems, I skipped them because of the little interest I had for them.
I'll post this tool, with the glass effect background, let me know if it works in win8, so much out of curiosity.

[Razor12911]

well...

[felice2011]

Originally Posted by Razor12911

well...

Bravo..Same DLL or similar DLL?
Move your searches on "dwmapi.dll" I use that .... but I think this is the same that you also use.
Were you able to test the stopwatch in Win8, the glass effect is work?

https://goo.gl/ThCYZg

[Andu21]

A bit late for the tests.

Win 10 Home 15063.0: Same black screen as PrinceGupta2000.

Win 7 SP1:
Project1 + dll: same error as 78372.
Project1 alone: black screen, no error.