FileForums - Test: Glass Form

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - Test: Glass Form (https://fileforums.com/showthread.php?t=99971)

Windows 10 Pro r2 ok

Windows 10 Pro WORK FINE

AMD software uses Qt technology.

My Test:
http://oi64.tinypic.com/altfl2.jpg

Quote:

Originally Posted by 78372 (Post 465582)

Windows 7 x64 SP1

Same error in the same OSx64

Quote:

Originally Posted by kassane (Post 465623)

AMD software uses Qt technology.

My Test:
http://oi64.tinypic.com/altfl2.jpg

But not free right?

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

Quote:

Originally Posted by Razor12911 (Post 465630)

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.

My Test Delphi:
http://oi65.tinypic.com/2q2ntqp.jpg

Code:

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.

@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.

https://image.ibb.co/eLjHKw/Default.png

https://image.ibb.co/gU4TRb/blu.png

https://image.ibb.co/erWmCG/Green.png

https://image.ibb.co/eEWsmb/red.png

Quote:

Originally Posted by kassane (Post 465634)

My Test Delphi:
http://oi65.tinypic.com/2q2ntqp.jpg

Code:

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.

Quote:

Originally Posted by felice2011 (Post 465636)

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

Quote:

Originally Posted by Razor12911 (Post 465671)

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.

Quote:

Originally Posted by Razor12911 (Post 465679)

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

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.