Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

Post your working scripts, libraries and tools for AHK v1.1 and older
danderson
Posts: 3
Joined: 08 May 2017, 20:42

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

10 Apr 2018, 17:37

I have tried modifying the top section ........

Code: Select all

.box3d {
          width: 200px;
          height: 200px;
          margin: 100px auto;
          position: absolute;
          -webkit-transform-style: preserve-3d;
          left: 50`%;
          top: 50`%;
          margin: -100px 0 0 -100px;
      }
      .box3d div {
          position: absolute;
          left: 0;
          top: 0;
          width: 200px;
          height: 200px;
          -webkit-backface-visibility: hidden;
          -webkit-transform-origin: 50`% 50`% -100px;
          backface-visibility: hidden;
          transform-origin: 50`% 50`% -100px;
      }
I have changed width , height ,of both , also played with both transform origins , but it seems to only work at this size (200 ) . I obviously don't know about CWebViewer , or JS . But I do know ahk pretty well . Can't even seem to find a single example of anyone using this cube . My ultimate goal is to have a rotating set of menus in one of my applications . It's just a little too small .
User avatar
joedf
Posts: 8937
Joined: 29 Sep 2013, 17:08
Location: Canada
Contact:

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

11 Apr 2018, 17:55

Do you see a cube though?
Do you have a repo?
Image Image Image Image Image
Windows 10 x64 Professional, Intel i5-8500, NVIDIA GTX 1060 6GB, 2x16GB Kingston FURY Beast - DDR4 3200 MHz | [About Me] | [About the AHK Foundation] | [Courses on AutoHotkey]
[ASPDM - StdLib Distribution] | [Qonsole - Quake-like console emulator] | [LibCon - Autohotkey Console Library]
danderson
Posts: 3
Joined: 08 May 2017, 20:42

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

12 Apr 2018, 06:07

Sure , I have a cube that spins on all axis .I found out that if I keep the cube spinning on just x axis or just y axis , then resizing does work , but when spinning on all axis , resizing does not work . So for now I'l forget about resizing on all axis , and just use it for y axis spins . Good enough thanks for your replies....
dan
User avatar
TheDewd
Posts: 1503
Joined: 19 Dec 2013, 11:16
Location: USA

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

11 May 2018, 15:56

This time I've tried to create a Gui that looks like Google's Material Design.

It needs better optimization, and a few tweaks, but I'm finally ready to release the code.

Let me know what you think!

Files are attached to this post.

Contents of attachment:

Code: Select all

MaterialDesign.ahk
images\MenuActiveBg.png
images\MenuBackground.png
images\MenuDivider.png
images\MenuIconExit.png
images\MenuIconSettings.png
images\MenuIconStar.png
images\MenuLineToolbarShadow.png
images\MenuShadow.png
images\ToolbarBg.png
images\ToolbarLinkHover.png
images\ToolbarLinkNormal.png
images\ToolbarMenuHover.png
images\ToolbarMenuNormal.png
images\ToolbarShadow.png
fonts\Product Sans Regular.ttf
fonts\Roboto-Medium.ttf
fonts\Roboto-Regular.ttf
Image
Attachments
Material_Design_Rev1.zip
(198.93 KiB) Downloaded 641 times
burque505
Posts: 1731
Joined: 22 Jan 2017, 19:37

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

11 May 2018, 17:36

Really, really nice, I was hoping you'd post it when I saw a screenshot of it earlier today somewhere. Really brings the GUI out of the 1990s :D
I added -DpiScale to line 70 since I've got scaling at 125%.

Code: Select all

	Gui, Parent: +Resize -DPIScale +LastFound +HWNDhParent +MinSize640x480
Regards, burque505
Before.PNG
Before.PNG (12.21 KiB) Viewed 9217 times
After.PNG
After.PNG (10.86 KiB) Viewed 9217 times
ozzii
Posts: 481
Joined: 30 Oct 2013, 06:04

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

12 May 2018, 04:25

Thanks TheDewd for this GUI
Stavencross
Posts: 90
Joined: 24 May 2016, 16:42

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

12 May 2018, 17:30

https://gph.is/2IdGhMk

Here's a GIF of my GUI, I just redesigned the whole app over the last couple days. I use joedf's webapp.ahk to build it in HTML/CSS/JS/jQuery.

I drive it with a mixture of AHK and PHP (it comes bundled with a stripped down version of zwamp), the PHP is to allow me to consume a salesforce API
User avatar
kczx3
Posts: 1640
Joined: 06 Oct 2015, 21:39

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

13 May 2018, 06:57

Very cool. You couldn’t consume the API with just JavaScript XMLHttpRequest calls?
Stavencross
Posts: 90
Joined: 24 May 2016, 16:42

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

13 May 2018, 10:57

