MightyWeird Posted August 26, 2020 Posted August 26, 2020 (edited) I recently came across some excellent scripts by se7enstars. So I tried to combine them. Use his modern blog script with the modern (advanced version!!!!!) of the checkboxes script (source below) I would like to have the modern checkboxes in one of the tabs (In the test and trial below I tried to place them in the team panel. I am trying to understand, but cant seem to get it working. expandcollapse popup#include<ModernCheckbox.au3> #NoTrayIcon Global $Assets = @ScriptDir & "\Assets\" Global $uiWidth = 800, $uiHeight = 420 Global $btnCaption[5] = ["Get Started", "Information", "Teamwork", "About us", "Logout"] Global $btnTop[5], $btnTopWidth = 102, $btnTopWidth = 32 Global $hFocus, $LastFocus, $hBkPic, $LastContent Global $btnLearnMore, $AboutPanel GLOBAL $check[6], $y = 50 $ui = GUICreate("Se7enstars Design", $uiWidth, $uiHeight, Default, Default, 0x80880000, 0x10000) GUISetBkColor(0xFFFFFF, $ui) _InitButton7s() $Title_0 = GUICtrlCreateLabel("Se7enstars ", 10, 10, 100, 25, 0x0200, 0x00100000) GUICtrlSetFont(-1, 14, 700, Default, "Segoe UI", 5) $Title_1 = GUICtrlCreateLabel("UI", 110, 10, 80, 25, 0x0200, 0x00100000) GUICtrlSetFont(-1, 14, Default, Default, "Segoe UI", 5) For $i = 0 To 4 $btnTop[$i] = _GUICtrlCreateButton7s($btnCaption[$i], ($uiWidth-112) - ($i*100), 10, 102, 32) Next _GUICtrlSetDefaultButton7s($btnTop[0], $ui) GUISetState(@SW_SHOW) _GetStartedPanel() Do $msg = GUIGetMsg() For $i = 0 To 4 If $msg = $btnTop[$i] Then _GUICtrlSetDefaultButton7s($btnTop[$i], $ui) EndIf Next For $checki = 0 To UBound($check)-1 Switch $msg Case $check[$i] If _GUICtrlCheckBoxGetState($check[$checki]) = False Then ConsoleWrite("vinkje uit" & @CRLF) _GUICtrlCheckboxSetState($check[$checki], True) Else ConsoleWrite("vinkje aan" & @CRLF) _GUICtrlCheckboxSetState($check[$checki], False) EndIf EndSwitch Next Switch $msg Case $btnTop[0] GUIDelete($LastContent) _GetStartedPanel() Case $btnTop[1] GUIDelete($LastContent) _InfoPanel() Case $btnTop[2] GUIDelete($LastContent) _TeamPanel() Case $btnTop[3] GUIDelete($LastContent) _AboutPanel() Case $btnTop[4] ;~ $iExitMsg = MsgBox(4+32+256, "Info", "Do You want to exit ?", 0, $ui) ;~ If $iExitMsg = 6 Then ;~ GUICtrlSetData($Title_0, "Logging") ;~ GUICtrlSetColor($Title_0, 0xDD0000) ;~ GUICtrlSetData($Title_1, "out") ;~ GUICtrlSetColor($Title_1, 0xDD0000) ;~ Sleep(1500) Exit ;~ EndIf Case $btnLearnMore If $LastContent = $AboutPanel Then MsgBox(64, "Subscribe", "Please subscribe to our channel on Youtube") ;~ ShellExecute("https://youtube.com/c/se7enstars") EndIf Case $check[1] If $LastContent = $AboutPanel Then ;~ ; case _GUICtrlCheckBoxGetState($check[1]) = True then If GuiCtrlRead($check[0]) = True then ConsoleWrite("ja, hij doet wat") ;~ If $LastContent = $AboutPanel Then MsgBox(0,"test","test") EndIf endif EndSwitch $focusedCtrl = GUIGetCursorInfo() If Not @error Then Switch $focusedCtrl[4] Case $LastFocus If $hFocus <> $focusedCtrl[4] Then _GUICtrlSetHover(1) $hFocus = $focusedCtrl[4] EndIf Case Else If $hFocus <> Null Then _GUICtrlSetHover(0) $hFocus = Null EndIf EndSwitch EndIf Until $msg = -3; Exit Func _GetStartedPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $GetStartedPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUICtrlCreatePic($Assets & "bk1.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("Database" & @CRLF & "Developers", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("Wellcome to database control app" & @CRLF & "Please select what we need to do", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Learn More", 10, $GSP_H/2+80, 102, 32) _Animate($GetStartedPanel) GUISetState(@SW_SHOW, $GetStartedPanel) $LastContent = $GetStartedPanel EndFunc Func _InfoPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $InfoPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUICtrlCreatePic($Assets & "bk2.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("More" & @CRLF & "informations", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("We help you to get all off DB in secure" & @CRLF & "Need new account? Try create", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Sign Up", 10, $GSP_H/2+80, 102, 32) _Animate($InfoPanel) GUISetState(@SW_SHOW, $InfoPanel) $LastContent = $InfoPanel EndFunc Func _TeamPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $TeamPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUICtrlCreatePic($Assets & "bk3.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("Teamwork" & @CRLF & "support", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("Our project can work with team" & @CRLF & "Only get your token and connect", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Get Token", 10, $GSP_H/2+80, 102, 32) For $i = 0 To 5 $check[$i] = _GUICtrlCreateCheckboxEx(250, $y, 32, 32, $i) GUICtrlSetCursor(-1, 0) $y += 40 ;checkbox height Next _Animate($TeamPanel) GUISetState(@SW_SHOW, $TeamPanel) $LastContent = $TeamPanel EndFunc Func _AboutPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $AboutPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUICtrlCreatePic($Assets & "bk4.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("About" & @CRLF & "this amazing app", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("This tool help you to craete edit " & @CRLF & "your cloud database! " & @CRLF & _ "It was created from Se7enstars Developers Network © 2020", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Help && FAQ", 10, $GSP_H/2+80, 102, 32) _Animate($AboutPanel) GUISetState(@SW_SHOW, $AboutPanel) $LastContent = $AboutPanel EndFunc Func _Animate($hHWND, $iFadeIn = 1) If $iFadeIn = 1 Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hHWND, "int", 300, "long", 0x00080000) ;fade-in Else DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hHWND, "int", 300, "long", 0x00090000) ;fade-out EndIf EndFunc Func _InitButton7s() If $hBkPic = "" Then $hBkPic = GUICtrlCreatePic($Assets & "0.jpg", -99, -99, 102, 32) GUICtrlSetState(-1, -128) GUICtrlSetCursor(-1, 0) EndIf Return $hBkPic EndFunc Func _GUICtrlCreateButton7s($sText, $iX, $iY, $iW, $iH, $bColor = 0x000000) Local $hCtrl = GUICtrlCreateLabel($sText, $iX, $iY, $iW, $iH, 0x01 + 0x0200) GUICtrlSetColor(-1, $bColor) GUICtrlSetBkColor(-1, -2) GUICtrlSetFont(-1, 10, Default, Default, "Century Gothic", 5) GUICtrlSetCursor(-1, 0) Return $hCtrl EndFunc Func _GUICtrlCreateButton7sEX($sText, $iX, $iY, $iW, $iH, $bColor = 0xFFFFFF) GUICtrlCreatePic($Assets & "0.jpg", $iX, $iY, $iW, $iH, 0x80) GUICtrlSetState(-1, -128) GUICtrlSetCursor(-1, 0) Local $hCtrl = GUICtrlCreateLabel($sText, $iX, $iY, $iW, $iH, 0x01 + 0x0200) GUICtrlSetColor(-1, $bColor) GUICtrlSetBkColor(-1, -2) GUICtrlSetFont(-1, 10, Default, Default, "Century Gothic", 5) GUICtrlSetCursor(-1, 0) Return $hCtrl EndFunc Func _GUICtrlSetDefaultButton7s($hCtrlID, $hHWND = Default) Local $CGP = ControlGetPos($hHWND, '', $hCtrlID) GUICtrlSetPos(_InitButton7s(), $CGP[0], $CGP[1], $CGP[2], $CGP[3]) GUICtrlSetColor($hCtrlID, 0xFFFFFF) If $LastFocus <> '' Then GUICtrlSetColor($LastFocus, 0x000000) $LastFocus = $hCtrlID EndFunc Func _GUICtrlSetHover($bHover = 0) If $bHover = 0 Then GUICtrlSetImage(_InitButton7s(), $Assets & "0.jpg") Else GUICtrlSetImage(_InitButton7s(), $Assets & "1.jpg") EndIf EndFunc source: Edited August 26, 2020 by MightyWeird
Se7enstars Posted August 28, 2020 Posted August 28, 2020 1st add (how many checkboxes you want to create) Global $check[6] 2nd (used 250, $y, 32, 32, 6) >> 6 for that the gui bk is white, i used colored checkbox $y = 50 For $i = 0 To 5 $check[$i] = _GUICtrlCreateCheckboxEx(250, $y, 32, 32, 6) GUICtrlSetCursor(-1, 0) $y += 40 ;checkbox height Next 3rd init to while >> switch >> case for clicking work For $i = 0 To UBound($check)-1 Switch $msg Case $check[$i] If _GUICtrlCheckBoxGetState($check[$i]) = False Then _GUICtrlCheckboxSetState($check[$i], True) Else _GUICtrlCheckboxSetState($check[$i], False) EndIf EndSwitch Next FULL CODE! expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Se7enstars Youtube: https://youtube.com/c/Se7enstars | Subscribe please! :) & Like #ce ---------------------------------------------------------------------------- ;ReEdited for M W. (our youtube sibscriber) THANKS! #include <ModernCheckbox.au3> ; MODERN CHECKBOX UDF #NoTrayIcon Global $Assets = @ScriptDir & "\Assets\" Global $uiWidth = 800, $uiHeight = 420 Global $btnCaption[5] = ["Get Started", "Information", "Teamwork", "About us", "Logout"] Global $btnTop[5], $btnTopWidth = 102, $btnTopWidth = 32 Global $hFocus, $LastFocus, $hBkPic, $LastContent Global $btnLearnMore, $AboutPanel Global $check[6] $ui = GUICreate("Se7enstars Design", $uiWidth, $uiHeight, Default, Default, 0x80880000, 0x10000) GUISetBkColor(0xFFFFFF, $ui) _InitButton7s() $Title_0 = GUICtrlCreateLabel("Se7enstars ", 10, 10, 100, 25, 0x0200, 0x00100000) GUICtrlSetFont(-1, 14, 700, Default, "Segoe UI", 5) $Title_1 = GUICtrlCreateLabel("UI", 110, 10, 80, 25, 0x0200, 0x00100000) GUICtrlSetFont(-1, 14, Default, Default, "Segoe UI", 5) For $i = 0 To 4 $btnTop[$i] = _GUICtrlCreateButton7s($btnCaption[$i], ($uiWidth-112) - ($i*100), 10, 102, 32) Next _GUICtrlSetDefaultButton7s($btnTop[0], $ui) GUISetState(@SW_SHOW) _GetStartedPanel() Do $msg = GUIGetMsg() For $i = 0 To 4 If $msg = $btnTop[$i] Then _GUICtrlSetDefaultButton7s($btnTop[$i], $ui) EndIf Next For $i = 0 To UBound($check)-1 Switch $msg Case $check[$i] If _GUICtrlCheckBoxGetState($check[$i]) = False Then _GUICtrlCheckboxSetState($check[$i], True) Else _GUICtrlCheckboxSetState($check[$i], False) EndIf EndSwitch Next Switch $msg Case $btnTop[0] GUIDelete($LastContent) _GetStartedPanel() Case $btnTop[1] GUIDelete($LastContent) _InfoPanel() Case $btnTop[2] GUIDelete($LastContent) _TeamPanel() Case $btnTop[3] GUIDelete($LastContent) _AboutPanel() Case $btnTop[4] $iExitMsg = MsgBox(4+32+256, "Info", "Do You want to exit ?", 0, $ui) If $iExitMsg = 6 Then GUICtrlSetData($Title_0, "Logging") GUICtrlSetColor($Title_0, 0xDD0000) GUICtrlSetData($Title_1, "out") GUICtrlSetColor($Title_1, 0xDD0000) Sleep(1500) Exit EndIf Case $btnLearnMore If $LastContent = $AboutPanel Then MsgBox(64, "Subscribe", "Please subscribe to our channel on Youtube") ShellExecute("https://youtube.com/c/se7enstars") EndIf EndSwitch $focusedCtrl = GUIGetCursorInfo() If Not @error Then Switch $focusedCtrl[4] Case $LastFocus If $hFocus <> $focusedCtrl[4] Then _GUICtrlSetHover(1) $hFocus = $focusedCtrl[4] EndIf Case Else If $hFocus <> Null Then _GUICtrlSetHover(0) $hFocus = Null EndIf EndSwitch EndIf Until $msg = -3; Exit Func _GetStartedPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $GetStartedPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk1.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("Database" & @CRLF & "Developers", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("Wellcome to database control app" & @CRLF & "Please select what we need to do", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Learn More", 10, $GSP_H/2+80, 102, 32) _Animate($GetStartedPanel) GUISetState(@SW_SHOW, $GetStartedPanel) $LastContent = $GetStartedPanel EndFunc Func _InfoPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $InfoPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk2.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("More" & @CRLF & "informations", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("We help you to get all off DB in secure" & @CRLF & "Need new account? Try create", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Sign Up", 10, $GSP_H/2+80, 102, 32) _Animate($InfoPanel) GUISetState(@SW_SHOW, $InfoPanel) $LastContent = $InfoPanel EndFunc Func _TeamPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $TeamPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk3.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("Teamwork" & @CRLF & "support", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("Our project can work with team" & @CRLF & "Only get your token and connect", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $y = 50 For $i = 0 To 5 $check[$i] = _GUICtrlCreateCheckboxEx(250, $y, 32, 32, 6) GUICtrlSetCursor(-1, 0) $y += 40 ;checkbox height Next $btnLearnMore = _GUICtrlCreateButton7sEx("Get Token", 10, $GSP_H/2+80, 102, 32) _Animate($TeamPanel) GUISetState(@SW_SHOW, $TeamPanel) $LastContent = $TeamPanel EndFunc Func _AboutPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $AboutPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk4.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("About" & @CRLF & "this amazing app", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("This tool help you to craete edit " & @CRLF & "your cloud database! " & @CRLF & _ "It was created from Se7enstars Developers Network © 2020", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Help && FAQ", 10, $GSP_H/2+80, 102, 32) _Animate($AboutPanel) GUISetState(@SW_SHOW, $AboutPanel) $LastContent = $AboutPanel EndFunc Func _Animate($hHWND, $iFadeIn = 1) If $iFadeIn = 1 Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hHWND, "int", 300, "long", 0x00080000) ;fade-in Else DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hHWND, "int", 300, "long", 0x00090000) ;fade-out EndIf EndFunc Func _InitButton7s() If $hBkPic = "" Then $hBkPic = GUICtrlCreatePic($Assets & "0.jpg", -99, -99, 102, 32) GUICtrlSetState(-1, -128) GUICtrlSetCursor(-1, 0) EndIf Return $hBkPic EndFunc Func _GUICtrlCreateButton7s($sText, $iX, $iY, $iW, $iH, $bColor = 0x000000) Local $hCtrl = GUICtrlCreateLabel($sText, $iX, $iY, $iW, $iH, 0x01 + 0x0200) GUICtrlSetColor(-1, $bColor) GUICtrlSetBkColor(-1, -2) GUICtrlSetFont(-1, 10, Default, Default, "Century Gothic", 5) GUICtrlSetCursor(-1, 0) Return $hCtrl EndFunc Func _GUICtrlCreateButton7sEX($sText, $iX, $iY, $iW, $iH, $bColor = 0xFFFFFF) GUICtrlCreatePic($Assets & "0.jpg", $iX, $iY, $iW, $iH, 0x80) GUICtrlSetState(-1, -128) GUICtrlSetCursor(-1, 0) Local $hCtrl = GUICtrlCreateLabel($sText, $iX, $iY, $iW, $iH, 0x01 + 0x0200) GUICtrlSetColor(-1, $bColor) GUICtrlSetBkColor(-1, -2) GUICtrlSetFont(-1, 10, Default, Default, "Century Gothic", 5) GUICtrlSetCursor(-1, 0) Return $hCtrl EndFunc Func _GUICtrlSetDefaultButton7s($hCtrlID, $hHWND = Default) Local $CGP = ControlGetPos($hHWND, '', $hCtrlID) GUICtrlSetPos(_InitButton7s(), $CGP[0], $CGP[1], $CGP[2], $CGP[3]) GUICtrlSetColor($hCtrlID, 0xFFFFFF) If $LastFocus <> '' Then GUICtrlSetColor($LastFocus, 0x000000) $LastFocus = $hCtrlID EndFunc Func _GUICtrlSetHover($bHover = 0) If $bHover = 0 Then GUICtrlSetImage(_InitButton7s(), $Assets & "0.jpg") Else GUICtrlSetImage(_InitButton7s(), $Assets & "1.jpg") EndIf EndFunc All my tutorials >> Watch
MightyWeird Posted September 14, 2021 Author Posted September 14, 2021 (edited) Can I still reply to old topic? So after a while I decided to place a couple of new checkboxes on a new gui / panel, so checkboxes on multiple panels / guis. But when I switch from different panels / guis the checkboxes dont work anymore . I cant figure out why. Somehow the checkboxes keep on counting ($i) when I change gui / panel (see consolewrite) I pm original author, but if someone can help me out... expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Se7enstars Youtube: https://youtube.com/c/Se7enstars | Subscribe please! :) & Like #ce ---------------------------------------------------------------------------- ;ReEdited for M W. (our youtube sibscriber) THANKS! #include <ModernCheckbox.au3> ; MODERN CHECKBOX UDF #NoTrayIcon Global $Assets = @ScriptDir & "\Assets\" Global $uiWidth = 800, $uiHeight = 420 Global $btnCaption[5] = ["Get Started", "Information", "Teamwork", "About us", "Logout"] Global $btnTop[5], $btnTopWidth = 102, $btnTopWidth = 32 Global $hFocus, $LastFocus, $hBkPic, $LastContent Global $btnLearnMore, $AboutPanel Global $check[6] Global $checktest[6] $ui = GUICreate("Se7enstars Design", $uiWidth, $uiHeight, Default, Default, 0x80880000, 0x10000) GUISetBkColor(0xFFFFFF, $ui) _InitButton7s() $Title_0 = GUICtrlCreateLabel("Se7enstars ", 10, 10, 100, 25, 0x0200, 0x00100000) GUICtrlSetFont(-1, 14, 700, Default, "Segoe UI", 5) $Title_1 = GUICtrlCreateLabel("UI", 110, 10, 80, 25, 0x0200, 0x00100000) GUICtrlSetFont(-1, 14, Default, Default, "Segoe UI", 5) For $i = 0 To 4 $btnTop[$i] = _GUICtrlCreateButton7s($btnCaption[$i], ($uiWidth-112) - ($i*100), 10, 102, 32) Next _GUICtrlSetDefaultButton7s($btnTop[0], $ui) GUISetState(@SW_SHOW) _GetStartedPanel() Do $msg = GUIGetMsg() For $i = 0 To 4 If $msg = $btnTop[$i] Then _GUICtrlSetDefaultButton7s($btnTop[$i], $ui) EndIf Next For $i = 0 To UBound($check)-1 Switch $msg Case $check[$i] ConsoleWrite("debug, check= " & $check[$i] & @CRLF) If _GUICtrlCheckBoxGetState($check[$i]) = False Then _GUICtrlCheckboxSetState($check[$i], True) Else _GUICtrlCheckboxSetState($check[$i], False) EndIf EndSwitch Next For $i = 0 To UBound($check)-1 Switch $msg Case $checktest[$i] ConsoleWrite("debug, check= " & $checktest[$i] & @CRLF) If _GUICtrlCheckBoxGetState($checktest[$i]) = False Then _GUICtrlCheckboxSetState($checktest[$i], True) Else _GUICtrlCheckboxSetState($checktest[$i], False) EndIf EndSwitch Next Switch $msg Case $btnTop[0] GUIDelete($LastContent) _GetStartedPanel() Case $btnTop[1] GUIDelete($LastContent) _InfoPanel() Case $btnTop[2] GUIDelete($LastContent) _TeamPanel() Case $btnTop[3] GUIDelete($LastContent) _AboutPanel() Case $btnTop[4] $iExitMsg = MsgBox(4+32+256, "Info", "Do You want to exit ?", 0, $ui) If $iExitMsg = 6 Then GUICtrlSetData($Title_0, "Logging") GUICtrlSetColor($Title_0, 0xDD0000) GUICtrlSetData($Title_1, "out") GUICtrlSetColor($Title_1, 0xDD0000) Sleep(1500) Exit EndIf Case $btnLearnMore If $LastContent = $AboutPanel Then MsgBox(64, "Subscribe", "Please subscribe to our channel on Youtube") ShellExecute("https://youtube.com/c/se7enstars") EndIf EndSwitch $focusedCtrl = GUIGetCursorInfo() If Not @error Then Switch $focusedCtrl[4] Case $LastFocus If $hFocus <> $focusedCtrl[4] Then _GUICtrlSetHover(1) $hFocus = $focusedCtrl[4] EndIf Case Else If $hFocus <> Null Then _GUICtrlSetHover(0) $hFocus = Null EndIf EndSwitch EndIf Until $msg = -3; Exit Func _GetStartedPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $GetStartedPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk1.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("Database" & @CRLF & "Developers", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("Wellcome to database control app" & @CRLF & "Please select what we need to do", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Learn More", 10, $GSP_H/2+80, 102, 32) _Animate($GetStartedPanel) GUISetState(@SW_SHOW, $GetStartedPanel) $LastContent = $GetStartedPanel EndFunc Func _InfoPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $InfoPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk2.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("More" & @CRLF & "informations", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("We help you to get all off DB in secure" & @CRLF & "Need new account? Try create", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Sign Up", 10, $GSP_H/2+80, 102, 32) _Animate($InfoPanel) GUISetState(@SW_SHOW, $InfoPanel) $LastContent = $InfoPanel EndFunc Func _TeamPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $TeamPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk3.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("Teamwork" & @CRLF & "support", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("Our project can work with team" & @CRLF & "Only get your token and connect", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $y = 50 For $i = 0 To 5 $check[$i] = _GUICtrlCreateCheckboxEx(250, $y, 32, 32, 6) GUICtrlSetCursor(-1, 0) $y += 40 ;checkbox height Next $btnLearnMore = _GUICtrlCreateButton7sEx("Get Token", 10, $GSP_H/2+80, 102, 32) _Animate($TeamPanel) GUISetState(@SW_SHOW, $TeamPanel) $LastContent = $TeamPanel EndFunc Func _AboutPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $AboutPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk4.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("About" & @CRLF & "this amazing app", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) $y = 50 For $i = 0 To 5 $checktest[$i] = _GUICtrlCreateCheckboxEx(250, $y, 32, 32, 6) GUICtrlSetCursor(-1, 0) $y += 40 ;checkbox height Next Local $hLeftText = GUICtrlCreateLabel("This tool help you to craete edit " & @CRLF & "your cloud database! " & @CRLF & _ "It was created from Se7enstars Developers Network © 2020", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Help && FAQ", 10, $GSP_H/2+80, 102, 32) _Animate($AboutPanel) GUISetState(@SW_SHOW, $AboutPanel) $LastContent = $AboutPanel EndFunc Func _Animate($hHWND, $iFadeIn = 1) If $iFadeIn = 1 Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hHWND, "int", 300, "long", 0x00080000) ;fade-in Else DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hHWND, "int", 300, "long", 0x00090000) ;fade-out EndIf EndFunc Func _InitButton7s() If $hBkPic = "" Then $hBkPic = GUICtrlCreatePic($Assets & "0.jpg", -99, -99, 102, 32) GUICtrlSetState(-1, -128) GUICtrlSetCursor(-1, 0) EndIf Return $hBkPic EndFunc Func _GUICtrlCreateButton7s($sText, $iX, $iY, $iW, $iH, $bColor = 0x000000) Local $hCtrl = GUICtrlCreateLabel($sText, $iX, $iY, $iW, $iH, 0x01 + 0x0200) GUICtrlSetColor(-1, $bColor) GUICtrlSetBkColor(-1, -2) GUICtrlSetFont(-1, 10, Default, Default, "Century Gothic", 5) GUICtrlSetCursor(-1, 0) Return $hCtrl EndFunc Func _GUICtrlCreateButton7sEX($sText, $iX, $iY, $iW, $iH, $bColor = 0xFFFFFF) GUICtrlCreatePic($Assets & "0.jpg", $iX, $iY, $iW, $iH, 0x80) GUICtrlSetState(-1, -128) GUICtrlSetCursor(-1, 0) Local $hCtrl = GUICtrlCreateLabel($sText, $iX, $iY, $iW, $iH, 0x01 + 0x0200) GUICtrlSetColor(-1, $bColor) GUICtrlSetBkColor(-1, -2) GUICtrlSetFont(-1, 10, Default, Default, "Century Gothic", 5) GUICtrlSetCursor(-1, 0) Return $hCtrl EndFunc Func _GUICtrlSetDefaultButton7s($hCtrlID, $hHWND = Default) Local $CGP = ControlGetPos($hHWND, '', $hCtrlID) GUICtrlSetPos(_InitButton7s(), $CGP[0], $CGP[1], $CGP[2], $CGP[3]) GUICtrlSetColor($hCtrlID, 0xFFFFFF) If $LastFocus <> '' Then GUICtrlSetColor($LastFocus, 0x000000) $LastFocus = $hCtrlID EndFunc Func _GUICtrlSetHover($bHover = 0) If $bHover = 0 Then GUICtrlSetImage(_InitButton7s(), $Assets & "0.jpg") Else GUICtrlSetImage(_InitButton7s(), $Assets & "1.jpg") EndIf EndFunc Edited September 14, 2021 by MightyWeird
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now