mirror/wintango-patcher
1
0
Fork 0
mirror of https://github.com/heebijeebi/WinTango-Patcher.git synced 2024-06-22 05:21:56 +02:00
Code Issues Releases Wiki Activity
Files
master
wintango-patcher/project/PatcherGUI.au3
heebijeebi 66a5387212 FreeFileSync support
2017-05-25 09:55:36 +02:00

618 lines
25 KiB
AutoIt
Raw Permalink Blame History

Func PatcherGUI($Modus = "Patcher")
Global $MainGUI = GUICreate($AppName, 562, 378, -1, -1)
GUISetFont($font_size, $font_weight, $font_attribute, $font)
Global $tab = GUICtrlCreateTab(8, 8, 545, 361)
;===============
;= Tab1: Patch =
;===============
$tabPatch = GUICtrlCreateTabItem($Modus)
$icoLogo = GUICtrlCreateIcon($IconsDir & "\header_480x80.ico", -1, 40, 41, 480, 80)
$lblIconTheme = GUICtrlCreateLabel("Icon Theme:", 24, 136, 80, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
Global $comboIconTheme = GUICtrlCreateCombo("", 107, 131, 129, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $IncludedThemes)
ControlCommand($MainGUI, "", $comboIconTheme, "SelectString", $SelectedTheme)
Global $icoPreview1 = GUICtrlCreateIcon($IconsDir & "\" & $SelectedTheme & "\video-display.ico", -1, 256, 127, 32, 32)
Global $icoPreview2 = GUICtrlCreateIcon($IconsDir & "\" & $SelectedTheme & "\go-next.ico", -1, 296, 127, 32, 32)
Global $icoPreview3 = GUICtrlCreateIcon($IconsDir & "\" & $SelectedTheme & "\drive-harddisk.ico", -1, 336, 127, 32, 32)
Global $icoPreview4 = GUICtrlCreateIcon($IconsDir & "\" & $SelectedTheme & "\folder.ico", -1, 376, 127, 32, 32)
Global $btnPatch = GUICtrlCreateButton("Patch!", 432, 131, 105, 25)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
Global $lstPatchStatus = GUICtrlCreateList("", 24, 178, 513, 195, $WS_VSCROLL)
;=================
;= Tab2: Options =
;=================
$tabOption = GUICtrlCreateTabItem("Options")
$lblTrayIcons = GUICtrlCreateLabel("Tray Icons", 24, 48, 71, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$lblTrayIcons_desc = GUICtrlCreateLabel("Patch Tray Icons with the following style:", 94, 48, 237, 21)
Global $comboTrayIcons = GUICtrlCreateCombo("", 336, 45, 89, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Colorfull|Symbolic")
;select the matching item
If $SelectedTheme = "elementary" Then
ControlCommand($MainGUI, "", $comboTrayIcons, "SelectString", "Symbolic")
Else
ControlCommand($MainGUI, "", $comboTrayIcons, "SelectString", "Colorfull")
EndIf
Global $switchTrayIcons = GUICtrlCreateIcon($SwitchIconOn, -1, 490, 50, 43, 16)
Global $OptTrayIcons = 1
$lblStartOrb = GUICtrlCreateLabel("Start Orb", 24, 80, 64, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$lblStartOrb_desc = GUICtrlCreateLabel("Patch the button which opens the startmenu", 87, 80, 259, 21)
Global $switchStartOrb = GUICtrlCreateIcon($SwitchIconOn, -1, 490, 82, 43, 16)
Global $OptStartOrb = 1
$lblNotepad2 = GUICtrlCreateLabel("Notepad2", 24, 112, 68, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$lblNotepad2_desc = GUICtrlCreateLabel("Replace Microsoft Notepad with Notepad2 (EN/DE/CN)", 91, 112, 329, 21)
Global $switchNotepad2 = GUICtrlCreateIcon($SwitchIconOn, -1, 490, 114, 43, 16)
Global $OptNotepad2 = 1
$lblDesktops = GUICtrlCreateLabel("Sysinternals Desktops", 24, 144, 143, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$lblDesktops_desc = GUICtrlCreateLabel("Add the feature of multiple Desktops to Windows 7", 168, 144, 303, 21)
Global $switchDesktops = GUICtrlCreateIcon($SwitchIconOff, -1, 490, 146, 43, 16)
Global $OptDesktops = 0
$lblUpdater = GUICtrlCreateLabel("Updatecheck", 24, 176, 86, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$lblUpdater_desc = GUICtrlCreateLabel("Automatically check for Updates on system startup", 111, 176, 299, 21)
Global $switchUpdater = GUICtrlCreateIcon($SwitchIconOff, -1, 490, 178, 43, 16)
Global $OptUpdater = 0
$lblReloader = GUICtrlCreateLabel("Reload", 24, 208, 50, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$lblReloader_desc = GUICtrlCreateLabel("Automatically reload on startup for constant modding", 75, 208, 318, 21)
Global $switchReloader = GUICtrlCreateIcon($SwitchIconOn, -1, 490, 210, 43, 16)
Global $OptReloader = 1
$lblVisualStyle = GUICtrlCreateLabel("Visual Style", 24, 240, 80, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$lblVisualStyle_desc = GUICtrlCreateLabel("Select the desired Visual Style:", 103, 240, 180, 21)
Global $comboVisualStyle = GUICtrlCreateCombo("", 286, 237, 105, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Shiki-Colors|elementary|Ubuntu")
;select the matching item
If $SelectedTheme = "Humanity" or $SelectedTheme = "Tangerine" Then
ControlCommand($MainGUI, "", $comboVisualStyle, "SelectString", "Ubuntu")
ElseIf $SelectedTheme = "elementary" Then
ControlCommand($MainGUI, "", $comboVisualStyle, "SelectString", "elementary")
Else
ControlCommand($MainGUI, "", $comboVisualStyle, "SelectString", "Shiki-Colors")
EndIf
Global $switchVisualStyle = GUICtrlCreateIcon($SwitchIconOn, -1, 490, 242, 43, 16)
If $WinName = "Win10" Then ;disable for Windows 10; no theme included right now
Global $OptVisualStyle = 0
GUICtrlSetImage($switchVisualStyle, $SwitchIconOff)
GUICtrlSetState($comboVisualStyle, $GUI_DISABLE)
Else
Global $OptVisualStyle = 1
EndIf
$lblCursors = GUICtrlCreateLabel("Cursors", 24, 272, 54, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$lblCursors_desc = GUICtrlCreateLabel("Install a matching Cursor Set:", 79, 272, 175, 21)
Global $comboCursors = GUICtrlCreateCombo("", 254, 269, 105, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Ubuntu|elementary")
Global $icoCursors_prev = GUICtrlCreateIcon($IconsDir & "\cursors-ubuntu.ico", -1, 368, 266, 96, 32)
;select the matching item
If GUICtrlRead($comboVisualStyle) = "elementary" Then
ControlCommand($MainGUI, "", $comboCursors, "SelectString", "elementary")
GUICtrlSetImage($icoCursors_prev, $IconsDir & "\cursors-elementary.ico")
Else
ControlCommand($MainGUI, "", $comboCursors, "SelectString", "Ubuntu")
EndIf
Global $switchCursors = GUICtrlCreateIcon($SwitchIconOn, -1, 490, 274, 43, 16)
Global $OptCursors = 1
$lblWallpapers = GUICtrlCreateLabel("Wallpaper", 24, 304, 71, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$lblWallpapers_desc = GUICtrlCreateLabel("Copy matching wallpapers for the supported icon themes", 94, 304, 340, 21)
Global $switchWallpapers = GUICtrlCreateIcon($SwitchIconOn, -1, 490, 306, 43, 16)
Global $OptWallpapers = 1
;==========================
;= Tab3: Advanced Options =
;==========================
Global $tabExpert = GUICtrlCreateTabItem("Advanced Options")
FilesPage(540, 333, 10, 34) ;scrollable Child GUI
GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_HSCROLL, "WM_HSCROLL")
GUIRegisterMsg($WM_MOUSEWHEEL, "WM_MOUSEWHEEL")
;===============
;= Tab4: About =
;===============
$TabAbout = GUICtrlCreateTabItem("About")
$icoLogo2 = GUICtrlCreateIcon($IconsDir & "\header_480x80.ico", -1, 40, 41, 480, 80)
$editDescription = GUICtrlCreateLabel("The WinTango Patcher is a mostly self-explanatory graphical wizard designed to make simple the process of modifying your system files with resources which were created by the Tango Desktop Project, the GNOME Project, the Gnome-Colors Project, the Elementary Project and many other open-source projects.", 24, 129, 480, 76, $BS_MULTILINE)
$lblContact = GUICtrlCreateLabel("Contact", 24, 209, 51, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
Global $icoMail = GUICtrlCreateIcon($IconsDir & "\" & $SelectedTheme & "\applications-mail.ico", -1, 24, 234, 32, 32)
Global $lblMail = GUICtrlCreateLabel($AppMail, 68, 239, 122, 21)
_GUICtrl_OnHoverRegister($lblMail, "_Hover_Func", "_Leave_Hover_Func")
Global $icoHomepage = GUICtrlCreateIcon($IconsDir & "\" & $SelectedTheme & "\web-browser.ico", -1, 24, 278, 32, 32)
Global $lblHomepage = GUICtrlCreateLabel($AppWebsite, 68, 283, 167, 21)
_GUICtrl_OnHoverRegister($lblHomepage, "_Hover_Func", "_Leave_Hover_Func")
Global $icoDeviantart = GUICtrlCreateIcon($IconsDir & "\deviantart.ico", -1, 24, 322, 32, 32)
Global $lblDeviantart = GUICtrlCreateLabel($AppWebsite2, 68, 327, 189, 21)
_GUICtrl_OnHoverRegister($lblDeviantart, "_Hover_Func", "_Leave_Hover_Func")
$lblInfo = GUICtrlCreateLabel("Information", 312, 209, 78, 21)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
Global $icoNotes = GUICtrlCreateIcon($IconsDir & "\" & $SelectedTheme & "\text-x-license.ico", -1, 312, 234, 32, 32)
Global $lblNotes = GUICtrlCreateLabel("Release Notes", 356, 239, 88, 21)
_GUICtrl_OnHoverRegister($lblNotes, "_Hover_Func", "_Leave_Hover_Func")
Global $icoChangelog = GUICtrlCreateIcon($IconsDir & "\" & $SelectedTheme & "\text-x-changelog.ico", -1, 312, 278, 32, 32)
Global $lblChangelog = GUICtrlCreateLabel("Changelog", 356, 283, 67, 21)
_GUICtrl_OnHoverRegister($lblChangelog, "_Hover_Func", "_Leave_Hover_Func")
GUICtrlCreateTabItem("")
;=========
;= Modus =
;=========
;Patcher normal
If $Modus = "Patcher" and $SilentInstall = 0 Then
GUISetState(@SW_SHOW)
EndIf
;Patcher quiet
If $Modus = "Patcher" and $SilentInstall = 1 Then
GUISetState(@SW_SHOW)
Patch()
EndIf
;Uninstaller
If $Modus = "Uninstaller" Then
GUISetState(@SW_SHOW)
UnPatch()
EndIf
;Reloader normal
If $Modus = "Reloader" and $SilentInstall = 0 Then
GUISetState(@SW_SHOW)
Reload()
EndIf
;Reloader silent
If $Modus = "Reloader" and $SilentInstall = 1 Then
Reload()
EndIf
EndFunc
#Region Advanced Options ChildGUI
Func FilesPage($ChildGUI_width, $ChildGUI_height, $ChildGUI_left, $ChildGUI_top)
Global $FilesGUI
$FilesGUI = GUICreate("Child GUI", $ChildGUI_width, $ChildGUI_height, $ChildGUI_left, $ChildGUI_top, $WS_POPUP, $WS_EX_MDICHILD, $MainGUI)
GUISetBkColor($COLOR_WHITE, $FilesGUI)
GUISetFont($font_size, $font_weight, $font_attribute, $font)
GUISetState(@SW_HIDE)
GUICtrlSetResizing($FilesGUI, $GUI_DOCKALL)
_GUIScrollBars_Init($FilesGUI)
;_GUIScrollBars_SetScrollInfoMax($FilesGUI, $SB_VERT, 107) ;Vertikale Scrollh<6C>he
_GUIScrollBars_ShowScrollBar($FilesGUI, $SB_HORZ, False) ;Horizontale Scrollbar ausblenden
Global $width = $ChildGUI_width - 44
Global $height = 12
Global $left = 12
Global $CheckBoxSum = 0
Global $CheckBoxPuffer = 24
_OptionsAppearance()
_AppearanceApps()
_AppFiles()
_WinFiles()
_GUIScrollBars_SetScrollInfoMax($FilesGUI, $SB_VERT, Round($CheckBoxSum*1.52,0)) ;Vertikale Scrollh<6C>he
GUISwitch($MainGUI)
EndFunc
Func _OptionsAppearance()
Global $CheckBoxStatusWinAll, $CheckBoxStatusWinAll_un
Global $CheckBoxStatusWin7, $CheckBoxStatusWin7_un
Global $CheckBoxStatusWin8, $CheckBoxStatusWin8_forced
Global $CheckBoxStatusWin10
$CheckBoxStatusWinAll = $GUI_CHECKED
$CheckBoxStatusWinAll_un = $GUI_UNCHECKED
If $WinName = "Win7" Then
$CheckBoxStatusWin7 = $GUI_CHECKED
$CheckBoxStatusWin7_un = $GUI_UNCHECKED
$CheckBoxStatusWin8 = $GUI_DISABLE
$CheckBoxStatusWin8_forced = $CheckBoxStatusWin7_un
$CheckBoxStatusWin10 = $GUI_DISABLE
ElseIf $WinName = "Win8" Then
$CheckBoxStatusWin7 = $GUI_DISABLE
$CheckBoxStatusWin7_un = $GUI_DISABLE
$CheckBoxStatusWin8 = $GUI_CHECKED
$CheckBoxStatusWin8_forced = $GUI_CHECKED
$CheckBoxStatusWin10 = $GUI_DISABLE
ElseIf $WinName = "Win10" Then
$CheckBoxStatusWin7 = $GUI_DISABLE
$CheckBoxStatusWin7_un = $GUI_DISABLE
$CheckBoxStatusWin8 = $GUI_DISABLE
$CheckBoxStatusWin8_forced = $GUI_CHECKED
$CheckBoxStatusWin10 = $GUI_CHECKED
EndIf
;==============================================
;===== Risky ==================================
;==============================================
$lblOptions = GUICtrlCreateLabel("Risky Files", $left, $height, $width, 20)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$CheckBoxSum = $CheckBoxSum + 1
;==============================================
$height = $height + $CheckBoxPuffer
Global $chkNoShell32 = GUICtrlCreateCheckbox("Don't patch shell32.dll (Possible Sound Problems)", $left, $height, $width, 20)
GUICtrlSetState(-1, $CheckBoxStatusWin7)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer
Global $chkUsingIE = GUICtrlCreateCheckbox("I want to be able to use Internet Explorer 10/11", $left, $height, $width, 20)
If _IE_Version() > 9 Then
GUICtrlSetState(-1, $CheckBoxStatusWinAll)
Else
GUICtrlSetState(-1, $CheckBoxStatusWinAll_un)
EndIf
$CheckBoxSum = $CheckBoxSum + 1
;==============================================
;===== UX Theme ===============================
;==============================================
$height = $height + $CheckBoxPuffer + 10 ;Abstand letzte Checkbox zu neuer <20>berschrift
$lblUxThemePatch = GUICtrlCreateLabel("UXTheme Patch", $left, $height, $width, 20)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$CheckBoxSum = $CheckBoxSum + 1
;==============================================
GUIStartGroup()
;Choose the right Option in order of compatibility (e.g. VirtualBox!) or already installed UXTheme Patchers
If FileExists($UXPatchFile) or FileExists($UXServiceFile) Then ;already installed?
$CheckBoxStatusUXPatch = $CheckBoxStatusWinAll_un
$CheckBoxStatusUXService = $CheckBoxStatusWinAll_un
ElseIf FileExists($ProgramFiles & "\Oracle\VirtualBox\VirtualBox.exe") or FileExists($ProgramFiles64 & "\Oracle\VirtualBox\VirtualBox.exe") Then ;VirtualBox installed?
$CheckBoxStatusUXPatch = $CheckBoxStatusWinAll_un
$CheckBoxStatusUXService = $CheckBoxStatusWinAll
Else ;none of the above
$CheckBoxStatusUXPatch = $CheckBoxStatusWinAll
$CheckBoxStatusUXService = $CheckBoxStatusWinAll_un
EndIf
$height = $height + $CheckBoxPuffer
Global $chkUniversalThemePatcher = GUICtrlCreateRadio("Direct Method: Patch files", $left, $height, $width-90, 20)
GUICtrlSetState(-1, $CheckBoxStatusUXPatch)
If FileExists($UXPatchFile) or FileExists($UXServiceFile) Then GUICtrlSetState(-1, $GUI_DISABLE)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer
Global $chkUniversalThemeService = GUICtrlCreateRadio("Service Method: Installs a Service", $left, $height, $width-90, 20)
GUICtrlSetState(-1, $CheckBoxStatusUXService)
If FileExists($UXPatchFile) or FileExists($UXServiceFile) Then GUICtrlSetState(-1, $GUI_DISABLE)
$CheckBoxSum = $CheckBoxSum + 1
;Disable UXThemePatch for Win10 as there is no theme yet
If $WinName = "Win10" Then
GUICtrlSetState($chkUniversalThemePatcher, $GUI_UNCHECKED)
GUICtrlSetState($chkUniversalThemeService, $GUI_UNCHECKED)
GUICtrlSetState($chkUniversalThemePatcher, $GUI_DISABLE)
GUICtrlSetState($chkUniversalThemeService, $GUI_DISABLE)
EndIf
EndFunc
Func _WinFiles()
;==============================================
;=====Systemfiles==============================
;==============================================
$height = $height + $CheckBoxPuffer + 10 ;Abstand letzte Checkbox zu neuer <20>berschrift
$lblSystemfiles = GUICtrlCreateLabel("Windows: System Files", $left, $height, $width, 20)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$CheckBoxSum = $CheckBoxSum + 1
;==============================================
$height = $height + $CheckBoxPuffer
Global $chkBranding = GUICtrlCreateCheckbox("Branding Images/Icons", $left, $height, $width, 20)
GUICtrlSetState($chkBranding, $CheckBoxStatusWin7)
$CheckBoxSum = $CheckBoxSum + 1
$IniFile = @ScriptDir & "\filesWindows.ini"
$entrys = IniReadSectionNames($IniFile)
For $i = 1 To $entrys[0]
$FilesList.add ($entrys[$i])
Next
$FilesList.sort
Local $ControlID
For $Entry In $FilesList
$WinSupport = IniRead($IniFile, $Entry, "Win", "All")
If $WinSupport = "All" or StringInStr($WinSupport, $WinName) > 0 Then
$CheckBoxStatus = $GUI_CHECKED
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
$ControlID = GUICtrlCreateCheckbox($Entry, $left, $height, $width, 20)
GUICtrlSetState($ControlID, $CheckBoxStatus)
$CheckBoxSum = $CheckBoxSum + 1
$CheckboxesDict.add ($ControlID, $Entry)
Else
;don't even show the option
;for compatibility TESTING:
;~ $CheckBoxStatus = $GUI_ENABLE
;~
;~ $height = $height + 20 ;Abstand zwischen Checkboxen
;~ $ControlID = GUICtrlCreateCheckbox($Entry, 12, $height, $width, 20)
;~ GUICtrlSetState($ControlID, $CheckBoxStatus)
;~ $CheckBoxSum = $CheckBoxSum + 1
;~ $CheckboxesDict.add ($ControlID, $Entry)
EndIf
Next
EndFunc
Func _AppearanceApps()
;==============================================
;=====3rd Party Programfiles===================
;==============================================
$height = $height + $CheckBoxPuffer + 10 ;Abstand letzte Checkbox zu neuer <20>berschrift
$lblApplicationsThemes = GUICtrlCreateLabel("3rd Party Applications", $left, $height, $width, 20)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$CheckBoxSum = $CheckBoxSum + 1
;==============================================
$height = $height + $CheckBoxPuffer
Global $btnEditAppPaths = GUICtrlCreateButton("Edit Paths for 3rd Party Applications", $left, $height, $width, $CheckBoxPuffer)
$CheckBoxSum = $CheckBoxSum + 1
;=========================================
;=====3rd Party Themes ===================
;=========================================
$height = $height + $CheckBoxPuffer + 10 ;Abstand letzte Checkbox zu neuer <20>berschrift
$lblApplicationsThemes = GUICtrlCreateLabel("3rd Party Applications: Themes", $left, $height, $width, 20)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$CheckBoxSum = $CheckBoxSum + 1
;=========================================
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkAimpTheme = GUICtrlCreateCheckbox("Aimp Shiki-Colors Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkDiskInfoTheme = GUICtrlCreateCheckbox("CrystalDiskInfo Shiki-Colors Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkfoobar2000Theme = GUICtrlCreateCheckbox("foobar2000 Filetype-Icons", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkFreeFileSyncTheme = GUICtrlCreateCheckbox("FreeFileSync Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkGimpTheme = GUICtrlCreateCheckbox("Gimp Theme/Images", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkInkscapeTheme = GUICtrlCreateCheckbox("Inkscape Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkjDownloaderTheme = GUICtrlCreateCheckbox("jDownloader Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkLibreOfficeTheme = GUICtrlCreateCheckbox("LibreOffice Images", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkMPCTheme = GUICtrlCreateCheckbox("Media Player Classic HC Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkMSOfficeTheme = GUICtrlCreateCheckbox("Microsoft Office Filetype-Icons", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkFirefoxTheme = GUICtrlCreateCheckbox("Mozilla Firefox Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkThunderbirdTheme = GUICtrlCreateCheckbox("Mozilla Thunderbird Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkPidginTheme = GUICtrlCreateCheckbox("Pidgin Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkRadioSureTheme = GUICtrlCreateCheckbox("RadioSure Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkRainlendarTheme = GUICtrlCreateCheckbox("Rainlendar Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkSMPlayerTheme = GUICtrlCreateCheckbox("SMPlayer Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkUTorrentTheme = GUICtrlCreateCheckbox("uTorrent 2.x Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkVLCTheme = GUICtrlCreateCheckbox("VLC Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
Global $chkWinylTheme = GUICtrlCreateCheckbox("Winyl Theme", $left, $height, $width, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$CheckBoxSum = $CheckBoxSum + 1
EndFunc
Func _AppFiles()
;==============================================
;=====3rd Party Programfiles===================
;==============================================
$height = $height + $CheckBoxPuffer + 10 ;Abstand letzte Checkbox zu neuer <20>berschrift
$lblApplications = GUICtrlCreateLabel("3rd Party Applications: Files", $left, $height, $width, 20)
GUICtrlSetFont(-1, $font_size, $font_weight_special, $font_attribute_special)
$CheckBoxSum = $CheckBoxSum + 1
;==============================================
$IniFile = @ScriptDir & "\filesApps.ini"
$entrys = IniReadSectionNames($IniFile)
For $i = 1 To $entrys[0]
$FilesListApps.add ($entrys[$i])
Next
$FilesListApps.sort
Local $ControlID
For $Entry In $FilesListApps
$WinSupport = IniRead($IniFile, $Entry, "Win", "All")
If $WinSupport = "All" or StringInStr($WinSupport, $WinName) > 0 Then
$CheckBoxStatus = $GUI_CHECKED
$height = $height + $CheckBoxPuffer ;Abstand zwischen Checkboxen
$ControlID = GUICtrlCreateCheckbox($Entry, $left, $height, $width, 20)
GUICtrlSetState($ControlID, $CheckBoxStatus)
$CheckBoxSum = $CheckBoxSum + 1
$CheckboxesDictApps.add ($ControlID, $Entry)
Else
;don't even show the option
EndIf
Next
EndFunc
#EndRegion
Func Switch_ChangeState($sCurrentState, $sControl)
If $sCurrentState = 1 Then
GUICtrlSetImage($sControl, $SwitchIconOff)
$sNewState = 0
Else
GUICtrlSetImage($sControl, $SwitchIconOn)
$sNewState = 1
EndIf
Return $sNewState
EndFunc
#Region IconHover
;====Icon Hover Funktionen==================================================================================================
Func _Hover_Func($iCtrlID)
If $iCtrlID = $lblMail Then
GUICtrlSetFont($lblMail, $font_size, $font_weight, 4)
GUICtrlSetCursor($lblMail, 0)
ElseIf $iCtrlID = $lblHomepage Then
GUICtrlSetFont($lblHomepage, $font_size, $font_weight, 4)
GUICtrlSetCursor($lblHomepage, 0)
ElseIf $iCtrlID = $lblDeviantart Then
GUICtrlSetFont($lblDeviantart, $font_size, $font_weight, 4)
GUICtrlSetCursor($lblDeviantart, 0)
ElseIf $iCtrlID = $lblNotes Then
GUICtrlSetFont($lblNotes, $font_size, $font_weight, 4)
GUICtrlSetCursor($lblNotes, 0)
ElseIf $iCtrlID = $lblChangelog Then
GUICtrlSetFont($lblChangelog, $font_size, $font_weight, 4)
GUICtrlSetCursor($lblChangelog, 0)
EndIf
EndFunc
Func _Leave_Hover_Func($iCtrlID)
If $iCtrlID = $lblMail Then
GUICtrlSetFont($lblMail, $font_size, $font_weight)
ElseIf $iCtrlID = $lblHomepage Then
GUICtrlSetFont($lblHomepage, $font_size, $font_weight)
ElseIf $iCtrlID = $lblDeviantart Then
GUICtrlSetFont($lblDeviantart, $font_size, $font_weight)
ElseIf $iCtrlID = $lblNotes Then
GUICtrlSetFont($lblNotes, $font_size, $font_weight)
ElseIf $iCtrlID = $lblChangelog Then
GUICtrlSetFont($lblChangelog, $font_size, $font_weight)
EndIf
EndFunc
#EndRegion IconHover
Reference in New Issue View Git Blame Copy Permalink