FileForums - Test: Glass Form

Page 1 of 2

Show 40 post(s) from this thread on one page

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)

Razor12911

05-01-2018 20:58

Test: Glass Form

2 Attachment(s)

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.

Gupta

05-01-2018 21:07

1 Attachment(s)

Windows 10 Pro (64-bit)
Version 1703
OSBUILD: 15063.850

Running As Administrator

Attachment 20595

JustFun

05-01-2018 23:31

Windows 10 Pro x64, Build 1709

Works fine!

78372

06-01-2018 00:11

Windows 8.1

Even the form didn't show up, application started and closed immediately in 2 seconds

78372

06-01-2018 00:45

1 Attachment(s)

Windows 7 x64 SP1

Jiva newstone

06-01-2018 01:52

Quote:

Originally Posted by 78372 (Post 465579)

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

-NORO-

06-01-2018 02:42

On Windows 7 , its not running
https://postimg.org/gallery/34gssfwdi/

DiCaPrIo

06-01-2018 02:52

1 Attachment(s)

working on win 10

JRD!	06-01-2018 02:57

Windows 7 x64 Ultimate same error as 78372 and -NORO-

KaktoR

06-01-2018 04:54

Works.

Win10 Enterprise x64
1709
16299.125

Razor12911

06-01-2018 06:03

1 Attachment(s)

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

Quote:

Originally Posted by Razor12911 (Post 465600)

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

Quote:

Originally Posted by DiCaPrIo (Post 465601)

yep it looks like this I have AmD

Perhaps there is still hope for glass forms.

Gupta

06-01-2018 06:13

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.

rinaldo

06-01-2018 06:47

1 Attachment(s)

Windows 10 Pro r2 ok

Mini	06-01-2018 06:54

Windows 10 Pro WORK FINE

kassane

06-01-2018 07:23

AMD software uses Qt technology.

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

gozarck

06-01-2018 07:49

Quote:

Originally Posted by 78372 (Post 465582)

Windows 7 x64 SP1

Same error in the same OSx64

Razor12911

06-01-2018 08:12

Quote:

Originally Posted by kassane (Post 465623)

AMD software uses Qt technology.

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

But not free right?

Gupta

06-01-2018 08:28

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

kassane

06-01-2018 08:28

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.

kassane

06-01-2018 08:37

Console App

1 Attachment(s)

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.

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

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.

Razor12911

07-01-2018 09:06

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.

felice2011

07-01-2018 14:24

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.

Razor12911

07-01-2018 18:44

1 Attachment(s)

well...

felice2011

08-01-2018 00:42

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

Andu21

08-01-2018 05:21

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.

GTX590

08-01-2018 06:20

1 Attachment(s)

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

1 Attachment(s)

Check if this reg entry exists on your PC

Copied from script:

Code:

Function IsFlashInstalled:boolean;

begin

  Result:= RegKeyExists(HKCR, 'CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}\InprocServer32');

end;

Quote:

Originally Posted by felice2011 (Post 465684)

Well I'd say same. win32z is actually win32u.dll, I renamed it so it doesn't affect local programs.

GTX590

08-01-2018 11:51

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

1 Attachment(s)

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.

GTX590

09-01-2018 02:19

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.

Stor31

09-01-2018 04:51

working on win 10 x64bit

http://nsa39.casimages.com/img/2018/...5216353634.jpg

pakrat2k2

09-01-2018 06:15

strange i tested on win10x64 & got botva2.dll error message.

r4e	20-07-2021 17:47

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

dixen

22-07-2021 04:47

Win 10 x64 21h1
Black screen

All times are GMT -7. The time now is 11:22.

Page 1 of 2

Show 40 post(s) from this thread on one page