kczx3 wrote:Very cool. You couldn’t consume the API with just JavaScript XMLHttpRequest calls?
I could, but the Salesforce team wouldn't give me curl access, and the php Api comes pre-built so it was a lot easier than trying to screw with it.
User avatar
Klark92
Posts: 161
Joined: 18 Jan 2015, 19:33

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

25 May 2018, 07:57

Stavencross wrote:https://gph.is/2IdGhMk

Here's a GIF of my GUI, I just redesigned the whole app over the last couple days. I use joedf's webapp.ahk to build it in HTML/CSS/JS/jQuery.

I drive it with a mixture of AHK and PHP (it comes bundled with a stripped down version of zwamp), the PHP is to allow me to consume a salesforce API
Can you share your template project to do us a favour dude ? :)
Smart Kombo 1.0 | One of the best Knight Online's key combo program...
Reynbow
Posts: 10
Joined: 27 Sep 2017, 22:30

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

29 May 2018, 01:24

Just thought I'd share the GUI for a program I made for my team at work.

Very much so a growing and always updating program.
Its functions are certainly very detailed but thought I'd add some inspiration to others for what a GUI could potentially look like with AHK.
I like how it's come together so far at least.

Here's an animated version so you can see the button and tab differences:
https://gfycat.com/RareTameBlackpanther

And a screenshot:
Image
User avatar
kczx3
Posts: 1640
Joined: 06 Oct 2015, 21:39

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

29 May 2018, 07:48

@Reynbow, that looks quite nice! Is it using all normal GUI controls or are you using ActiveX, GDI, etc?
User avatar
Hellbent
Posts: 2102
Joined: 23 Sep 2017, 13:34

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

31 May 2018, 03:27

Reynbow wrote: I'd add some inspiration to others
I liked your gui and I had some time to kill so I remade it using only text and progress controls.
Couldn't find a perfect match for some of the fonts you used and I didn't notice the gif until just now so I didn't add the second tab, but I did add mouse hover and press color change.

What is the font for the "Main Menu" Text anyway? Most of the time I spent on this was trying to match the fonts (pain in the @$$)
Overall this took about 2 hours to get it to this point (I type slow :) ).

This is what it looks like at 50% size. Code is below.

Image

Code: Select all

