View Full Version : Test: Glass Form
Razor12911
05-01-2018, 20:58
Can you test this program on different operating systems, mostly interested in Windows 7.
A form like the one in the picture should show up without errors.
Windows 10 Pro (64-bit)
Version 1703
OSBUILD: 15063.850
Running As Administrator
20595
Windows 10 Pro x64, Build 1709
Works fine!
Windows 8.1
Even the form didn't show up, application started and closed immediately in 2 seconds
Jiva newstone
06-01-2018, 01:52
Windows 8.1
Even the form didn't show up, application started and closed immediately in 2 seconds
Iam also getting this error on Windows 10 x64
On Windows 7 , its not running
https://postimg.org/gallery/34gssfwdi/
DiCaPrIo
06-01-2018, 02:52
working on win 10
Windows 7 x64 Ultimate same error as 78372 and -NORO-
Works.
Win10 Enterprise x64
1709
16299.125
Razor12911
06-01-2018, 06:03
Thanks, not pursing this idea. Too many things to consider.
Anyways, people who use Windows 7 and have AMD cards.
Does AMD Radeon software look like that?
DiCaPrIo
06-01-2018, 06:04
Thanks, not pursing this idea. Too many things to consider.
Anyways, people who use Windows 7 and have AMD cards.
Does AMD Radeon software look like that?
yep it looks like this I have AmD
Razor12911
06-01-2018, 06:05
yep it looks like this I have AmD
Perhaps there is still hope for glass forms.
If i can recall it correctly then there is a winapi for transparent form
Don't know about blur effect,, electronjs provides it may be
Razor12911
06-01-2018, 06:15
Creating a transparent form is really not a problem, the problem is it having the blurred/glassy effect.
AMD software uses Qt technology.
My Test:
http://oi64.tinypic.com/altfl2.jpg
Windows 7 x64 SP1
Same error in the same OSx64
Razor12911
06-01-2018, 08:12
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
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
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:=ATransitionOnM aximized;
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
06-01-2018, 10:39
@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
Razor12911
07-01-2018, 09:05
My Test Delphi:
http://oi65.tinypic.com/2q2ntqp.jpg
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:=ATransitionOnM aximized;
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
07-01-2018, 09:06
@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
Yea, what to use for Windows 8?
Because I know what needs to be done for Win7 and Win10.
felice2011
07-01-2018, 14:24
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
07-01-2018, 18:44
well...
felice2011
08-01-2018, 00:42
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.
Guys I have a question that has nothing to do with this thread but I really need to know!!
I got an issue with flash animations that should be handled by most versions of CIUs including the latest ones:
CIUv2 v2.0.3.9 U6H2 UltraArcR3
CIUv2 v2.0.3.9 U7 UltraARC R3 (2017-11-01)
Unfortunately nothing solved this issue:(
When I include a Flash.swf file in the Setup or Background folders, I get this error message.
See attached picture below!
If anyone wants to test it, just download DiRT Showdown conversion done by Yener90. You will find it Conversion Index.
Thanks in advance:)
Razor12911
08-01-2018, 07:02
Check if this reg entry exists on your PC
Copied from script:
Function IsFlashInstalled:boolean;
begin
Result:= RegKeyExists(HKCR, 'CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}\InprocServer32');
end;
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
Well I'd say same. win32z is actually win32u.dll, I renamed it so it doesn't affect local programs.
This is what I found.
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Ext\PreApproved\{D27CDB6E-AE6D-11cf-96B8-444553540000}]
pakrat2k2
08-01-2018, 17:46
nope wrong location, should be under HKey_Classes_Root, simply install shockwave player.
But regardless having a flash.swf in setup, causes a botva2.dll error, in latest ciuv2.2039.u7, so it wont play either.
Razor12911
08-01-2018, 19:40
I think it's because there is no windows border on CIU anymore, unlike CI. Had problems that while working on ASC video addition, perhaps this could be related.
BTW, Tested and it works, and as I said. The windows border is present.
Installed Fash player, Shockwave player but still getting that error message:-(
As pakrat2k2 mentioned, I should have that reg key under HKey_Classes_Root not HKEY_LOCAL_MACHINE.
working on win 10 x64bit
http://nsa39.casimages.com/img/2018/01/09/180109015216353634.jpg
pakrat2k2
09-01-2018, 06:15
strange i tested on win10x64 & got botva2.dll error message.
Creating blurry glass forms that work on Win10 is somehow possible using alpha skins.
They have a demo incl. source code (AMegaDemo.zip) on their website which shows
the possibilities:
https://www.alphaskins.com/ademos.php
And since altef_4 showed how to integrate alpha skins into Inno, there could be a way.
https://i.ibb.co/2MwcrCq/snap148.png
Win 10 x64 21h1
Black screen
Win 10 x64 21h1
Black screen
"It just works"
Not sure if its still relevant, but it crash under Win7 64bit:
31904
31905
Razor12911
23-06-2022, 23:38
It would crash on Windows 7 because it's trying to access a function that was introduced in Windows 10.
It would crash on Windows 7 because it's trying to access a function that was introduced in Windows 10.
Ah ok, no problem. I only mentioned it because in the first post you said you are mainly interested in Win 7.
vBulletin® v3.8.11, Copyright ©2000-2026, vBulletin Solutions Inc.