-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathkyts-font-viewer.au3
61 lines (52 loc) · 2.11 KB
/
kyts-font-viewer.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=assets\Icon.ico
#AutoIt3Wrapper_Outfile=bin\KyTs Font Viewer.exe
#AutoIt3Wrapper_Outfile_x64=bin\KyTs Font Viewer_x64.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_Res_Description=Better Font Viewer
#AutoIt3Wrapper_Res_Fileversion=1.0.1.6
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_ProductName=Kyts Font Viewer
#AutoIt3Wrapper_Res_ProductVersion=1.0
#AutoIt3Wrapper_Res_CompanyName=JK. Kyts
#AutoIt3Wrapper_Res_LegalCopyright=www.hieuda.com
#AutoIt3Wrapper_Res_Language=1033
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;~ #RequireAdmin
#cs
░░▓▓███ ████████████████████████████████▄▄
░░▓▓███ ██ ▓███
░░▓▓███ ██ ██ ██ ▓███ ██████
░░▓▓█████ ██ ██ ▓███ ██ █
░░▓▓███████ ██ ██ ▓███ ██
░░▓▓▌█▐ ▌█ ▌▄ █▐ ▓▐██ ██████
░░▓▓▌▄▐ ▌█ ▌▄ █▐ ▓▐██ █
░░▓▓▌█▐ ▌█ ▌▀███▐ ▓▐██ ██████
██
▄▄████████████████████████
#ce
Opt("TrayIconHide", 1)
Opt("GUICloseOnESC", 1)
Opt("GUIOnEventMode", 1)
#include "lib\App\App.au3"
_GDIPlus_Startup()
#Region Create GUI, Get Cmd argument, open first file
_Create_MainGUI()
_Get_CmdArgs_InstallFont()
;~ What is this? I don't remember
If StringInStr($TypeFont, _GetFileType($CurentFontPath)) <> 0 Then
_ViewFont($CurentFontPath)
Else
_ViewFile()
EndIf
WinSetTrans($hGUI, "", 0)
GUISetState()
_ShowForm()
_GUICtrlTVExplorer_Expand($hTV, $CurentFontPath)
#EndRegion ; Create GUI and mesages
_GUI_Loop()
;~ ##########################
;~ ###### END OF PROGRAM ####
;~ ##########################