#SingleInstance,Force
SetBatchLines,-1
CoordMode,Mouse,client
hover_active:=0,Press_Active:=0,hover_ctrl:=""
Gui,1:+AlwaysOnTop -Caption +LastFound
Gui,1:Add,Progress,x0 y0 w450 h715 Background1F2130
Gui,1:Font,cWhite s6 Bold q5  ,arial ;Unicode ms
Gui,1:Add,Text,x3 y3 Backgroundtrans ,10196
Gui,1:Font,cWhite s36  q5  ,Harlow Solid Italic
Gui,1:Add,Text,x419 y-15  Center Backgroundtrans ,x
Gui,1:Font,cWhite s9 Bold q5  ,arial 
Gui,1:Add,Text,x0 y38 w450 Center Backgroundtrans ,Hello Test Account
Gui,1:Font,cWhite s36 Bold q5  ,Eras Bold ITC 
Gui,1:Add,Text,cD1015B x0 y53 w450 Center Backgroundtrans ,MAIN MENU
Gui,1:Add,Text,x0 y50 w450 Center Backgroundtrans ,MAIN MENU
Gui,1:Add,Progress,x15 y109 w126 h34 Background1C1E2C c27293C ,100
Gui,1:Add,Progress,x+0 y109 w126 h34 Background1C1E2C c27293C ,100
Gui,1:Font,cWhite s14  q5  ,Corbel ;Arial ;Rounded MT Bold
Gui,1:Add,Text,x25 y115 BackgroundTrans,SUPPORT
Gui,1:Add,Text,x151 y115 BackgroundTrans,LOYALTY
Gui,1:Show,w450 h715, Testing a remake
Gui,2:+Alwaysontop +Owner1 +LastFound -Caption
Gui,2:Color, 54042A
Gui,2:Show,w450 h715
Winset,region, 0-658 450-555 450-715 0-715 ,A
Gui,3:+Alwaysontop +Owner2 +LastFound -Caption
Gui,3:Color, FB016D
Gui,3:Show,w450 h715
Winset,region, 0-680 450-577 450-715 0-715 ,A
Gui,4:+Alwaysontop +Owner3 +LastFound -Caption
Gui,4:Color,Lime
Winset,TransColor,Lime
Gui,4:Add,Progress,x15 y143 w420 h2 backgroundWhite
Gui,4:Add,Progress,x15 y143 w2 h225 backgroundWhite
Gui,4:Add,Progress,x15 y366 w420 h2 background696969
Gui,4:Add,Progress,x16 y366 w418 h1 backgroundA0A0A0
Gui,4:Add,Progress,x434 y143 w2 h225 background696969
Gui,4:Add,Progress,x434 y143 w1 h225 backgroundA0A0A0
Text1:=["INSTALL","DATA OUTAGE","QA","ADMIN","KNOCKBACK"]
Gui,4:Font,cBlack s10 w600 Q5,Arial Narrow  ;Berlin Sans FB
Y:=163,y_Off:=8,var:=1
Loop 5	{
	Gui,4:Add,Progress,x29 y%y% w121 h30 backgroundFB016D 
	Gui,4:Add,Progress,x32 y%y% w118 h30 backgroundWhite vP_%var%
	Gui,4:Add,Text,% "x42 y" y+y_Off " BackgroundTrans vPT_" var,% Text1[A_Index]
	y+=40,var++
}
Gui,4:Font,cBlack s9 Norm  Q5,Berlin Sans FB	
Text2:=["Fred Confirmation","QA Pass","Cancellation","Phone Rang Out"],Y:=203
Loop 4	{
	Gui,4:Add,Progress,x164 y%y% w121 h30 backgroundFB016D
	Gui,4:Add,Progress,x167 y%y% w118 h30 backgroundWhite vP_%var%
	Gui,4:Add,Text,% "x177 y" y+y_Off " w100 Right BackgroundTrans vPT_"var,% Text2[A_Index]
	y+=40,var++
}
Text3:=["Remote Update","Paths for AV","Email Templates"],Y:=243	
Loop 3	{
	Gui,4:Add,Progress,x298 y%y% w121 h30 backgroundFB016D
	Gui,4:Add,Progress,x301 y%y% w118 h30 backgroundWhite vP_%var%
	Gui,4:Add,Text,% "x311 y" y+y_Off " w100 Right BackgroundTrans vPT_"var,% Text3[A_Index]
	y+=40,var++
}
Gui,4:Font,
Gui,4:Font,cBlack s9 Q5 w550, Arial Unicode MS ;Berlin Sans FB
Gui,4:Add,Progress,x15 y385 w175 h30 BackgroundWhite vP_13
Gui,4:Add,Text,x23 y392  BackgroundTrans vPT_13,Process Charts
Gui,4:Add,Progress,x198 y385 w115 h30 BackgroundWhite vP_14
Gui,4:Add,Text,x206 y392  BackgroundTrans vPT_14,Macros
Gui,4:Add,Progress,x15 y421 w175 h30 BackgroundWhite vP_15
Gui,4:Add,Text,x23 y428  BackgroundTrans vPT_15,Password Generator
Gui,4:Add,Progress,x198 y421 w115 h30 BackgroundWhite vP_16
Gui,4:Add,Text,x206 y428  BackgroundTrans vPT_16,Staff Points
Gui,4:Add,Progress,x320 y385 w115 h30 BackgroundWhite vP_17
Gui,4:Add,Text,x328 y392  BackgroundTrans vPT_17,View Store Logs
Gui,4:Add,Progress,x320 y421 w115 h30 BackgroundWhite vP_18
Gui,4:Add,Text,x328 y428  BackgroundTrans vPT_18,Staff Logs
Gui,4:Font,
Gui,4:Font,cWhite s11 Q3 ,Franklin Gothic Demi  ;Estrangelo Edessa ;Arial Unicode MS ;Berlin Sans FB
Gui,4:Add,Text,x0 y478 w202 r1 BackgroundTrans Center ,RUNNING TOTAL = None :(
Gui,4:Add,Text,cCC0000 x225 y478 w225 r1 BackgroundTrans Center ,DATA OUTAGE COUNT = 0/15
Gui,4:Font,
Gui,4:Font,cWhite s11 Q5 ,Franklin Gothic Demi
Gui,4:Add,Progress,x15 y520 w80 h20 BackgroundWhite vP_19
Gui,4:Add,Text,cBlack x18 y520  BackgroundTrans vPT_19,Data Out
Gui,4:Add,Progress,x100 y520 w80 h20 BackgroundWhite vP_20
Gui,4:Add,Text,cBlack x103 y520  BackgroundTrans vPT_20,Install
Gui,4:Add,Progress,x185 y520 w80 h20 BackgroundWhite vP_21
Gui,4:Add,Text,cBlack x188 y520  BackgroundTrans vPT_21,QA
Gui,4:Add,Progress,x270 y520 w80 h20 BackgroundWhite vP_22
Gui,4:Add,Text,cBlack x273 y520  BackgroundTrans vPT_22,Till Install
Gui,4:Add,Progress,x355 y520 w80 h20 BackgroundWhite vP_23
Gui,4:Add,Text,cBlack x358 y520  BackgroundTrans vPT_23,Till Config
Gui,4:Font,
Gui,4:Font,cWhite s10 Q5 ,Franklin Gothic Demi
Gui,4:Add,Progress,x270 y670 w165 h30 BackgroundWhite vP_24
Gui,4:Add,Text,cBlack x275 y677  BackgroundTrans vPT_24,Exit
Gui,4:Show,w450 h715
Gui,5:+AlwaysOnTop -Caption +LastFound +Owner4
Gui,5:Color,White
Winset,Transparent,1
;overlay
Gui,5:Font,cBlack s6 q1 
Gui,5:Add,Text,x0 y0 w400 h50 Border gMove_Windows , gMove_Windows
Gui,5:Add,Text,x420 y0 w30 h30 Border gGuiClose ,Close
Gui,5:Add,Text,x15 y109 w126 h34 Border , Not using
Gui,5:Add,Text,x+0 y109 w126 h34 Border , Not Using
Y:=163,var:=1
Loop 5	{
	Gui,5:Add,Text,x29 y%y% w121 h30 Border vT_%var% gShow_Control,vT_%var% gShow_Control
	y+=40,var++	
} Y:=203
Loop 4	{
	Gui,5:Add,Text,x164 y%y% w121 h30 Border vT_%var% gShow_Control,vT_%var% gShow_Control
	y+=40,var++
} Y:=243	
Loop 3	{
	Gui,5:Add,Text,x298 y%y% w121 h30 Border vT_%var% gShow_Control ,vT_%var% gShow_Control
	y+=40,var++
}
Gui,5:Add,Text,x15 y385 w175 h30 Border  vT_13 gShow_Control, vT_13 gShow_Control
Gui,5:Add,Text,x198 y385 w115 h30 Border vT_14 gShow_Control, vT_14 gShow_Control
Gui,5:Add,Text,x15 y421 w175 h30 Border vT_15 gShow_Control, vT_15 gShow_Control
Gui,5:Add,Text,x198 y421 w115 h30 Border vT_16 gShow_Control, vT_16 gShow_Control
Gui,5:Add,Text,x320 y385 w115 h30 Border vT_17 gShow_Control, vT_17 gShow_Control
Gui,5:Add,Text,x320 y421 w115 h30 Border vT_18 gShow_Control, vT_18 gShow_Control
Gui,5:Add,Text,x15 y520 w80 h20 Border vT_19 gShow_Control, vT_19 gShow_Control
Gui,5:Add,Text,x100 y520 w80 h20 Border vT_20 gShow_Control, vT_20 gShow_Control
Gui,5:Add,Text,x185 y520 w80 h20 Border vT_21 gShow_Control, vT_21 gShow_Control
Gui,5:Add,Text,x270 y520 w80 h20 Border vT_22 gShow_Control, vT_22 gShow_Control
Gui,5:Add,Text,x355 y520 w80 h20 Border vT_23 gShow_Control, vT_23 gShow_Control
Gui,5:Add,Text,x270 y670 w165 h30 Border vT_24 gExit_Script, vT_24 gExit_Script
Gui,5:Show,w450 h715,Top Layer Window Overlay
SetTimer,Button_Hover,60
return
GuiClose:
5GuiEscape:
*^ESC::
	ExitApp
Button_Hover:
	if(Press_Active=0){
		if(WinActive("Top Layer Window Overlay")){
			MouseGetPos,,,,ctrl,2
			GuiControlGet,cName,5:Name,% ctrl
			if(Hover_Active=0){
				MouseGetPos,,,,ctrl,2
				GuiControlGet,cName,5:Name,% ctrl
				loop 24	{
					if(cName="T_" A_Index){
						if(A_Index>=10)
							StringRight,tt,cName,2
						else 	
							StringRight,tt,cName,1
						GuiControl,4:+Background00aaff,P_%tt%
						GuiControl,4:+Redraw,PT_%tt%
						Hover_Active:=1
						GuiControlGet,cpos,5:pos,% cName		
					}
				}
			}
		}	
		if(Hover_Active=1){
			MouseGetPos,x,y,,ctrl,2
			GuiControlGet,cName,5:Name,% ctrl
			if((x<cposx||x>cposx+cposw||y<cposy||y>cposy+cposh)){
				GuiControl,4:+BackgroundWhite,P_%tt%
				GuiControl,4:+Redraw,PT_%tt%
				Hover_Active:=0,Hover_Ctrl:=""
			}		
		}
	}	
	return
Exit_Script:
	Press_Active:=1
	GuiControl,4:+Background33ff33,P_24
	GuiControl,4:+Redraw,PT_24
	While(GetKeyState("LButton"))
			sleep,10
	MouseGetPos,,,,ctrl,2
	GuiControlGet,cName,5:Name,% ctrl
	if(cName="T_24"){
		GuiControl,4:+Background00aaff,P_24
		GuiControl,4:+Redraw,PT_24
		Hover_Active:=1
		GuiControlGet,cpos,5:pos,% cName
	}else	{
		GuiControl,4:+BackgroundWhite,P_24
		GuiControl,4:+Redraw,PT_24
		Press_Active:=0	
		return
	}
	Press_Active:=0	
	Loop 500
		ToolTip,% A_Index
	Tooltip
	gosub, guiclose
	return
Show_Control:
	if(Strlen(A_GuiControl)=3)
		StringRight,temp,A_GuiControl,1
	else
		StringRight,temp,A_GuiControl,2
	Press_Active:=1
	GuiControl,4:+Background33ff33,P_%temp%
	GuiControl,4:+Redraw,PT_%temp%
	While(GetKeyState("LButton"))
		sleep,10
	MouseGetPos,,,,ctrl,2
	GuiControlGet,cName,5:Name,% ctrl
	if(cName=A_GuiControl){
		GuiControl,4:+Background00aaff,P_%temp%
		GuiControl,4:+Redraw,PT_%temp%
		Hover_Active:=1
		GuiControlGet,cpos,5:pos,% cName
	}else	{
		GuiControl,4:+BackgroundWhite,P_%temp%
		GuiControl,4:+Redraw,PT_%temp%
		Press_Active:=0	
		return
	}
	Press_Active:=0	
	GuiControlGet,text,4:,PT_%temp%
	TrayTip,Button Text,% Text,1
	return
Move_Windows:
	PostMessage,0xA1,2
	While(GetKeyState("LButton"))
		Sleep,10
	WinGetPos,x,y,,,Top Layer Window Overlay
	Loop, 4
		Gui,%A_Index%:Show,x%x% y%y%
	winactivate,Top Layer Window Overlay
	return
	
robmar-zl
Posts: 24
Joined: 05 Feb 2015, 04:57

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

04 Jun 2018, 02:19

My newest project: Desktop Launcher in Windows 10 Style with tiles:

!! Work in progress !!
This Screenshots shows a lot of testing like Weather Information
Image

On my List for new Tiles:
- E-Mail Preview of the last unread mail (already working)
- Some more tiles for programs
- nicer arrangement of tiles an better mix of 1x1 and 2x1 tiles
ozzii
Posts: 481
Joined: 30 Oct 2013, 06:04

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

04 Jun 2018, 02:36

This looks great robmar-zl
robmar-zl
Posts: 24
Joined: 05 Feb 2015, 04:57

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

04 Jun 2018, 05:13

Thanks, some more information for the ones interested in this solution:
- The wood in the background is my wallpaper
- the launcher appears with the hotkey CAPSLOCK
- it's basically images (125x125) with a transparent window.
- weather and images catched from google
- Mails, next appointment catched from outlook
burque505
Posts: 1731
Joined: 22 Jan 2017, 19:37

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

04 Jun 2018, 10:08

@robmar-zl, just like your last one, this looks great!
Reynbow
Posts: 10
Joined: 27 Sep 2017, 22:30

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

06 Jun 2018, 23:41

kczx3 wrote:@Reynbow, that looks quite nice! Is it using all normal GUI controls or are you using ActiveX, GDI, etc?
Well, I have no idea how to use ActiveX or GDI so yeah!
However, to give credit where it's due, I am using the Class_ImageButton.ahk library someone made here. It's very useful for custom button colours.

As for everything else, it's really just basic AHK code honestly. Background image made in photoshop. "Main Menu" up the top is actually a photoshopped image as well, as it uses custom font I like.

Other than that, very basic.
Hellbent wrote:
Reynbow wrote: I'd add some inspiration to others
I liked your gui and I had some time to kill so I remade it using only text and progress controls.
Couldn't find a perfect match for some of the fonts you used and I didn't notice the gif until just now so I didn't add the second tab, but I did add mouse hover and press color change.

What is the font for the "Main Menu" Text anyway? Most of the time I spent on this was trying to match the fonts (pain in the @$$)
Overall this took about 2 hours to get it to this point (I type slow :) ).

This is what it looks like at 50% size. Code is below.

Image

Code: Select all

#SingleInstance,Force
SetBatchLines,-1
CoordMode,Mouse,client
hover_active:=0,Press_Active:=0,hover_ctrl:=""
Gui,1:+AlwaysOnTop -Caption +LastFound
Gui,1:Add,Progress,x0 y0 w450 h715 Background1F2130
Gui,1:Font,cWhite s6 Bold q5  ,arial ;Unicode ms
Gui,1:Add,Text,x3 y3 Backgroundtrans ,10196
Gui,1:Font,cWhite s36  q5  ,Harlow Solid Italic
Gui,1:Add,Text,x419 y-15  Center Backgroundtrans ,x
Gui,1:Font,cWhite s9 Bold q5  ,arial 
Gui,1:Add,Text,x0 y38 w450 Center Backgroundtrans ,Hello Test Account
Gui,1:Font,cWhite s36 Bold q5  ,Eras Bold ITC 
Gui,1:Add,Text,cD1015B x0 y53 w450 Center Backgroundtrans ,MAIN MENU
Gui,1:Add,Text,x0 y50 w450 Center Backgroundtrans ,MAIN MENU
Gui,1:Add,Progress,x15 y109 w126 h34 Background1C1E2C c27293C ,100
Gui,1:Add,Progress,x+0 y109 w126 h34 Background1C1E2C c27293C ,100
Gui,1:Font,cWhite s14  q5  ,Corbel ;Arial ;Rounded MT Bold
Gui,1:Add,Text,x25 y115 BackgroundTrans,SUPPORT
Gui,1:Add,Text,x151 y115 BackgroundTrans,LOYALTY
Gui,1:Show,w450 h715, Testing a remake
Gui,2:+Alwaysontop +Owner1 +LastFound -Caption
Gui,2:Color, 54042A
Gui,2:Show,w450 h715
Winset,region, 0-658 450-555 450-715 0-715 ,A
Gui,3:+Alwaysontop +Owner2 +LastFound -Caption
Gui,3:Color, FB016D
Gui,3:Show,w450 h715
Winset,region, 0-680 450-577 450-715 0-715 ,A
Gui,4:+Alwaysontop +Owner3 +LastFound -Caption
Gui,4:Color,Lime
Winset,TransColor,Lime
Gui,4:Add,Progress,x15 y143 w420 h2 backgroundWhite
Gui,4:Add,Progress,x15 y143 w2 h225 backgroundWhite
Gui,4:Add,Progress,x15 y366 w420 h2 background696969
Gui,4:Add,Progress,x16 y366 w418 h1 backgroundA0A0A0
Gui,4:Add,Progress,x434 y143 w2 h225 background696969
Gui,4:Add,Progress,x434 y143 w1 h225 backgroundA0A0A0
Text1:=["INSTALL","DATA OUTAGE","QA","ADMIN","KNOCKBACK"]
Gui,4:Font,cBlack s10 w600 Q5,Arial Narrow  ;Berlin Sans FB
Y:=163,y_Off:=8,var:=1
Loop 5	{
	Gui,4:Add,Progress,x29 y%y% w121 h30 backgroundFB016D 
	Gui,4:Add,Progress,x32 y%y% w118 h30 backgroundWhite vP_%var%
	Gui,4:Add,Text,% "x42 y" y+y_Off " BackgroundTrans vPT_" var,% Text1[A_Index]
	y+=40,var++
}
Gui,4:Font,cBlack s9 Norm  Q5,Berlin Sans FB	
Text2:=["Fred Confirmation","QA Pass","Cancellation","Phone Rang Out"],Y:=203
Loop 4	{
	Gui,4:Add,Progress,x164 y%y% w121 h30 backgroundFB016D
	Gui,4:Add,Progress,x167 y%y% w118 h30 backgroundWhite vP_%var%
	Gui,4:Add,Text,% "x177 y" y+y_Off " w100 Right BackgroundTrans vPT_"var,% Text2[A_Index]
	y+=40,var++
}
Text3:=["Remote Update","Paths for AV","Email Templates"],Y:=243	
Loop 3	{
	Gui,4:Add,Progress,x298 y%y% w121 h30 backgroundFB016D
	Gui,4:Add,Progress,x301 y%y% w118 h30 backgroundWhite vP_%var%
	Gui,4:Add,Text,% "x311 y" y+y_Off " w100 Right BackgroundTrans vPT_"var,% Text3[A_Index]
	y+=40,var++
}
Gui,4:Font,
Gui,4:Font,cBlack s9 Q5 w550, Arial Unicode MS ;Berlin Sans FB
Gui,4:Add,Progress,x15 y385 w175 h30 BackgroundWhite vP_13
Gui,4:Add,Text,x23 y392  BackgroundTrans vPT_13,Process Charts
Gui,4:Add,Progress,x198 y385 w115 h30 BackgroundWhite vP_14
Gui,4:Add,Text,x206 y392  BackgroundTrans vPT_14,Macros
Gui,4:Add,Progress,x15 y421 w175 h30 BackgroundWhite vP_15
Gui,4:Add,Text,x23 y428  BackgroundTrans vPT_15,Password Generator
Gui,4:Add,Progress,x198 y421 w115 h30 BackgroundWhite vP_16
Gui,4:Add,Text,x206 y428  BackgroundTrans vPT_16,Staff Points
Gui,4:Add,Progress,x320 y385 w115 h30 BackgroundWhite vP_17
Gui,4:Add,Text,x328 y392  BackgroundTrans vPT_17,View Store Logs
Gui,4:Add,Progress,x320 y421 w115 h30 BackgroundWhite vP_18
Gui,4:Add,Text,x328 y428  BackgroundTrans vPT_18,Staff Logs
Gui,4:Font,
Gui,4:Font,cWhite s11 Q3 ,Franklin Gothic Demi  ;Estrangelo Edessa ;Arial Unicode MS ;Berlin Sans FB
Gui,4:Add,Text,x0 y478 w202 r1 BackgroundTrans Center ,RUNNING TOTAL = None :(
Gui,4:Add,Text,cCC0000 x225 y478 w225 r1 BackgroundTrans Center ,DATA OUTAGE COUNT = 0/15
Gui,4:Font,
Gui,4:Font,cWhite s11 Q5 ,Franklin Gothic Demi
Gui,4:Add,Progress,x15 y520 w80 h20 BackgroundWhite vP_19
Gui,4:Add,Text,cBlack x18 y520  BackgroundTrans vPT_19,Data Out
Gui,4:Add,Progress,x100 y520 w80 h20 BackgroundWhite vP_20
Gui,4:Add,Text,cBlack x103 y520  BackgroundTrans vPT_20,Install
Gui,4:Add,Progress,x185 y520 w80 h20 BackgroundWhite vP_21
Gui,4:Add,Text,cBlack x188 y520  BackgroundTrans vPT_21,QA
Gui,4:Add,Progress,x270 y520 w80 h20 BackgroundWhite vP_22
Gui,4:Add,Text,cBlack x273 y520  BackgroundTrans vPT_22,Till Install
Gui,4:Add,Progress,x355 y520 w80 h20 BackgroundWhite vP_23
Gui,4:Add,Text,cBlack x358 y520  BackgroundTrans vPT_23,Till Config
Gui,4:Font,
Gui,4:Font,cWhite s10 Q5 ,Franklin Gothic Demi
Gui,4:Add,Progress,x270 y670 w165 h30 BackgroundWhite vP_24
Gui,4:Add,Text,cBlack x275 y677  BackgroundTrans vPT_24,Exit
Gui,4:Show,w450 h715
Gui,5:+AlwaysOnTop -Caption +LastFound +Owner4
Gui,5:Color,White
Winset,Transparent,1
;overlay
Gui,5:Font,cBlack s6 q1 
Gui,5:Add,Text,x0 y0 w400 h50 Border gMove_Windows , gMove_Windows
Gui,5:Add,Text,x420 y0 w30 h30 Border gGuiClose ,Close
Gui,5:Add,Text,x15 y109 w126 h34 Border , Not using
Gui,5:Add,Text,x+0 y109 w126 h34 Border , Not Using
Y:=163,var:=1
Loop 5	{
	Gui,5:Add,Text,x29 y%y% w121 h30 Border vT_%var% gShow_Control,vT_%var% gShow_Control
	y+=40,var++	
} Y:=203
Loop 4	{
	Gui,5:Add,Text,x164 y%y% w121 h30 Border vT_%var% gShow_Control,vT_%var% gShow_Control
	y+=40,var++
} Y:=243	
Loop 3	{
	Gui,5:Add,Text,x298 y%y% w121 h30 Border vT_%var% gShow_Control ,vT_%var% gShow_Control
	y+=40,var++
}
Gui,5:Add,Text,x15 y385 w175 h30 Border  vT_13 gShow_Control, vT_13 gShow_Control
Gui,5:Add,Text,x198 y385 w115 h30 Border vT_14 gShow_Control, vT_14 gShow_Control
Gui,5:Add,Text,x15 y421 w175 h30 Border vT_15 gShow_Control, vT_15 gShow_Control
Gui,5:Add,Text,x198 y421 w115 h30 Border vT_16 gShow_Control, vT_16 gShow_Control
Gui,5:Add,Text,x320 y385 w115 h30 Border vT_17 gShow_Control, vT_17 gShow_Control
Gui,5:Add,Text,x320 y421 w115 h30 Border vT_18 gShow_Control, vT_18 gShow_Control
Gui,5:Add,Text,x15 y520 w80 h20 Border vT_19 gShow_Control, vT_19 gShow_Control
Gui,5:Add,Text,x100 y520 w80 h20 Border vT_20 gShow_Control, vT_20 gShow_Control
Gui,5:Add,Text,x185 y520 w80 h20 Border vT_21 gShow_Control, vT_21 gShow_Control
Gui,5:Add,Text,x270 y520 w80 h20 Border vT_22 gShow_Control, vT_22 gShow_Control
Gui,5:Add,Text,x355 y520 w80 h20 Border vT_23 gShow_Control, vT_23 gShow_Control
Gui,5:Add,Text,x270 y670 w165 h30 Border vT_24 gExit_Script, vT_24 gExit_Script
Gui,5:Show,w450 h715,Top Layer Window Overlay
SetTimer,Button_Hover,60
return
GuiClose:
5GuiEscape:
*^ESC::
	ExitApp
Button_Hover:
	if(Press_Active=0){
		if(WinActive("Top Layer Window Overlay")){
			MouseGetPos,,,,ctrl,2
			GuiControlGet,cName,5:Name,% ctrl
			if(Hover_Active=0){
				MouseGetPos,,,,ctrl,2
				GuiControlGet,cName,5:Name,% ctrl
				loop 24	{
					if(cName="T_" A_Index){
						if(A_Index>=10)
							StringRight,tt,cName,2
						else 	
							StringRight,tt,cName,1
						GuiControl,4:+Background00aaff,P_%tt%
						GuiControl,4:+Redraw,PT_%tt%
						Hover_Active:=1
						GuiControlGet,cpos,5:pos,% cName		
					}
				}
			}
		}	
		if(Hover_Active=1){
			MouseGetPos,x,y,,ctrl,2
			GuiControlGet,cName,5:Name,% ctrl
			if((x<cposx||x>cposx+cposw||y<cposy||y>cposy+cposh)){
				GuiControl,4:+BackgroundWhite,P_%tt%
				GuiControl,4:+Redraw,PT_%tt%
				Hover_Active:=0,Hover_Ctrl:=""
			}		
		}
	}	
	return
Exit_Script:
	Press_Active:=1
	GuiControl,4:+Background33ff33,P_24
	GuiControl,4:+Redraw,PT_24
	While(GetKeyState("LButton"))
			sleep,10
	MouseGetPos,,,,ctrl,2
	GuiControlGet,cName,5:Name,% ctrl
	if(cName="T_24"){
		GuiControl,4:+Background00aaff,P_24
		GuiControl,4:+Redraw,PT_24
		Hover_Active:=1
		GuiControlGet,cpos,5:pos,% cName
	}else	{
		GuiControl,4:+BackgroundWhite,P_24
		GuiControl,4:+Redraw,PT_24
		Press_Active:=0	
		return
	}
	Press_Active:=0	
	Loop 500
		ToolTip,% A_Index
	Tooltip
	gosub, guiclose
	return
Show_Control:
	if(Strlen(A_GuiControl)=3)
		StringRight,temp,A_GuiControl,1
	else
		StringRight,temp,A_GuiControl,2
	Press_Active:=1
	GuiControl,4:+Background33ff33,P_%temp%
	GuiControl,4:+Redraw,PT_%temp%
	While(GetKeyState("LButton"))
		sleep,10
	MouseGetPos,,,,ctrl,2
	GuiControlGet,cName,5:Name,% ctrl
	if(cName=A_GuiControl){
		GuiControl,4:+Background00aaff,P_%temp%
		GuiControl,4:+Redraw,PT_%temp%
		Hover_Active:=1
		GuiControlGet,cpos,5:pos,% cName
	}else	{
		GuiControl,4:+BackgroundWhite,P_%temp%
		GuiControl,4:+Redraw,PT_%temp%
		Press_Active:=0	
		return
	}
	Press_Active:=0	
	GuiControlGet,text,4:,PT_%temp%
	TrayTip,Button Text,% Text,1
	return
Move_Windows:
	PostMessage,0xA1,2
	While(GetKeyState("LButton"))
		Sleep,10
	WinGetPos,x,y,,,Top Layer Window Overlay
	Loop, 4
		Gui,%A_Index%:Show,x%x% y%y%
	winactivate,Top Layer Window Overlay
	return
	
Man that's incredible. Nicely done dude!
Impressed that you were able to do the background image in AHK code! Seriously. I just did it the lazy way, by making it in Photoshop. :P
In fairness to me though, the image looks far smoother than yours. Ha!

Not to take away from how impressive yours is, it is also very laggy compared to how smooth mine is. :D

Regardless, again. Impressive.

As for the font, it's Montseratt. It's a Google font. https://fonts.google.com/specimen/Montserrat

It's also just an image, rather than code.

I find it funny how you included the tiny number up the top left. That little number is a counter for how many times you open the GUI. Just a fun little easter egg I thought I'd add. You can see it gets used A LOT. :P
User avatar
joedf
Posts: 8937
Joined: 29 Sep 2013, 17:08
Location: Canada
Contact:

Re: Examples of Non-Standard GUIs (ActiveX, GDI, etc.)

07 Jun 2018, 15:01

Cool :+1: looks "video-game-y" :cool:
Image Image Image Image Image
Windows 10 x64 Professional, Intel i5-8500, NVIDIA GTX 1060 6GB, 2x16GB Kingston FURY Beast - DDR4 3200 MHz | [About Me] | [About the AHK Foundation] | [Courses on AutoHotkey]
[ASPDM - StdLib Distribution] | [Qonsole - Quake-like console emulator] | [LibCon - Autohotkey Console Library]

Return to “Scripts and Functions (v1)”

Who is online

Users browsing this forum: KnIfER and 93 guests