├── lib
    ├── gtab_log.ahk
    ├── gtab_test.ahk
    ├── gdrop_file.ahk
    ├── gsetting.ahk
    ├── r_framei.ahk
    ├── gtab_framei.ahk
    ├── save_setting.ahk
    ├── media_load.ahk
    ├── decode_test.ahk
    ├── gtab_media.ahk
    ├── gtab_w2x.ahk
    ├── gupdate.ahk
    ├── load_env.ahk
    ├── test_check.ahk
    ├── r_ffmpeg.ahk
    ├── r_w2x.ahk
    └── lib.ahk
├── .github
    └── ISSUE_TEMPLATE
    │   ├── feature_request.md
    │   └── bug_report.md
├── README.md
└── N4A-V2.ahk


/lib/gtab_log.ahk:
--------------------------------------------------------------------------------
1 | Gui, Tab, Console Log
2 | Gui, Add, ListView, x12 y29 w880 h500 gconsole_log, Command
3 | Gui, Add, CheckBox, x12 y534 w100 h20 vlog_enable Checked ggui_update, Enable Log
4 | Gui, Add, Text, x142 y537 w60 h20 , Log Limit :
5 | Gui, Add, Edit, x202 y534 w60 h20 vlog_limit number ggui_update, 26


--------------------------------------------------------------------------------
/.github/ISSUE_TEMPLATE/feature_request.md:
--------------------------------------------------------------------------------
 1 | ---
 2 | name: Feature request
 3 | about: Suggest an idea for this project
 4 | title: ''
 5 | labels: ''
 6 | assignees: ''
 7 | 
 8 | ---
 9 | 
10 | **Is your feature request related to a problem? Please describe.**
11 | A clear and concise description of what the problem is. Ex. I'm always frustrated when [...]
12 | 
13 | **Describe the solution you'd like**
14 | A clear and concise description of what you want to happen.
15 | 
16 | **Describe alternatives you've considered**
17 | A clear and concise description of any alternative solutions or features you've considered.
18 | 
19 | **Additional context**
20 | Add any other context or screenshots about the feature request here.
21 | 


--------------------------------------------------------------------------------
/.github/ISSUE_TEMPLATE/bug_report.md:
--------------------------------------------------------------------------------
 1 | ---
 2 | name: Bug report
 3 | about: Create a report to help us improve
 4 | title: ''
 5 | labels: ''
 6 | assignees: ''
 7 | 
 8 | ---
 9 | 
10 | **Describe the bug**
11 | A clear and concise description of what the bug is.
12 | 
13 | **To Reproduce**
14 | Steps to reproduce the behavior:
15 | 1. Go to '...'
16 | 2. Click on '....'
17 | 3. Scroll down to '....'
18 | 4. See error
19 | 
20 | **Expected behavior**
21 | A clear and concise description of what you expected to happen.
22 | 
23 | **Screenshots**
24 | If applicable, add screenshots to help explain your problem.
25 | 
26 | **Desktop (please complete the following information):**
27 |  - OS: [e.g. iOS]
28 |  - Browser [e.g. chrome, safari]
29 |  - Version [e.g. 22]
30 | 
31 | **Smartphone (please complete the following information):**
32 |  - Device: [e.g. iPhone6]
33 |  - OS: [e.g. iOS8.1]
34 |  - Browser [e.g. stock browser, safari]
35 |  - Version [e.g. 22]
36 | 
37 | **Additional context**
38 | Add any other context about the problem here.
39 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | # N4A-V2
 2 | N4A Video Tools
 3 | 
 4 | This GUI Tools for Windows
 5 | packs everything you need for video or picture Waifu2X upscaling.
 6 | 
 7 | ### Feature
 8 |  - Extension support
 9 |    - Video (avi mp4 mkv wmv ts mov)
10 |    - Audio (aac ogg mp3 pcm)
11 |    - Image (jpg png bmp)
12 |  - ffmpeg features
13 |    - Decoding Test
14 |    - Convert files video > image, image > video
15 |    - Mux & Demux Video & Audio
16 |    - Remove Duplicate Frame
17 |    - Create Thumbnail
18 |    - Resize Video
19 |    - ~~Deinterlace~~
20 |    - Trim
21 |  - VSFilter
22 |    - Deinterlace
23 |  - Image Upscale with Waifu2X (CUDA & Vulkan)
24 |     - Support Multi GPU
25 | 
26 | # Download Release Version : https://github.com/aaaboypop/N4A-V2/releases
27 | 
28 | ### Sample / Guide
29 | ![1](https://files.catbox.moe/ajt32t.png)
30 | 
31 | ### Library
32 |  - FFmpeg : https://ffmpeg.org/
33 |  - Waifu2X Vulkan : https://github.com/nihui/waifu2x-ncnn-vulkan
34 |  - Waifu2X CUDA : https://github.com/lltcggie/waifu2x-caffe
35 |  - Autohotkey : https://www.autohotkey.com/
36 |  - Hybrid http://www.selur.de/
37 | 


--------------------------------------------------------------------------------
/lib/gtab_test.ahk:
--------------------------------------------------------------------------------
 1 | Gui, Tab, Test Mode
 2 | Gui, Add, GroupBox, x12 y309 w590 h200 , Check Files Setting
 3 | Gui, Add, CheckBox, x22 y329 w130 h20 Checked Disabled venable_check_bad ggui_update, Bad File
 4 | Gui, Add, CheckBox, x22 y349 w130 h20 venable_check_res Checked Disabled ggui_update, Mismatch Resolution
 5 | Gui, Add, DropDownList, x162 y349 w100 h20 r2 vcheck_res_mode ggui_update, First File||
 6 | Gui, Add, Edit, x382 y349 w80 h20 vcheck_custom_w ggui_update,
 7 | Gui, Add, Text, x362 y349 w10 h10 , X
 8 | Gui, Add, Edit, x272 y349 w80 h20 vcheck_custom_h ggui_update,
 9 | Gui, Add, CheckBox, x22 y369 w130 h20 venable_check_ssim ggui_update, SSIM (Slow)
10 | Gui, Add, Edit, x162 y369 w100 h20 vcheck_bad_ssim ggui_update, 90
11 | Gui, Add, Text, x272 y369 w20 h20 , `%
12 | Gui, Add, Text, x42 y419 w100 h20 , Action :
13 | Gui, Add, DropDownList, x162 y419 w100 h20 r3 vcheck_action ggui_update, Delete|Move|Nothing||
14 | Gui, Add, Text, x42 y449 w100 h20 , Move to :
15 | Gui, Add, Edit, x162 y449 w220 h20 vcheck_action_move_path ggui_update,
16 | Gui, Add, Text, x22 y+30 w110 h20 , (Experiment Function)
17 | Gui, Add, button, x182 y529 w80 h20 vb_check gcheck_file, Check File


--------------------------------------------------------------------------------
/lib/gdrop_file.ahk:
--------------------------------------------------------------------------------
 1 | GuiDropFiles:
 2 | {
 3 | 	StringSplit, drop_filepath, A_GuiEvent, `n
 4 | 	SplitPath, drop_filepath1,, dir, ext
 5 | 	 
 6 | 	if(ext="")
 7 | 	{
 8 | 		drop_folderpath := drop_filepath1
 9 | 	}
10 | 	else
11 | 	{
12 | 		drop_folderpath := dir
13 | 	}
14 | 	drop_focus = %A_GuiControl%
15 | 	
16 | 	if(drop_focus = "in_path")
17 | 		dd_path("d")
18 | 	else if(drop_focus = "out_path")
19 | 		dd_path("d")
20 | 	else if(drop_focus = "in_path")
21 | 		dd_path("d")
22 | 	else if(drop_focus = "out_path")
23 | 		dd_path("d")
24 | 	else if(drop_focus = "vp_out_path")
25 | 		dd_path("d")
26 | 	else if(drop_focus = "audio_out_path")
27 | 		dd_path("d")
28 | 	else if(drop_focus = "in_path1")
29 | 		dd_path("d")
30 | 	else if(drop_focus = "out_path1")
31 | 		dd_path("d")
32 | 		
33 | 	else if(drop_focus = "add_audio_path")
34 | 		dd_path("f")
35 | 	else if(drop_focus = "vp_in_path")
36 | 	{
37 | 		dd_path("f")
38 | 		sleep, 30
39 | 		goto, media_load
40 | 	}
41 | }
42 | Return
43 | 
44 | dd_path(var1)
45 | {
46 | 	global drop_focus
47 | 	global drop_filepath1
48 | 	global drop_folderpath
49 | 	if(var1 = "f")
50 | 	{
51 | 		GuiControl,,%drop_focus%,%drop_filepath1%
52 | 	}
53 | 	else
54 | 	{
55 | 		GuiControl,,%drop_focus%,%drop_folderpath%
56 | 	}
57 | }


--------------------------------------------------------------------------------
/lib/gsetting.ahk:
--------------------------------------------------------------------------------
 1 | ;==== Control ====
 2 | GuiControl,,nlv%noise_level%, 1
 3 | GuiControl,,log_enable,% log_enable
 4 | GuiControl, Hide,mgpu_text
 5 | GuiControl, Hide,convert_custom
 6 | GuiControl, Hide,custom_fps
 7 | GuiControl, Hide,custom_fps_num
 8 | GuiControl, Hide,custom_fps_den
 9 | GuiControl, ChooseString, config_ext, %config_ext%
10 | GuiControl, ChooseString, model, %model%
11 | GuiControl, ChooseString, sleep_time, %sleep_time%
12 | GuiControl,,skip_exist, %skip_exist%
13 | GuiControl,,by_scale, %by_scale%
14 | GuiControl,,by_width, %by_width%
15 | GuiControl,,by_height, %by_height%
16 | GuiControl,,by_w_h, %by_w_h%
17 | GuiControl,,log_limit, %log_limit%
18 | GuiControl, ChooseString, t_scale,% t_scale
19 | i:=1
20 | while(i<=8)
21 | {
22 | 	GuiControl, ChooseString, config_gpu%i%,% config_gpu%i%
23 | 	GuiControl,,enable_process%i%,% enable_process%i%
24 | 	i++
25 | }
26 | 
27 | i:=1
28 | while(i<=7)
29 | {
30 | 	if(t_model%i% = 1)
31 | 	{
32 | 		GuiControl,,t_model%i%, 1
33 | 	}
34 | 	else
35 | 	{
36 | 		GuiControl,,t_model%i%, 0
37 | 	}
38 | 	i++
39 | }
40 | 
41 | i:=0
42 | while(i<=3)
43 | {
44 | 	if(t_nlv%i% = 1)
45 | 	{
46 | 		GuiControl,,t_nlv%i%, 1
47 | 	}
48 | 	else
49 | 	{
50 | 		GuiControl,,t_nlv%i%, 0
51 | 	}
52 | 	
53 | 	i++
54 | 	
55 | 	if(mode%i% = 1)
56 | 	{
57 | 		GuiControl,,mode%i%, 1
58 | 	}
59 | 	else
60 | 	{
61 | 		GuiControl,,mode%i%, 0
62 | 	}
63 | }


--------------------------------------------------------------------------------
/lib/r_framei.ahk:
--------------------------------------------------------------------------------
 1 | run_starti:
 2 | Gosub, gui_update
 3 | If (model1 = "CAIN")
 4 | {
 5 |     if(Use_CPU|UHD_Mode|TTA_Mode)
 6 |     {
 7 |         MsgBox, 0x10, Error, "CPU Only" , "UHD" , "TTA" now support only RIFE 
 8 |         Return
 9 |     }
10 | 	command = -i "%in_path1%" -o "%out_path1%" -t %config_t_size1% -g %config_gpu_fi% -f %config_ext1%
11 | 	run_command = cain-ncnn-vulkan.exe %command%
12 | 	run, %comspec% /c cd "%A_WorkingDir%\frame_Interpolation\cain-ncnn" & %run_command%,,
13 | }
14 | else If (model1 = "DAIN")
15 | {
16 |     if(Use_CPU|UHD_Mode|TTA_Mode)
17 |     {
18 |         MsgBox, 0x10, Error, "CPU Only" , "UHD" , "TTA" now support only RIFE 
19 |         Return
20 |     }
21 | 	command = -i "%in_path1%" -o "%out_path1%" -t %config_t_size1% -g %config_gpu_fi% -f %config_ext1%
22 | 	run_command = dain-ncnn-vulkan.exe %command%
23 | 	run, %comspec% /c cd "%A_WorkingDir%\frame_Interpolation\dain-ncnn" & %run_command%,,
24 | }
25 | else
26 | {
27 |     UHD := ""
28 |     TTA := ""
29 |     if(Use_CPU)
30 |         config_gpu_fi := -1
31 |     if(UHD_Mode)
32 |         UHD := "-u "
33 |     if(TTA_Mode)
34 |         TTA := "-x "
35 | 	command = -i "%in_path1%" -o "%out_path1%" -m "%config_model%" -g %config_gpu_fi% %UHD% %TTA% -f %config_ext1%
36 | 	run_command = rife-ncnn-vulkan.exe %command%
37 | 	run, %comspec% /c cd "%A_WorkingDir%\frame_Interpolation\rife-ncnn" & %run_command%,,
38 | }
39 | gosub,log_console
40 | Return


--------------------------------------------------------------------------------
/lib/gtab_framei.ahk:
--------------------------------------------------------------------------------
 1 | Gui, Tab, Frame Interpolation
 2 | Gui, Add, Text, x22 y29 w80 h20 , Input Folder :
 3 | Gui, Add, Edit, x112 y29 w180 h20 vin_path1 ggui_update, %in_path1%
 4 | Gui, Add, Text, x22 y49 w80 h20 , Output Folder :
 5 | Gui, Add, Edit, x112 y49 w180 h20 vout_path1 ggui_update, %out_path1%
 6 | Gui, Add, Button, x292 y29 w30 h20 gin_folderi, ...
 7 | Gui, Add, Button, x292 y49 w30 h20 gout_folderi, ...
 8 | Gui, Add, Text, x22 y209 w80 h20 , Interpolation :
 9 | Gui, Add, DropDownList, x112 y209 w180 h21 vmodel1 r10 galt_guiupdate, CAIN|DAIN|RIFE||
10 | 
11 | Gui, Add, Text,         x22  y239 w90  h20 , Model :
12 | Gui, Add, DropDownList, x112 y239 w70 h20 vconfig_model r4 ggui_update, rife|rife-HD|rife-UHD|rife-anime||
13 | Gui, Add, Checkbox,     x202 y239 w50 h20 vUHD_Mode ggui_update, UHD
14 | Gui, Add, Checkbox,     x262 y239 w50 h20 vTTA_Mode ggui_update, TTA
15 | Gui, Add, Text,         x22  y269 w90  h20 , File Extension :
16 | Gui, Add, DropDownList, x112 y269 w50  h20 vconfig_ext1 r4 ggui_update, png||jpg
17 | Gui, Add, Text,         x22  y299 w90  h20 , GPU :
18 | Gui, Add, DropDownList, x112 y299 w50  h20 vconfig_gpu_fi r9 ggui_update, 0||1|2|3|4|5|6|7|8
19 | Gui, Add, Checkbox,     x202 y299 w90  h20 vUse_CPU ggui_update, CPU Only
20 | Gui, Add, Text,         x202 y269 w90  h20 , Tile Size :
21 | Gui, Add, Edit,         x262 y269 w50  h20 vconfig_t_size1 ggui_update, 512
22 | Gui, Add, button,       x22  y359 w80  h20 vb_starti grun_starti, Run


--------------------------------------------------------------------------------
/lib/save_setting.ahk:
--------------------------------------------------------------------------------
 1 | save:
 2 | {
 3 | 	IniWrite, %in_path%, %A_WorkingDir%\setting.ini, main, in_path
 4 | 	IniWrite, %out_path%, %A_WorkingDir%\setting.ini, main, out_path
 5 | 	IniWrite, %noise_level%, %A_WorkingDir%\setting.ini, main, noise_level
 6 | 	IniWrite, %scale%, %A_WorkingDir%\setting.ini, main, scale
 7 | 	IniWrite, %win_mode%, %A_WorkingDir%\setting.ini, main, win_mode
 8 | 	IniWrite, %config_ext%, %A_WorkingDir%\setting.ini, main, config_ext
 9 | 	IniWrite, %model%, %A_WorkingDir%\setting.ini, main, model
10 | 	IniWrite, %width%, %A_WorkingDir%\setting.ini, main, width
11 | 	IniWrite, %width1%, %A_WorkingDir%\setting.ini, main, width1
12 | 	IniWrite, %height%, %A_WorkingDir%\setting.ini, main, height
13 | 	IniWrite, %height1%, %A_WorkingDir%\setting.ini, main, height1
14 | 	IniWrite, %by_scale%, %A_WorkingDir%\setting.ini, main, by_scale
15 | 	IniWrite, %by_width%, %A_WorkingDir%\setting.ini, main, by_width
16 | 	IniWrite, %by_height%, %A_WorkingDir%\setting.ini, main, by_height
17 | 	IniWrite, %by_w_h%, %A_WorkingDir%\setting.ini, main, by_w_h
18 | 	IniWrite, %skip_exist%, %A_WorkingDir%\setting.ini, main, skip_exist
19 | 	IniWrite, %sleep_time%, %A_WorkingDir%\setting.ini, main, sleep_time
20 | 	IniWrite, %split_size%, %A_WorkingDir%\setting.ini, main, split_size
21 | 	IniWrite, %t_scale%, %A_WorkingDir%\setting.ini, main, t_scale
22 | 	IniWrite, %log_enable%, %A_WorkingDir%\setting.ini, main, log_enable
23 | 	IniWrite, %log_limit%, %A_WorkingDir%\setting.ini, main, log_limit
24 | 	
25 | 	i:=0
26 | 	while(i<=3)
27 | 	{
28 | 		var1 := t_nlv%i%
29 | 		IniWrite, %var1%, %A_WorkingDir%\setting.ini, main, t_nlv%i%
30 | 		i++
31 | 		var2 := mode%i%
32 | 		IniWrite, %var2%, %A_WorkingDir%\setting.ini, main, mode%i%
33 | 	}
34 | 	
35 | 	i:=1
36 | 	while(i<=7)
37 | 	{
38 | 		var1 := t_model%i%
39 | 		IniWrite, %var1%, %A_WorkingDir%\setting.ini, main, t_model%i%
40 | 		i++
41 | 	}
42 | 	
43 | 	i:=1
44 | 	while(i<=8)
45 | 	{
46 | 		var1 := config_gpu%i%
47 | 		var2 := enable_process%i%
48 | 		IniWrite, %var1%, %A_WorkingDir%\setting.ini, main, config_gpu%i%
49 | 		IniWrite, %var2%, %A_WorkingDir%\setting.ini, main, enable_process%i%
50 | 		i++
51 | 	}
52 | 	ToolTip, Setting is Saved
53 | 	SetTimer, RemoveToolTip, -3000
54 | }
55 | return


--------------------------------------------------------------------------------
/lib/media_load.ahk:
--------------------------------------------------------------------------------
  1 | media_load:
  2 | {
  3 | 	Gui, 1:+Disabled
  4 | 	Gui, 3:Add,Text,w200 r3 cRed center vload_text, `nLoading..
  5 | 	Gui, 3:Show,, Media Info
  6 | 	Gui, 3:+Disabled
  7 | 	Gui, 3:Default			
  8 | 	media_load := 1
  9 | 	image_input := 0
 10 | 	load_image_count := 0
 11 | 	SplitPath, vp_in_path, load_name, load_fullpath, load_ext, in_name_no_ext
 12 | 	if(load_ext="png"||load_ext="jpg")
 13 | 	{
 14 | 		ifExist, %load_fullpath%\image000001.*
 15 | 		{
 16 | 			Loop, Files, %load_fullpath%\image*.* , F
 17 | 			{
 18 | 				load_image_count++
 19 | 			}
 20 | 			image_input := 1
 21 | 			video_n_frame := load_image_count
 22 | 			
 23 | 			Gui, 4:Add, ListView,, General|Info
 24 | 			Gui, 4:Default			
 25 | 			LV_Add("", "Input Type", load_ext)
 26 | 			LV_Add("", "Frame", load_image_count)
 27 | 
 28 | 			LV_ModifyCol() 
 29 | 			Gui, 4:-Resize -MaximizeBox -MinimizeBox +ToolWindow
 30 | 			Gui, 4:Show,, Media Info
 31 | 			
 32 | 			
 33 | 		}
 34 | 		else If (FileExist(load_fullpath "\000001.*")) 
 35 | 		{
 36 | 			Loop, Files, %load_fullpath%\*.* , F
 37 | 			{
 38 | 				load_image_count++
 39 | 			}
 40 | 			image_input := 2
 41 | 			video_n_frame := load_image_count
 42 | 			
 43 | 			Gui, 4:Add, ListView,, General|Info
 44 | 			Gui, 4:Default			
 45 | 			LV_Add("", "Input Type", load_ext)
 46 | 			LV_Add("", "Frame", load_image_count)
 47 | 
 48 | 			LV_ModifyCol() 
 49 | 			Gui, 4:-Resize -MaximizeBox -MinimizeBox +ToolWindow
 50 | 			Gui, 4:Show,, Media Info
 51 | 			
 52 | 			
 53 | 		}
 54 | 		else
 55 | 		{
 56 | 			msgbox,0x2000, Media Info,% "Not Found Image Format ""image%06d"""
 57 | 			Gui, 4:destroy
 58 | 			Gui, 1:-Disabled
 59 | 		}
 60 | 	}
 61 | 	else if(load_ext="mkv"||load_ext="mp4"||load_ext="mov"||load_ext="wmv"||load_ext="ts"||load_ext="m4v")
 62 | 	{
 63 | 		GuiControl,,load_text, Loading..`nMedia Infomation
 64 | 		Gui, 4:Add, ListView, r32 w600, General|Info
 65 | 		Gui, 4:Default	
 66 | 		
 67 | 		var1 = mediainfo --Output=XML "%vp_in_path%"
 68 | 		c4 := ""
 69 | 		c4 := StdOutToVar(comspec . " /c " . A_WorkingDir . "\ffmpeg\" . var1)
 70 | 
 71 | 		add_row := 0
 72 | 		Loop, parse, c4, `r,
 73 | 		{
 74 | 			If RegExMatch(A_LoopField,"(<[^\/].*?>)",get_txt)
 75 | 			{
 76 | 				If RegExMatch(get_txt,"<Format>")
 77 | 					add_row := 1
 78 | 
 79 | 				If(add_row=0)
 80 | 					continue
 81 | 				
 82 | 				If RegExMatch(get_txt,"<track type=""Video"">")
 83 | 				{
 84 | 					LV_Add("")
 85 | 					LV_Add("", "<Video>")
 86 | 				}
 87 | 				else If RegExMatch(get_txt,"<track type=""Audio"">")
 88 | 				{
 89 | 					LV_Add("")
 90 | 					LV_Add("", "<Audio>")
 91 | 				}
 92 | 				else If RegExMatch(get_txt,"<track type=""Menu"">")
 93 | 				{
 94 | 					LV_Add("")
 95 | 					LV_Add("", "<Menu>")
 96 | 				}
 97 | 				else
 98 | 				{
 99 | 					get_title := RegExReplace(get_txt, "(<|>)")
100 | 					get_value := RegExReplace(A_LoopField, "(<.*?>)")
101 | 					LV_Add("", get_title, get_value)
102 | 				}
103 | 				
104 | 			}
105 | 		}
106 | 		LV_ModifyCol() 
107 | 		Gui, 4:+AlwaysOnTop +ToolWindow
108 | 		Gui, 4:Show,, Media Info
109 | 	}
110 | 	else
111 | 	{
112 | 		media_load := 0
113 | 		msgbox,0x2000, Media Info, Not Support FileFormat.
114 | 		GuiControl,,vp_in_path,
115 | 		Gui, 4:destroy
116 | 		Gui, 1:-Disabled
117 | 	}
118 | 	Gui, 3:Destroy
119 | }
120 | Return
121 | 
122 | 4GuiClose:
123 | {
124 | 	Gui, 1:Default
125 | 	Gui, 4:destroy
126 | 	Gui, 1:-Disabled
127 | }
128 | Return


--------------------------------------------------------------------------------
/lib/decode_test.ahk:
--------------------------------------------------------------------------------
  1 | decode_test:
  2 | {
  3 | 	If(vp_in_path = "")
  4 | 	{
  5 | 		MsgBox, No Input File
  6 | 		Return
  7 | 	}
  8 | 	run_command := ""
  9 | 	run_command1 := ""
 10 | 	run_command2 := ""
 11 | 	run_command3 := ""
 12 | 	run_command4 := ""
 13 | 	run_command5 := ""
 14 | 	run_command6 := ""
 15 | 	SplitPath, vp_in_path, in_name_ext, in_dir, in_ext, in_name
 16 | 	
 17 | 	run_command .= """" A_WorkingDir "\ffmpeg\ffmpeg_p1.exe""" " -hide_banner -loglevel info"
 18 | 	
 19 | 	if(image_input=1)
 20 | 	{
 21 | 		run_command2 .= " -i """ in_dir "\image%06d." in_ext """"
 22 | 	}
 23 | 	else if(image_input=2)
 24 | 	{
 25 | 		run_command2 .= " -i """ in_dir "\%06d." in_ext """"
 26 | 	}
 27 | 	else
 28 | 	{
 29 | 		run_command2 .= " -i """ vp_in_path """"
 30 | 	}
 31 | 	
 32 | 	FileDelete, %A_WorkingDir%\output.txt
 33 | 	
 34 | 	run_command6 .= " -f null - 1> " A_WorkingDir "\output.txt 2>&1"
 35 | 
 36 | 	run_command .= run_command1 run_command2 run_command3 run_command4 run_command5 run_command6
 37 | 	gosub,log_console
 38 | 
 39 | 	Run, %comspec% /c "%run_command%",,Hide
 40 | 	
 41 | 	pro_color := "00dd00"
 42 | 	
 43 | 	Gui, 3:destroy
 44 | 	Gui, 1:show,hide
 45 | 	Gui, 3:Add, Progress, y9 x7 w640 r6 +c777777, 100
 46 | 	Gui, 3:Add, Text, y12 x10 w640 r6 vcom_display +BackgroundTrans +ceeeeee,
 47 | 	Gui, 3:Add, Progress, y92 x7 w640 r1 border +c%pro_color% vtest_progress, 0
 48 | 	Gui, 3:Add, Text, y92 x7 w640 +BackgroundTrans center r1 vtest_per,% 0.00 " %"
 49 | 	Gui, 3:Show, w654,Decode Testing..
 50 | 	Gui, 3:Default
 51 | 	Gui, 3:Color, bbbbbb
 52 | 	sleep,100
 53 | 	
 54 | 	StartTime := A_TickCount
 55 | 	stop:=0
 56 | 	i:=1
 57 | 	last := 0
 58 | 	err_count := 0
 59 | 	loop
 60 | 	{
 61 | 		if(stop=1)
 62 | 		{
 63 | 			Break
 64 | 		}
 65 | 		
 66 | 		FileReadLine, line, %A_WorkingDir%\output.txt, %i%
 67 | 		if(line != last_line)
 68 | 		{
 69 | 			ElapsedTime := A_TickCount - StartTime
 70 | 			last_line := line
 71 | 			i++
 72 | 			If InStr(line, "error") || InStr(line, "Invalid") || InStr(line, "not allocated")
 73 | 			{
 74 | 				if(last=0)
 75 | 				{
 76 | 					StartTime := A_TickCount
 77 | 					GuiControl,, com_display,% i " : " line
 78 | 				}
 79 | 				else if(ElapsedTime>500)
 80 | 				{
 81 | 					last=-1
 82 | 					StartTime := A_TickCount
 83 | 				}
 84 | 				last++
 85 | 				err_count++
 86 | 				if(err_count>0)
 87 | 				{
 88 | 					kill_ffmpeg:
 89 | 					{
 90 | 						Process, Close, ffmpeg_p1.exe
 91 | 						Sleep, 50
 92 | 						if Process, Exist , ffmpeg_p1.exe
 93 | 						{
 94 | 							Goto, kill_ffmpeg
 95 | 						}
 96 | 					}
 97 | 					a := i-5
 98 | 					l := 0
 99 | 					error_re := ""
100 | 					while(l<5)
101 | 					{
102 | 						FileReadLine, line2, %A_WorkingDir%\output.txt,% a + l
103 | 						error_re .= a + l " : " line2 "`r"
104 | 						l++
105 | 					}
106 | 					GuiControl,, com_display,% error_re
107 | 					pro_color := "dd0000"
108 | 					GuiControl, Hide, test_progress
109 | 					Gui, 3:Add, Progress, y92 x7 w640 r1 border +c%pro_color%,% progress_percent
110 | 					break
111 | 				}
112 | 				Continue
113 | 			}
114 | 			If InStr(line, "overhead:")
115 | 			{
116 | 				Break
117 | 			}
118 | 		}
119 | 		If InStr(line, "frame=")
120 | 		{
121 | 			StringTrimLeft,progress_info,line,6
122 | 			progress_info := StrReplace(progress_info, A_Space)
123 | 			current_frame := StrSplit(progress_info,"fps=","fps=")
124 | 			progress_fps := StrSplit(current_frame[2],"q=","q=")
125 | 			GuiControl,, com_display,% "Current Frame : " current_frame[1] "`rSpeed : " progress_fps[1] " fps"
126 | 			progress_percent := (current_frame[1] / video_n_frame) * 100
127 | 			GuiControl,,test_progress,% progress_percent
128 | 			progress_percent2 := Round(progress_percent,2)
129 | 			GuiControl,,test_per,% progress_percent2 " %"
130 | 			sleep,250
131 | 		}
132 | 	}
133 | 	
134 | 	if(err_count>0)
135 | 	{
136 | 		msgbox,0x2030, Media Info, Decoding Test, Error Detected!
137 | 	}
138 | 	else
139 | 	{
140 | 		msgbox,0x2040, Media Info, Decoding Test, Decode Successful!
141 | 	}
142 | 	Gui, 1:Default
143 | 	Gui, 3:destroy
144 | 	Gui, 1:show
145 | }
146 | Return


--------------------------------------------------------------------------------
/lib/gtab_media.ahk:
--------------------------------------------------------------------------------
 1 | Gui, Tab, Media
 2 | Gui, Add, Text, x12 y29 w70 h20 , Input File :
 3 | Gui, Add, Edit, x92 y29 w180 h20 Readonly vvp_in_path ggui_update, 
 4 | Gui, Add, Text, x12 y49 w70 h20 , Output Folder :
 5 | Gui, Add, Edit, x92 y49 w180 h20 Readonly vvp_out_path ggui_update, 
 6 | Gui, Add, GroupBox, x552 y29 w340 h50 , Output Type
 7 | Gui, Add, Radio, x562 y49 w60 h20 Checked voutput_pic galt_guiupdate, Picture
 8 | Gui, Add, Radio, x622 y49 w60 h20 voutput_vid galt_guiupdate, Video
 9 | Gui, Add, Radio, x682 y49 w60 h20 voutput_audio galt_guiupdate, Audio
10 | Gui, Add, GroupBox, x2 y79 w890 h470 , Setting
11 | Gui, Add, Button, x272 y29 w30 h20 gvid_to_pic_in_folder, ...
12 | Gui, Add, Button, x312 y29 w80 h20 gdecode_test, Decode Test
13 | Gui, Add, Button, x272 y49 w30 h20 gvid_to_pic_out_folder, ...
14 | Gui, Add, CheckBox, x12 y99 w190 h20 vconvert_enable ggui_update, Convert to Constant Frame Rate
15 | Gui, Add, DropDownList, x212 y99 w60 h20 vconvert_fps r8 ggui_update, 15|23.976||24|25|29.97|30|50|59.94|60|100|120|Custom|Advanced|
16 | Gui, Add, Text, x29 y124 w100 h20 vconvert_custom ggui_update, Custom Frame Rate
17 | Gui, Add, Edit, x212 y124 w60 h20 Number Limit3 vcustom_fps ggui_update, 30
18 | Gui, Add, Edit, x142 y124 w60 h20 Number vcustom_fps_num ggui_update, 30000
19 | Gui, Add, Edit, x212 y124 w60 h20 Number vcustom_fps_den ggui_update, 1001
20 | Gui, Add, Text, x272 y159 w20 h20 vvp_quality_show, 1
21 | Gui, Add, CheckBox, x12 y189 w80 h20 venable_th_mode ggui_update, Thumbnail :
22 | Gui, Add, Edit, x92 y189 w150 h20 vt_fps ggui_update, 1
23 | Gui, Add, DropDownList, x242 y189 w60 h20 vt_fps_mode r8 ggui_update, 1 sec|1 min||10 min|1 hours
24 | Gui, Add, CheckBox, x12 y219 w80 h20 venable_resize ggui_update, Resize :
25 | Gui, Add, Edit, x92 y219 w50 h20 vresize_w ggui_update, 
26 | Gui, Add, Text, x142 y219 w10 h20 vresize_x, x
27 | Gui, Add, Edit, x152 y219 w50 h20 vresize_h ggui_update, 
28 | Gui, Add, DropDownList, x202 y219 w100 h20 r10 vt_scale1 ggui_update, bilinear|bicubic|experimental|neighbor|area|bicublin|gauss|sinc|lanczos|spline||
29 | Gui, Add, Text, x749 y52 w60 h20 right, Output Ext :
30 | Gui, Add, DropDownList, x812 y49 w50 h21 vconfig_ext2 r12 ggui_update, .jpg||.png|.bmp
31 | Gui, Add, button, x12 y519 w150 h20 vb_start2 grun_ffmpeg, Start
32 | Gui, Add, GroupBox, x312 y99 w140 h90 , Deinterlace
33 | Gui, Add, CheckBox, x322 y219 w60 h20 venable_ss ggui_update, Start :
34 | Gui, Add, CheckBox, x322 y249 w60 h20 venable_to ggui_update, End :
35 | Gui, Add, Edit, x382 y219 w110 h20 vtime_ss ggui_update, 00:00:00
36 | Gui, Add, Edit, x382 y249 w110 h20 vtime_to ggui_update, 00:00:00
37 | Gui, Add, CheckBox, x12 y249 w290 h20 venable_decimate ggui_update, Remove Duplicate Frame [Anime Preset 29.970 > 23.976]
38 | Gui, Add, GroupBox, x462 y99 w220 h90 , Video Encoder
39 | Gui, Add, DropDownList, x472 y119 w50 h20 vencoder r12 ggui_update, x264||x265|Raw
40 | Gui, Add, DropDownList, x472 y149 w50 h20 venc_profile r12 ggui_update, Auto||baseline|main|high|high10|high422|high444
41 | Gui, Add, Radio, x542 y119 w60 h20 vcqp_s1 Group Checked ggui_update, CQP :
42 | Gui, Add, Radio, x542 y139 w60 h20 vcrf_s1 ggui_update, CRF :
43 | Gui, Add, Edit, x602 y119 w40 h20 vcqp_value1 ggui_update, 18
44 | Gui, Add, Edit, x602 y139 w40 h20 vcrf_value1 ggui_update, 18
45 | Gui, Add, Text, x542 y162 w40 h20 , Preset:
46 | Gui, Add, DropDownList, x602 y159 w70 h20 venc_preset r12 ggui_update, ultrafast|superfast|veryfast|faster|fast|medium||slow|slower|veryslow|placebo|
47 | Gui, Add, CheckBox, x522 y219 w60 h20 venable_audio Checked ggui_update, Audio
48 | Gui, Add, Radio, x592 y219 w50 h20 venable_a_aac ggui_update, AAC
49 | Gui, Add, Radio, x642 y219 w50 h20 venable_a_ogg ggui_update, OGG
50 | Gui, Add, Radio, x702 y219 w50 h20 venable_a_mp3 ggui_update, MP3
51 | Gui, Add, Radio, x752 y219 w50 h20 venable_a_pcm Checked ggui_update, PCM
52 | Gui, Add, Radio, x802 y219 w50 h20 venable_a_copy ggui_update, Copy
53 | Gui, Add, CheckBox, x522 y249 w60 h20 venable_add_audio ggui_update, Add
54 | Gui, Add, Edit, x592 y249 w250 h20 vadd_audio_path ggui_update, 
55 | Gui, Add, Button, x842 y249 w30 h20 gadd_audio_file, ...
56 | Gui, Add, GroupBox, x692 y99 w190 h90 , Color
57 | Gui, Add, Text, x702 y129 w70 h20 , Color Space :
58 | Gui, Add, DropDownList, x802 y129 w70 h20 vc_space r10 Checked ggui_update, Auto||YUV420|YUV422|YUV444
59 | Gui, Add, Text, x702 y149 w70 h20 , Bit depth :
60 | Gui, Add, DropDownList, x802 y149 w70 h20 vc_bit r10 Checked ggui_update, 8 Bit||10 Bit
61 | Gui, Add, Text, x12 y159 w70 h20 , JPG Quality :
62 | Gui, Add, Slider, x92 y159 w180 h20 vvp_quality Range1-31 ggui_update, 1
63 | Gui, Add, GroupBox, x312 y199 w190 h80 , Trim
64 | Gui, Add, GroupBox, x512 y199 w370 h80 , Audio
65 | Gui, Add, button, x322 y129 w120 h40 ggui2 , Anime Deinterlace Filter


--------------------------------------------------------------------------------
/lib/gtab_w2x.ahk:
--------------------------------------------------------------------------------
 1 | Gui, Tab, Waifu2X
 2 | Gui, Add, Text, x22 y29 w80 h20 , Input Folder :
 3 | Gui, Add, Edit, x112 y29 w180 h20 vin_path ggui_update, %in_path%
 4 | Gui, Add, Text, x22 y49 w80 h20 , Output Folder :
 5 | Gui, Add, Edit, x112 y49 w180 h20 vout_path ggui_update, %out_path%
 6 | Gui, Add, Radio, x22 y89 w80 h20 Group vby_scale Checked ggui_update, Scale
 7 | Gui, Add, Radio, x22 y119 w80 h20 vby_size ggui_update, Specific Size
 8 | Gui, Add, Edit, x112 y89 w60 h20 vscale ggui_update, 2
 9 | Gui, Add, Edit, x112 y119 w60 h20 vsizew number ggui_update, 1920
10 | Gui, Add, Edit, x182 y119 w60 h20 vsizeh number ggui_update, 1080
11 | Gui, Add, Text, x22 y149 w80 h20 , Batch/Process :
12 | Gui, Add, Edit, x112 y149 w50 h20 vbatch_size ggui_update, 200
13 | Gui, Add, Text, x22 y179 w70 h20 , Noise Level :
14 | Gui, Add, Slider, x112 y179 w180 h20 vnoise_level Range0-3 ggui_update, 3
15 | Gui, Add, Text, x292 y179 w40 h20 vnoise_level_show, %noise_level%
16 | Gui, Add, Text, x22 y209 w40 h20 , Model :
17 | Gui, Add, DropDownList, x112 y209 w180 h21 vmodelv r10 ggui_update, models-cunet||models-upconv_7_anime_style_art_rgb|models-upconv_7_photo|
18 | Gui, Add, Text, x22 y239 w90 h20 , File Extension :
19 | Gui, Add, DropDownList, x112 y239 w50 h21 vconfig_ext r11 ggui_update, .png||.jpg
20 | Gui, Add, Text, x202 y239 w90 h20 , Tile Size :
21 | Gui, Add, Edit, x262 y239 w50 h21 vconfig_t_size ggui_update, 240
22 | Gui, Add, Text, x22 y269 w40 h20 , Mode :
23 | Gui, Add, DropDownList, x112 y269 w50 h21 vwin_mode r6 ggui_update, |Max|Min|Hide||
24 | Gui, Add, Text, x202 y269 w40 h20 , Sleep :
25 | Gui, Add, DropDownList, x262 y269 w50 h21 vsleep_time r10 ggui_update, 10|20|50|100|200|333||500|1000|2000|3000|4000|5000|10000
26 | Gui, Add, CheckBox, x22 y299 w90 h20 vskip_existv Checked ggui_update, Skip Exist File
27 | Gui, Add, GroupBox, x22 y399 w310 h110 , GPU Setting
28 | Gui, Add, CheckBox, x32 y419 w20 h20 venable_process1 checked ggui_update, 
29 | Gui, Add, Text, x52 y419 w60 h20 , Process 1 :
30 | Gui, Add, DropDownList, x112 y419 w50 h21 vconfig_gpu1 r8 ggui_update, 0||1|2|3|4|5|6|7
31 | Gui, Add, CheckBox, x32 y439 w20 h20 venable_process2 ggui_update, 
32 | Gui, Add, Text, x52 y439 w60 h20 , Process 2 :
33 | Gui, Add, DropDownList, x112 y439 w50 h21 vconfig_gpu2 r8 ggui_update, 0||1|2|3|4|5|6|7
34 | Gui, Add, CheckBox, x32 y459 w20 h20 venable_process3 ggui_update, 
35 | Gui, Add, Text, x52 y459 w60 h20 , Process 3 :
36 | Gui, Add, DropDownList, x112 y459 w50 h21 vconfig_gpu3 r8 ggui_update, 0||1|2|3|4|5|6|7
37 | Gui, Add, CheckBox, x32 y479 w20 h20 venable_process4 ggui_update, 
38 | Gui, Add, Text, x52 y479 w60 h20 , Process 4 :
39 | Gui, Add, DropDownList, x112 y479 w50 h21 vconfig_gpu4 r8 ggui_update, 0||1|2|3|4|5|6|7
40 | Gui, Add, CheckBox, x182 y419 w20 h20 venable_process5 ggui_update, 
41 | Gui, Add, Text, x202 y419 w60 h20 , Process 5 :
42 | Gui, Add, DropDownList, x262 y419 w50 h21 vconfig_gpu5 r8 ggui_update, 0||1|2|3|4|5|6|7
43 | Gui, Add, CheckBox, x182 y439 w20 h20 venable_process6 ggui_update, 
44 | Gui, Add, Text, x202 y439 w60 h20 , Process 6 :
45 | Gui, Add, DropDownList, x262 y439 w50 h21 vconfig_gpu6 r8 ggui_update, 0||1|2|3|4|5|6|7
46 | Gui, Add, CheckBox, x182 y459 w20 h20 venable_process7 ggui_update, 
47 | Gui, Add, Text, x202 y459 w60 h20 , Process 7 :
48 | Gui, Add, DropDownList, x262 y459 w50 h21 vconfig_gpu7 r8 ggui_update, 0||1|2|3|4|5|6|7
49 | Gui, Add, CheckBox, x182 y479 w20 h20 venable_process8 ggui_update, 
50 | Gui, Add, Text, x202 y479 w60 h20 , Process 8 :
51 | Gui, Add, DropDownList, x262 y479 w50 h21 vconfig_gpu8 r8 ggui_update, 0||1|2|3|4|5|6|7
52 | Gui, Add, GroupBox, x352 y29 w200 h40 , Mode :
53 | Gui, Add, Radio, x382 y42 w50 h20 vw2x_mode galt_guiupdate, Cuda
54 | Gui, Add, Radio, x452 y42 w70 h20 vw2xv_mode Checked galt_guiupdate, Vulkan
55 | Gui, Add, GroupBox, x342 y259 w550 h260 , Status
56 | Gui, Add, Text, x352 y289 w60 h20 , Total Files :
57 | Gui, Add, Text, x442 y289 w70 h20 vf_totalv, -
58 | Gui, Add, Text, x352 y309 w80 h20 , Processing Files :
59 | Gui, Add, Text, x442 y309 w70 h20 vf_ppv, -
60 | Gui, Add, Text, x562 y289 w40 h20 , Speed :
61 | Gui, Add, Text, x612 y289 w60 h20 vtspeed, -
62 | Gui, Add, Text, x682 y289 w50 h20 , fps
63 | Gui, Add, Text, x832 y309 w50 h20 right vs_percenv, 
64 | Gui, Add, Progress, x352 y329 w530 h10 +cGreen Border vp_pro -Theme BackgroundWhite, 0
65 | Gui, Add, Text, x352 y349 w80 h20 , Process 1 :
66 | Gui, Add, Text, x442 y349 w380 h20 vs_file_processv1, -
67 | Gui, Add, Text, x832 y349 w50 h20 vs_process_countv1, -
68 | Gui, Add, Text, x352 y369 w80 h20 , Process 2 :
69 | Gui, Add, Text, x442 y369 w380 h20 vs_file_processv2, -
70 | Gui, Add, Text, x832 y369 w50 h20 vs_process_countv2, -
71 | Gui, Add, Text, x352 y389 w80 h20 , Process 3 :
72 | Gui, Add, Text, x442 y389 w380 h20 vs_file_processv3, -
73 | Gui, Add, Text, x832 y389 w50 h20 vs_process_countv3, -
74 | Gui, Add, Text, x352 y409 w80 h20 , Process 4 :
75 | Gui, Add, Text, x442 y409 w380 h20 vs_file_processv4, -
76 | Gui, Add, Text, x832 y409 w50 h20 vs_process_countv4, -
77 | Gui, Add, Text, x352 y429 w80 h20 , Process 5 :
78 | Gui, Add, Text, x442 y429 w380 h20 vs_file_processv5, -
79 | Gui, Add, Text, x832 y429 w50 h20 vs_process_countv5, -
80 | Gui, Add, Text, x352 y449 w80 h20 , Process 6 :
81 | Gui, Add, Text, x442 y449 w380 h20 vs_file_processv6, -
82 | Gui, Add, Text, x832 y449 w50 h20 vs_process_countv6, -
83 | Gui, Add, Text, x352 y469 w80 h20 , Process 7 :
84 | Gui, Add, Text, x442 y469 w380 h20 vs_file_processv7, -
85 | Gui, Add, Text, x832 y469 w50 h20 vs_process_countv7, -
86 | Gui, Add, Text, x352 y489 w80 h20 , Process 8 :
87 | Gui, Add, Text, x442 y489 w380 h20 vs_file_processv8, -
88 | Gui, Add, Text, x832 y489 w50 h20 vs_process_countv8, -
89 | Gui, Add, Button, x292 y29 w30 h20 gin_folderv, ...
90 | Gui, Add, Button, x292 y49 w30 h20 gout_folderv, ...
91 | Gui, Add, button, x22 y529 w80 h20 vb_startv grun_w2x, Start
92 | Gui, Add, button, x102 y529 w80 h20 vb_stopv grun_stop Disabled, Stop
93 | Gui, Add, button, x262 y529 w70 h20 gsave, Save Setting
94 | Gui, Add, Text, x22 y509 w70 h20 vs_sv, Ready ..
95 | Gui, Add, Text, x22 y329 w70 h20 , Thread :
96 | Gui, Add, Edit, x112 y329 w60 h20 vJ1 ggui_update, 1
97 | Gui, Add, Edit, x182 y329 w60 h20 vJ2 ggui_update, 2
98 | Gui, Add, Edit, x252 y329 w60 h20 vJ3 ggui_update, 2


--------------------------------------------------------------------------------
/lib/gupdate.ahk:
--------------------------------------------------------------------------------
  1 | gui_update:
  2 | {
  3 | 	Gui, Submit, NoHide
  4 | 	if (nlv0 == 1) 
  5 | 	noise_level := 0
  6 | 	else if (nlv1 == 1) 
  7 | 	noise_level := 1
  8 | 	else if (nlv2 == 1) 
  9 | 	noise_level := 2
 10 | 	else if (nlv3 == 1) 
 11 | 	noise_level := 3
 12 | 
 13 | 	
 14 | 	if(convert_fps="Custom")
 15 | 	{
 16 | 		convert_fps_num := custom_fps*1000
 17 | 		convert_fps_den := 1000
 18 | 		GuiControl, Show,convert_custom
 19 | 		GuiControl, Hide,custom_fps_num
 20 | 		GuiControl, Hide,custom_fps_den	
 21 | 		GuiControl, Show,custom_fps
 22 | 	}
 23 | 	else if(convert_fps="Advanced")
 24 | 	{
 25 | 		convert_fps_num := custom_fps_num
 26 | 		convert_fps_den := custom_fps_den
 27 | 		GuiControl, Show,convert_custom
 28 | 		GuiControl, Show,custom_fps_num
 29 | 		GuiControl, Show,custom_fps_den	
 30 | 		GuiControl, Hide,custom_fps
 31 | 	}
 32 | 	else
 33 | 	{
 34 | 		GuiControl, Hide,convert_custom
 35 | 		GuiControl, Hide,custom_fps_num
 36 | 		GuiControl, Hide,custom_fps_den	
 37 | 		GuiControl, Hide,custom_fps
 38 | 	}
 39 | 	
 40 | 	if(convert_fps=15)
 41 | 	{
 42 | 		convert_fps_num := 15000
 43 | 		convert_fps_den := 1000
 44 | 	}
 45 | 	else if(convert_fps=23.976)
 46 | 	{
 47 | 		convert_fps_num := 24000
 48 | 		convert_fps_den := 1001
 49 | 	}
 50 | 	else if(convert_fps=24)
 51 | 	{
 52 | 		convert_fps_num := 24000
 53 | 		convert_fps_den := 1000
 54 | 	}
 55 | 	else if(convert_fps=25)
 56 | 	{
 57 | 		convert_fps_num := 25000
 58 | 		convert_fps_den := 1000
 59 | 	}
 60 | 	else if(convert_fps=29.97)
 61 | 	{
 62 | 		convert_fps_num := 30000
 63 | 		convert_fps_den := 1001
 64 | 	}
 65 | 	else if(convert_fps=30)
 66 | 	{
 67 | 		convert_fps_num := 30000
 68 | 		convert_fps_den := 1000
 69 | 	}
 70 | 	else if(convert_fps=50)
 71 | 	{
 72 | 		convert_fps_num := 50000
 73 | 		convert_fps_den := 1000
 74 | 	}
 75 | 	else if(convert_fps=59.94)
 76 | 	{
 77 | 		convert_fps_num := 60000
 78 | 		convert_fps_den := 1001
 79 | 	}
 80 | 	else if(convert_fps=60)
 81 | 	{
 82 | 		convert_fps_num := 60000
 83 | 		convert_fps_den := 1000
 84 | 	}
 85 | 	else if(convert_fps=100)
 86 | 	{
 87 | 		convert_fps_num := 100000
 88 | 		convert_fps_den := 1000
 89 | 	}
 90 | 	else if(convert_fps=120)
 91 | 	{
 92 | 		convert_fps_num := 120000
 93 | 		convert_fps_den := 1000
 94 | 	}
 95 | 
 96 | 	if(by_scale = 1)
 97 | 	{
 98 | 		gui_d("width,height,width1,height1")
 99 | 		gui_e("scale")
100 | 	}
101 | 	else if(by_width = 1)
102 | 	{
103 | 		gui_d("scale,height,width1,height1")
104 | 		gui_e("width")
105 | 	}
106 | 	else if(by_height = 1)
107 | 	{
108 | 		gui_d("scale,width,height,height1")
109 | 		gui_e("height")
110 | 	}
111 | 	else if(by_w_h = 1)
112 | 	{
113 | 		gui_d("scale,width,height")
114 | 		gui_e("width1,height1")
115 | 	}
116 | 	
117 | 	if(mode1 = 1)
118 | 	{
119 | 		mode_select := "noise_scale"
120 | 	}
121 | 	else if(mode2 = 1)
122 | 	{
123 | 		mode_select := "scale"
124 | 	}
125 | 	else if(mode3 = 1)
126 | 	{
127 | 		mode_select := "noise"
128 | 	}
129 | 	else
130 | 	{
131 | 		mode_select := "auto_scale"
132 | 	}
133 | 	
134 | 	GuiControl,,vp_quality_show,%vp_quality%
135 | 	GuiControl,,noise_level_show,%noise_level%
136 | 	
137 | 	if(t_fps_mode="1 sec")
138 | 	{
139 | 		t_fpsx := 1
140 | 	}
141 | 	else if(t_fps_mode="1 min")
142 | 	{
143 | 		t_fpsx := 60
144 | 	}
145 | 	else if(t_fps_mode="10 min")
146 | 	{
147 | 		t_fpsx := 600
148 | 	}
149 | 	else
150 | 	{
151 | 		t_fpsx := 3600
152 | 	}
153 | 	
154 | 	if(check_res_mode = "First File")
155 | 	{
156 | 		gui_d("check_custom_w,check_custom_h")
157 | 	}
158 | 	else
159 | 	{
160 | 		gui_e("check_custom_w,check_custom_h")
161 | 	}
162 | 	
163 | 	if(enable_check_res = "0")
164 | 	{
165 | 		GuiControl,Disable,enable_check_ssim
166 | 		enable_check_ssim := 0
167 | 	}
168 | 	else
169 | 	{
170 | 		GuiControl,Enable,enable_check_ssim
171 | 	}
172 | 	
173 | 	if(convert_enable = 1)
174 | 	{
175 | 		gui_d("enable_th_mode")
176 | 		enable_th_mode := 0
177 | 	}
178 | 	else
179 | 	{
180 | 		GuiControl,Enable,enable_th_mode
181 | 		gui_e("enable_th_mode")
182 | 	}
183 | 	
184 | 	if(enable_resize = 1)
185 | 	{
186 | 		gui_s("t_scale1,resize_w,resize_h,resize_x")
187 | 	}
188 | 	else
189 | 	{
190 | 		gui_h("t_scale1,resize_w,resize_h,resize_x")
191 | 	}
192 | 	
193 | 	if(deinter_mode="Frame")
194 | 	{
195 | 		deinter_m := 0
196 | 	}
197 | 	else
198 | 	{
199 | 		deinter_m := 1
200 | 	}
201 | 	
202 | 	if(deinter_field="Top")
203 | 	{
204 | 		deinter_f := 0
205 | 	}
206 | 	else
207 | 	{
208 | 		deinter_f := 1
209 | 	}
210 | 	
211 | }
212 | return
213 | 
214 | gui_d(var1)
215 | {
216 | 	var2 := StrSplit(var1, ",")
217 | 	Loop % var2.MaxIndex()
218 | 	{
219 | 		GuiControl,Disable,% var2[A_Index]
220 | 	}
221 | }
222 | 
223 | 
224 | gui_e(var1)
225 | {
226 | 	var2 := StrSplit(var1, ",")
227 | 	Loop % var2.MaxIndex()
228 | 	{
229 | 		GuiControl,Enable,% var2[A_Index]
230 | 	}
231 | }
232 | 
233 | gui_h(var1)
234 | {
235 | 	var2 := StrSplit(var1, ",")
236 | 	Loop % var2.MaxIndex()
237 | 	{
238 | 		GuiControl,Hide,% var2[A_Index]
239 | 	}
240 | }
241 | 
242 | gui_s(var1)
243 | {
244 | 	var2 := StrSplit(var1, ",")
245 | 	Loop % var2.MaxIndex()
246 | 	{
247 | 		GuiControl,Show,% var2[A_Index]
248 | 	}
249 | }
250 | 
251 | alt_guiupdate:
252 | {
253 | 	Gui, Submit, NoHide
254 | 	if(model1<>"RIFE")
255 | 	{
256 | 		gui_d("Modelfi")
257 | 		gui_d("UHD_Mode")
258 | 		gui_d("TTA_Mode")
259 | 		gui_d("Use_CPU")
260 | 		gui_d("config_model")
261 | 		gui_e("config_t_size1")
262 | 	}
263 | 	Else
264 | 	{
265 | 		gui_e("Modelfi")
266 | 		gui_e("UHD_Mode")
267 | 		gui_e("TTA_Mode")
268 | 		gui_e("Use_CPU")
269 | 		gui_e("config_model")
270 | 		gui_d("config_t_size1")
271 | 	}
272 | 	if(output_vid=1)
273 | 	{
274 | 		GuiControl,,config_ext2,|.avi|.mp4||.mkv
275 | 	}
276 | 	else if(output_pic=1)
277 | 	{
278 | 		GuiControl,,config_ext2,|.jpg||.png|.bmp
279 | 	}
280 | 	else
281 | 	{
282 | 		GuiControl,,config_ext2,|.aac||.ac3|.ogg|.mp3|.wav
283 | 	}
284 | 	
285 | 	if(w2x_mode=1)
286 | 	{
287 | 		GuiControl,,modelv,% "|" model_list
288 | 		GuiControl,Choose,modelv, 5
289 | 		GuiControl,Enable,by_size
290 | 		GuiControl,Enable,config_ext
291 | 		gui_d("J1,J2,J3")
292 | 	}
293 | 	else
294 | 	{
295 | 		GuiControl,,modelv, |models-cunet|models-upconv_7_anime_style_art_rgb|models-upconv_7_photo|
296 | 		GuiControl,Choose,config_ext, 1
297 | 		GuiControl,Choose,modelv, 2
298 | 		GuiControl,Disable,by_size
299 | 		GuiControl,,by_scale, 1
300 | 		gui_e("J1,J2,J3")
301 | 	}
302 | 	
303 | 	SplitPath, config_ext,,, OutExtension
304 | 	Gui, Submit, NoHide
305 | }
306 | Return


--------------------------------------------------------------------------------
/lib/load_env.ahk:
--------------------------------------------------------------------------------
  1 | if !FileExist(A_WorkingDir "\w2x_cuda\waifu2x-caffe-cui.exe")
  2 | {
  3 | 	MsgBox,16, Error!, waifu2x-caffe-cui.exe Not Found
  4 | 	exitapp
  5 | }
  6 | if !FileExist(A_WorkingDir "\w2x_vulkan\waifu2x-ncnn-vulkan.exe")
  7 | {
  8 | 	MsgBox,16, Error!, waifu2x-ncnn-vulkan.exe Not Found
  9 | 	exitapp
 10 | }
 11 | if !FileExist(A_WorkingDir "\ffmpeg\ffmpeg.exe")
 12 | {
 13 | 	MsgBox,16, Error!, ffmpeg.exe Not Found
 14 | 	exitapp
 15 | }
 16 | 
 17 | load_gui(){
 18 | 	global all_task
 19 | 	global i_task
 20 | 	if (i_task="")
 21 | 	{
 22 | 		i_task:=0
 23 | 	}
 24 | 	i_task++
 25 | 	GuiControl,3:, p_load,% (i_task/all_task)*100
 26 | 	Return
 27 | }
 28 | 
 29 | if (FileExist(A_WorkingDir "\update.ini")) || (!FileExist(A_WorkingDir "\w2x_cuda\waifu2x-caffe-cui-p*.exe")) || (!FileExist(A_WorkingDir "\w2x_vulkan\waifu2x-ncnn-vulkan-p*.exe") || !FileExist(A_WorkingDir "\ffmpeg\ffmpeg_p1.exe"))
 30 | {
 31 | 	all_task := 24
 32 | 	Gui, 3:Add, Progress, x2 y2 w300 h20 +cGreen Border vp_load -Theme BackgroundWhite, 0
 33 | 	Gui, 3:Show, w304 h24, Loading..
 34 | 	
 35 | 	FileDelete, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui-p*.exe
 36 | 	load_gui()
 37 | 	FileCopy, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui.exe, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui-p1.exe
 38 | 	load_gui()
 39 | 	FileCopy, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui.exe, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui-p2.exe
 40 | 	load_gui()
 41 | 	FileCopy, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui.exe, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui-p3.exe
 42 | 	load_gui()
 43 | 	FileCopy, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui.exe, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui-p4.exe
 44 | 	load_gui()
 45 | 	FileCopy, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui.exe, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui-p5.exe
 46 | 	load_gui()
 47 | 	FileCopy, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui.exe, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui-p6.exe
 48 | 	load_gui()
 49 | 	FileCopy, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui.exe, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui-p7.exe
 50 | 	load_gui()
 51 | 	FileCopy, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui.exe, %A_WorkingDir%\w2x_cuda\waifu2x-caffe-cui-p8.exe
 52 | 	load_gui()
 53 | 	FileDelete, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan-p*.exe
 54 | 	load_gui()
 55 | 	FileCopy, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan.exe, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan-p1.exe
 56 | 	load_gui()
 57 | 	FileCopy, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan.exe, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan-p2.exe
 58 | 	load_gui()
 59 | 	FileCopy, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan.exe, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan-p3.exe
 60 | 	load_gui()
 61 | 	FileCopy, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan.exe, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan-p4.exe
 62 | 	load_gui()
 63 | 	FileCopy, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan.exe, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan-p5.exe
 64 | 	load_gui()
 65 | 	FileCopy, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan.exe, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan-p6.exe
 66 | 	load_gui()
 67 | 	FileCopy, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan.exe, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan-p7.exe
 68 | 	load_gui()
 69 | 	FileCopy, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan.exe, %A_WorkingDir%\w2x_vulkan\waifu2x-ncnn-vulkan-p8.exe
 70 | 	load_gui()
 71 | 	FileDelete, %A_WorkingDir%\ffmpeg\ffmpeg_p*.exe
 72 | 	load_gui()
 73 | 	FileCopy, %A_WorkingDir%\ffmpeg\ffmpeg.exe, %A_WorkingDir%\ffmpeg\ffmpeg_p1.exe
 74 | 	load_gui()
 75 | 	FileCopy, %A_WorkingDir%\ffmpeg\ffmpeg.exe, %A_WorkingDir%\ffmpeg\ffmpeg_p2.exe
 76 | 	load_gui()
 77 | 	FileCopy, %A_WorkingDir%\ffmpeg\ffmpeg.exe, %A_WorkingDir%\ffmpeg\ffmpeg_p3.exe
 78 | 	load_gui()
 79 | 	FileCopy, %A_WorkingDir%\ffmpeg\ffmpeg.exe, %A_WorkingDir%\ffmpeg\ffmpeg_p4.exe
 80 | 	load_gui()
 81 | 	FileDelete, %A_WorkingDir%\update.ini
 82 | 	load_gui()
 83 | 	sleep, 333
 84 | 	Gui, 3:destroy
 85 | }
 86 | 
 87 | 
 88 | 
 89 | IniRead, in_path, %A_WorkingDir%\setting.ini, main, in_path, %A_Space%
 90 | IniRead, out_path, %A_WorkingDir%\setting.ini, main, out_path,  %A_Space%
 91 | IniRead, noise_level, %A_WorkingDir%\setting.ini, main, noise_level, 2
 92 | IniRead, scale, %A_WorkingDir%\setting.ini, main, scale, 2
 93 | IniRead, win_mode, %A_WorkingDir%\setting.ini, main, win_mode, Hide
 94 | IniRead, config_ext, %A_WorkingDir%\setting.ini, main, config_ext, png
 95 | IniRead, model, %A_WorkingDir%\setting.ini, main, model, %A_Space%
 96 | IniRead, width, %A_WorkingDir%\setting.ini, main, width, %A_Space%
 97 | IniRead, height, %A_WorkingDir%\setting.ini, main, height, %A_Space%
 98 | IniRead, width1, %A_WorkingDir%\setting.ini, main, width1, %A_Space%
 99 | IniRead, height1, %A_WorkingDir%\setting.ini, main, height1, %A_Space%
100 | IniRead, by_scale, %A_WorkingDir%\setting.ini, main, by_scale, 1
101 | IniRead, by_width, %A_WorkingDir%\setting.ini, main, by_width, 0
102 | IniRead, by_height, %A_WorkingDir%\setting.ini, main, by_height, 0
103 | IniRead, by_w_h, %A_WorkingDir%\setting.ini, main, by_w_h, 0
104 | IniRead, skip_exist, %A_WorkingDir%\setting.ini, main, skip_exist, 1
105 | IniRead, sleep_time, %A_WorkingDir%\setting.ini, main, sleep_time, 100
106 | IniRead, mode1, %A_WorkingDir%\setting.ini, main, mode1, 1
107 | IniRead, mode2, %A_WorkingDir%\setting.ini, main, mode2, 0
108 | IniRead, mode3, %A_WorkingDir%\setting.ini, main, mode3, 0
109 | IniRead, mode4, %A_WorkingDir%\setting.ini, main, mode4, 0
110 | IniRead, t_scale, %A_WorkingDir%\setting.ini, main, t_scale, lanczos
111 | IniRead, log_enable, %A_WorkingDir%\setting.ini, main, log_enable, 1
112 | IniRead, log_limit, %A_WorkingDir%\setting.ini, main, log_limit, 26
113 | IniRead, first_load, %A_WorkingDir%\setting.ini, main, first_load, 1
114 | 
115 | i:=0
116 | while(i<=3)
117 | {
118 | 	IniRead, t_nlv%i%, %A_WorkingDir%\setting.ini, main, t_nlv%i%, 0
119 | 	i++
120 | }
121 | 
122 | i:=1
123 | while(i<=7)
124 | {
125 | 	IniRead, t_model%i%, %A_WorkingDir%\setting.ini, main, t_model%i%, 0
126 | 	i++
127 | }
128 | 
129 | i:=1
130 | while(i<=8)
131 | {
132 | 	IniRead, config_gpu%i%, %A_WorkingDir%\setting.ini, main, config_gpu%i%, 0
133 | 	IniRead, enable_process%i%, %A_WorkingDir%\setting.ini, main, enable_process%i%, 0
134 | 	i++
135 | }
136 | 
137 | Loop, Files, %A_WorkingDir%\w2x_cuda\models\*info.json, FR
138 | {
139 | 	model_trim_l := StrLen(A_WorkingDir) + 17
140 | 	StringTrimLeft, add_list, A_LoopFilePath, %model_trim_l%
141 | 	StringTrimRight, add_list, add_list, 10
142 | 	if(!model_list)
143 | 	{
144 | 		model_list := add_list
145 | 		continue
146 | 	}
147 | 	model_list := model_list "|" add_list
148 | }
149 | 
150 | StringReplace, model_list, model_list, |ukbench , , All


--------------------------------------------------------------------------------
/lib/test_check.ahk:
--------------------------------------------------------------------------------
  1 | check_file:
  2 | {
  3 | 	GuiControl,Disable,b_start
  4 | 	GuiControl,Disable,b_start1
  5 | 	GuiControl,Enabled,b_stop
  6 | 	GuiControl,Enabled,b_stop1
  7 | 	f_count := 0
  8 | 	l_count := 0
  9 | 	stop := 0
 10 | 	damage_count := 0
 11 | 	
 12 | 	Loop, Files, %in_path%\*.*, FR
 13 | 	{
 14 | 		if A_LoopFileExt in png,jpg,jpeg,tif,tiff,bmp,tga
 15 | 		{
 16 | 			f_count += 1
 17 | 		}
 18 | 	}
 19 | 	
 20 | 
 21 | 	
 22 | 	StartTime := A_TickCount
 23 | 	
 24 | 	c_main_h := 0
 25 | 	c_main_w := 0
 26 | 	c_size_count := 0
 27 | 	
 28 | 	; SSIM Config
 29 | 	ssim_cycle := 0
 30 | 	ssim_limit_thread := 4
 31 | 	ssim_file_count := 0
 32 | 	
 33 | 	Loop, Files, %in_path%\*.*, FR
 34 | 	{
 35 | 		if A_LoopFileExt in png,jpg,jpeg,tif,tiff,bmp,tga
 36 | 		{
 37 | 			l_count++
 38 | 			if(stop = 1)
 39 | 			{
 40 | 				break
 41 | 			}
 42 | 				SplitPath, A_LoopFilePath,,,, name_no_ext
 43 | 				loop_out_filepath := out_path "\" name_no_ext config_ext
 44 | 			
 45 | 				if !FileExist(loop_out_filepath)
 46 | 				{
 47 | 					LV_Add("","Output Not Found : " loop_out_filepath)
 48 | 					continue
 49 | 				}
 50 | 				
 51 | 				imagefile := loop_out_filepath
 52 | 				GDIPToken := Gdip_Startup()                                     
 53 | 				pBM := Gdip_CreateBitmapFromFile( imagefile )
 54 | 				img_w1:= Gdip_GetImageWidth( pBM ) 
 55 | 				img_h1:= Gdip_GetImageHeight( pBM ) 
 56 | 				Gdip_DisposeImage( pBM )
 57 | 				Gdip_Shutdown( GDIPToken ) 
 58 | 			
 59 | 			if(img_w1>0)
 60 | 			{
 61 | 				if(enable_check_res = 1)
 62 | 				{
 63 | 					if(c_size_count>0)
 64 | 					{
 65 | 						if(img_w1 <> c_main_w1) || (img_w1 <> c_main_w1)
 66 | 						{
 67 | 							while(LV_GetCount() >= log_limit)
 68 | 							{
 69 | 								LV_Delete(1)
 70 | 							}
 71 | 							LV_Add("","Not Match Output Size : " loop_out_filepath)
 72 | 							
 73 | 							if(check_action = "Delete")
 74 | 							{
 75 | 								FileDelete, %loop_out_filepath%
 76 | 								LV_Add("","Deleted : " A_LoopFileName)
 77 | 							}
 78 | 							else if(check_action = "Move")
 79 | 							{
 80 | 								FileMove, %loop_out_filepath%, %check_action_move_path%\%A_LoopFileName%
 81 | 								LV_Add("","Moved : " A_LoopFileName)
 82 | 							}
 83 | 							damage_count++
 84 | 						}
 85 | 						if(enable_check_ssim = 1)
 86 | 						{
 87 | 							loop
 88 | 							{
 89 | 								ssim_cycle++
 90 | 								if(ssim_cycle=ssim_limit_thread)
 91 | 								{
 92 | 									sleep,50
 93 | 								}
 94 | 								process_name := "ffmpeg_p" ssim_cycle ".exe"
 95 | 								Process, Exist, %process_name%
 96 | 								If (!ErrorLevel= 1)
 97 | 								{
 98 | 									ssim_file_count++
 99 | 									if (ssim_cycle>ssim_limit_thread)
100 | 									{
101 | 										ssim_cycle := 1
102 | 									}
103 | 									;SSIM Read Log
104 | 									if(ssim_file_count>ssim_limit_thread)
105 | 									{
106 | 										re_read:
107 | 										ssim_filename := ssim_filename_%ssim_cycle%
108 | 										ssim_filepath := ssim_filepath_%ssim_cycle%
109 | 										FileRead, ssim_log, ssim_%ssim_cycle%.log
110 | 										if(ssim_log="")
111 | 										{
112 | 											sleep,33
113 | 											goto,re_read
114 | 										}
115 | 										StringTrimLeft, ssim_log, ssim_log, 41
116 | 										StringTrimRight, ssim_log, ssim_log, 13
117 | 										ssim_log := ssim_log*100
118 | 										while(LV_GetCount() >= log_limit)
119 | 										{
120 | 											LV_Delete(1)
121 | 										}
122 | 										if(ssim_log<check_bad_ssim)
123 | 										{
124 | 											LV_Add("", "Bad SSIM : " ssim_log " : " ssim_filename)
125 | 											if(check_action = "Delete")
126 | 											{
127 | 												FileDelete, %out_path%\ssim_filename
128 | 												LV_Add("","Deleted : " ssim_filename)
129 | 											}
130 | 											else if(check_action = "Move")
131 | 											{
132 | 												FileMove, ssim_filepath, %check_action_move_path%\%ssim_filename%
133 | 												LV_Add("","Moved : " ssim_filename)
134 | 											}
135 | 										}
136 | 									}
137 | 									run_command := """" A_WorkingDir "\ffmpeg\ffmpeg_p" ssim_cycle ".exe"" -i """ A_LoopFilePath """ -i """ out_path "\" A_LoopFileName """ -lavfi ""[1:v]scale=" img_w ":" img_h "[vid1];[vid1][0:v]ssim=ssim_" ssim_cycle ".log"" -f null -"
138 | 									Run, %comspec% /c cd "%A_WorkingDir%" & %run_command%,,hide
139 | 									ssim_filename_%ssim_cycle% := A_LoopFileName
140 | 									ssim_filepath_%ssim_cycle% := A_LoopFilePath
141 | 									break
142 | 								}
143 | 							}
144 | 						}
145 | 					}
146 | 					else ;setup first file
147 | 					{
148 | 						if(check_res_mode = "First File")
149 | 						{
150 | 							c_main_w1 := img_w1
151 | 							c_main_h1 := img_h1
152 | 						}
153 | 						else
154 | 						{
155 | 							c_main_w1 := check_custom_w
156 | 							c_main_h1 := check_custom_h
157 | 						}
158 | 						while(LV_GetCount() >= log_limit)
159 | 						{
160 | 							LV_Delete(1)
161 | 						}
162 | 						LV_Add("","Output Size : " img_w1 "x" img_h1 )
163 | 					}
164 | 					c_size_count++
165 | 				}
166 | 			}
167 | 			else
168 | 			{
169 | 				while(LV_GetCount() >= log_limit)
170 | 				{
171 | 					LV_Delete(1)
172 | 				}
173 | 				LV_Add("","Bad File : " loop_out_filepath)
174 | 				if(check_action = "Delete")
175 | 				{
176 | 				FileDelete, %loop_out_filepath%
177 | 				LV_Add("","Deleted : " A_LoopFileName)
178 | 				}
179 | 				else if(check_action = "Move")
180 | 				{
181 | 					FileMove, %loop_out_filepath%, %check_action_move_path%\%A_LoopFileName%
182 | 					LV_Add("","Moved : " A_LoopFileName)
183 | 				}
184 | 				damage_count++
185 | 			}
186 | 			if(f_count<2000)
187 | 			{
188 | 				per := (l_count/f_count)*100
189 | 				GuiControl,,p_pro,%per%
190 | 				per := Round(per,2)
191 | 				GuiControl,,s_percen,%per% `%
192 | 				GuiControl,,s_file_process1,%A_LoopFilePath%
193 | 				GuiControl,,s_process_count1,% l_count
194 | 			}
195 | 			else
196 | 			{
197 | 				ElapsedTime := A_TickCount - StartTime
198 | 				if(ElapsedTime > 500)
199 | 				{
200 | 					per := (l_count/f_count)*100
201 | 					GuiControl,,p_pro,%per%
202 | 					per := Round(per,2)
203 | 					GuiControl,,s_percen,%per% `%
204 | 					StartTime := A_TickCount
205 | 					GuiControl,,s_file_process1,%A_LoopFilePath%
206 | 					GuiControl,,s_process_count1,% l_count
207 | 				}
208 | 			}
209 | 		}
210 | 	}
211 | 	
212 | 	per := (l_count/f_count)*100
213 | 	GuiControl,,p_pro,%per%
214 | 	per := Round(per,2)
215 | 	GuiControl,,s_percen,%per% `%
216 | 	GuiControl,,s_file_process1,%imagefile%
217 | 	GuiControl,,s_process_count1,% l_count
218 | 	
219 | 	GuiControl,Enabled,b_start
220 | 	GuiControl,Enabled,b_start1
221 | 	GuiControl,Disable,b_stop
222 | 	GuiControl,Disable,b_stop1
223 | 	LV_Add("", damage_count " File has Damaged.")
224 | }
225 | Return


--------------------------------------------------------------------------------
/lib/r_ffmpeg.ahk:
--------------------------------------------------------------------------------
  1 | add_filter(var1)
  2 | {
  3 | 	global filter_count
  4 | 	if(filter_count=0)
  5 | 	{
  6 | 		var2 := " -filter_complex """ var1
  7 | 		filter_count++
  8 | 		return var2
  9 | 	}
 10 | 	else
 11 | 	{
 12 | 		var2 := "[vid" filter_count "];[vid" filter_count "]" var1
 13 | 		filter_count++
 14 | 		return var2
 15 | 	}
 16 | }
 17 | 
 18 | 
 19 | 
 20 | run_ffmpeg:
 21 | {
 22 | 	filter_count := 0
 23 | 	run_command := ""
 24 | 	run_command1 := ""
 25 | 	run_command2 := ""
 26 | 	run_command3 := ""
 27 | 	run_command4 := ""
 28 | 	run_command5 := ""
 29 | 	run_command6 := ""
 30 | 	
 31 | 	if(vp_in_path="")
 32 | 	{
 33 | 		msgbox,0x2000, Error, Error No Input
 34 | 		Return
 35 | 	}
 36 | 	
 37 | 	SplitPath, vp_in_path, in_name_ext, in_dir, in_ext, in_name
 38 | 	
 39 | 	while (SubStr(vp_out_path,-1)="\")
 40 | 	{
 41 | 		StringTrimRight, vp_out_path, vp_out_path, 1
 42 | 	}
 43 | 	
 44 | 	if(vp_out_path="")
 45 | 	{
 46 | 		msgbox,0x2003, Warning, Output Path is Empty`rDo you want to Set Output Path to Input Path `nPress No, If you Don't want output file
 47 | 		
 48 | 		IfMsgBox Yes
 49 | 		{
 50 | 			vp_out_path := in_dir
 51 | 			GuiControl,,vp_out_path,%in_dir%
 52 | 			no_output := 0
 53 | 		}
 54 | 		else IfMsgBox No
 55 | 			no_output := 1
 56 | 		else
 57 | 			Return
 58 | 		
 59 | 		
 60 | 	}
 61 | 	
 62 | 	if(audio_out_path="")
 63 | 	{
 64 | 		audio_out_path := vp_out_path
 65 | 	}
 66 | 	
 67 | 	
 68 | 
 69 | 
 70 | 	if(output_pic=1)
 71 | 	{
 72 | 		IfNotExist, %audio_out_path%
 73 | 		{
 74 | 			FileCreateDir, %audio_out_path%
 75 | 		}
 76 | 		
 77 | 		IfNotExist, %vp_out_path%\%in_name%
 78 | 		{
 79 | 			FileCreateDir, %vp_out_path%\%in_name%
 80 | 		}
 81 | 	}
 82 | 	else
 83 | 	{
 84 | 		IfNotExist, %vp_out_path%
 85 | 		{
 86 | 			FileCreateDir, %vp_out_path%
 87 | 		}
 88 | 	}
 89 | 	
 90 | 	run_command .= """" A_WorkingDir "\ffmpeg\ffmpeg.exe"""
 91 | 	if(image_input=1)
 92 | 	{
 93 | 		run_command2 .= " -i """ in_dir "\image%06d." in_ext """"
 94 | 	}
 95 | 	else if(image_input=2)
 96 | 	{
 97 | 		run_command2 .= " -i """ in_dir "\%06d." in_ext """"
 98 | 	}
 99 | 	else
100 | 	{
101 | 		run_command2 .= " -i """ vp_in_path """"
102 | 	}
103 | 	
104 | 	if(enable_add_audio=1 and output_pic<>1)
105 | 	{
106 | 		if(add_audio_path<>"")
107 | 			run_command2 .= " -i """ add_audio_path """"
108 | 	}
109 | 	
110 | 	if(enable_deinterlace = 1)
111 | 	{
112 | 		attribute := "yadif=" deinter_m ":" deinter_f
113 | 		run_command4 .= add_filter(attribute)
114 | 	}
115 | 	
116 | 	if(enable_decimate = 1)
117 | 	{
118 | 		attribute := "decimate=cycle=5,setpts=N/23.976/TB"
119 | 		run_command4 .= add_filter(attribute)
120 | 	}
121 | 	
122 | 	
123 | 	if(image_input>=1)
124 | 	{
125 | 		run_command1 .= " -framerate " convert_fps_num "/" convert_fps_den
126 | 		attribute := "fps=" convert_fps_num "/" convert_fps_den
127 | 		run_command4 .= add_filter(attribute)
128 | 	}
129 | 	else
130 | 	{
131 | 		if(convert_enable = 1)
132 | 		{
133 | 			run_command3 .= " -vsync 1"
134 | 			attribute := "fps=" convert_fps_num "/" convert_fps_den
135 | 			run_command4 .= add_filter(attribute)
136 | 		}
137 | 		
138 | 		if(enable_th_mode = 1)
139 | 		{
140 | 			attribute := "fps=" t_fps "/" t_fpsx
141 | 			run_command4 .= add_filter(attribute)
142 | 		}
143 | 	}
144 | 	if(enable_resize = 1)
145 | 	{
146 | 		attribute := "scale=" resize_w ":" resize_h ":flags=" t_scale1
147 | 		run_command4 .= add_filter(attribute)
148 | 		run_command5 .= " -sws_flags " t_scale1
149 | 	}
150 | 	
151 | 	
152 | 	
153 | 	if(filter_count>0)
154 | 	{
155 | 		run_command4 .= """"
156 | 	}
157 | 	
158 | 	if(config_ext2 = ".jpg")
159 | 	{
160 | 		run_command5 .= " -q:v " vp_quality
161 | 	}
162 | 	
163 | 	if(output_vid=1)
164 | 	{
165 | 		if(encoder="x264")
166 | 			run_command5 .= " -c:v libx264"
167 | 		if(encoder="x265")
168 | 			run_command5 .= " -c:v libx265"	
169 | 		If(encoder="Raw")
170 | 			run_command5 .= " -c:v rawvideo"	
171 | 
172 | 		if(c_space="YUV420")
173 | 		{
174 | 			run_command5 .= " -pix_fmt yuv420p"
175 | 		}
176 | 		else if(c_space="YUV422")
177 | 		{
178 | 			run_command5 .= " -pix_fmt yuv422p"
179 | 		}
180 | 		else if(c_space="YUV444")
181 | 		{
182 | 			run_command5 .= " -pix_fmt yuv444p"
183 | 		}
184 | 		
185 | 		if(enc_profile<>"Auto")
186 | 		{
187 | 			run_command5 .= " -profile:v " enc_profile
188 | 		}
189 | 		
190 | 		if(c_bit="10 Bit") && (c_space<>"Auto")
191 | 		{
192 | 			run_command5 .= "10le"
193 | 		}
194 | 		
195 | 		if(cqp_s1=1)
196 | 		{
197 | 			run_command5 .= " -qp " cqp_value1
198 | 		}
199 | 		else if(crf_s1=1)
200 | 		{
201 | 			run_command5 .= " -crf " crf_value1
202 | 		}
203 | 		
204 | 		run_command5 .= " -preset " enc_preset
205 | 	}
206 | 	
207 | 	if(enable_audio=1 and output_pic<>1)
208 | 	{
209 | 		if(enable_add_audio=1 and image_input<>1)
210 | 		{
211 | 			run_command5 .= " -map 0:v:0 -map 1:a:0"
212 | 		}
213 | 		
214 | 		if(enable_a_aac=1)
215 | 			run_command5 .= " -codec:a aac -b:a 192k -cutoff 22050 -async 1"
216 | 		else if(enable_a_ogg=1)
217 | 			run_command5 .= " -codec:a libvorbis -aq 10 -async 1"
218 | 		else if(enable_a_mp3=1)
219 | 			run_command5 .= " -codec:a libmp3lame -b:a 320k -async 1"
220 | 		else if(enable_a_pcm=1)
221 | 			run_command5 .= " -codec:a pcm_s16le -async 1"
222 | 		else if(enable_a_copy=1)
223 | 			run_command5 .= " -codec:a copy"
224 | 	}
225 | 	else
226 | 	{
227 | 		run_command5 .= " -an"
228 | 	}
229 | 	
230 | 	
231 | 	if(enable_ss=1)
232 | 	{
233 | 		run_command5 .= " -ss " time_ss
234 | 	}
235 | 	if(enable_to=1)
236 | 	{
237 | 		run_command5 .= " -to " time_to
238 | 	}
239 | 	
240 | 
241 | 	if(no_output<>1)
242 | 	{
243 | 		run_command6 .= " """ vp_out_path "\"
244 | 		
245 | 		if(output_pic=1)
246 | 		{
247 | 			run_command6 .= in_name "\`%06d" config_ext2 """"
248 | 
249 | 		}
250 | 		else if(output_vid=1)
251 | 		{
252 | 			out_name := in_name
253 | 			ifExist, %vp_out_path%\%in_name%%config_ext2%
254 | 			{
255 | 				out_name .= "_1" 
256 | 			}
257 | 			run_command6 .= out_name config_ext2 """"
258 | 		}
259 | 		else
260 | 		{
261 | 			run_command6 .= in_name
262 | 			if(enable_a_aac=1)
263 | 				run_command6 .= ".aac"
264 | 			else if(enable_a_ogg=1)
265 | 				run_command6 .= ".ogg"
266 | 			else if(enable_a_mp3=1)
267 | 				run_command6 .= ".mp3"
268 | 			else if(enable_a_pcm=1)
269 | 				run_command6 .= ".wav"
270 | 			else if(enable_a_copy=1)
271 | 				run_command6 .= config_ext2
272 | 			
273 | 			run_command6 .= """"
274 | 		}
275 | 	}
276 | 	else
277 | 	{
278 | 		run_command6 .= " -f null - & pause"
279 | 	}
280 | 	run_command .= run_command1 run_command2 run_command3 run_command4 run_command5 run_command6
281 | 	gosub,log_console
282 | 
283 | 	RunWait, %comspec% /c "%run_command%",,
284 | 	msgbox,0x2000, Media Convert, Finished!
285 | }
286 | Return


--------------------------------------------------------------------------------
/N4A-V2.ahk:
--------------------------------------------------------------------------------
  1 | #SingleInstance, OFF
  2 | #Include, lib\lib.ahk
  3 | SetWorkingDir %A_ScriptDir%
  4 | FileInstall, lib\lib.ahk, lib\lib.ahk, 1
  5 | FileInstall, lib\load_env.ahk, lib\load_env.ahk, 1
  6 | 
  7 | version := "0.12.2"
  8 | build := "20210115"
  9 | 
 10 | model_name1 := "anime_style_art"
 11 | model_name2 := "anime_style_art_rgb"
 12 | model_name3 := "cunet"
 13 | model_name4 := "photo"
 14 | model_name5 := "upconv_7_anime_style_art_rgb"
 15 | model_name6 := "upconv_7_photo"
 16 | model_name7 := "upresnet10"
 17 | 
 18 | config_ext2 := ".jpg"
 19 | config_ext3 := ".mp4"
 20 | config_ext4 := ".jpg"
 21 | fps := "23.976"
 22 | crf := 18
 23 | 
 24 | #Include, lib\load_env.ahk
 25 | 
 26 | Gui, Add, Tab3, x2 y0 w900 h570 vcurrent_tab ggui_update, Media|Test Mode|Waifu2X|Frame Interpolation|Console Log
 27 | Gui, Color, FFFFFF
 28 | 
 29 | 
 30 | #Include, lib\gtab_framei.ahk
 31 | #Include, lib\gtab_w2x.ahk
 32 | #Include, lib\gtab_media.ahk
 33 | #Include, lib\gtab_test.ahk
 34 | #Include, lib\gtab_log.ahk
 35 | 
 36 | Gui, Tab, 
 37 | Gui, Add, Text, x652 y539 w240 h20 , by pond_pop @ www.facebook.com/Net4Anime
 38 | 
 39 | #Include, lib\gsetting.ahk
 40 | 
 41 | ;==== GUI Window ====
 42 | Gui, Show, x413 y187 h560 w900, N4A-V2 - %version% %build%
 43 | Menu, Tray, Tip, Version : %version% `nBuild : %build%
 44 | Gosub, gui_update
 45 | Gosub, alt_guiupdate
 46 | Return
 47 | 
 48 | console_log:
 49 | {
 50 | 	LastEventInfo := LV_GetNext(0, "F")
 51 | 	LV_GetText(var1, LastEventInfo, 1)
 52 | 	
 53 | 	clipboard := var1
 54 | }
 55 | Return
 56 | 
 57 | gui2:
 58 | {
 59 | 	Gui, 2:destroy
 60 | 	Gui, 2:Add,Button, x2 y2 h20 w60 ggui2_r,Launch
 61 | 	Gui, 2:Add,Edit, x2 y22 h696 w596 Readonly vshow_script,DeinterlaceFilter(Experimental)`n
 62 | 	Gui, 2:Show, h720 w600, Filter Script
 63 | }
 64 | Return
 65 | 
 66 | gui2_r:
 67 | {
 68 | 	If(vp_in_path = "")
 69 | 	{
 70 | 		MsgBox, No Input File
 71 | 		Return
 72 | 	}
 73 | 
 74 | 	If(vp_out_path = "")
 75 | 	{
 76 | 		vp_out_path := A_WorkingDir
 77 | 	}
 78 | 	else if !FileExist(vp_out_path)
 79 | 	{
 80 | 		FileCreateDir, %vp_out_path%
 81 | 	}
 82 | 
 83 | 	out_filename = %vp_out_path%\%in_name_no_ext%_Deinterlace.%load_ext%
 84 | 	if FileExist(out_filename)
 85 | 	{
 86 | 		MsgBox, Output File Exist
 87 | 		Run,"%vp_out_path%"
 88 | 		Return
 89 | 	}
 90 | 	
 91 | 	s_script := load_script0()
 92 | 	;GuiControl,,show_script,% s_script
 93 | 	FileDelete, %A_WorkingDir%\filter\temp\vs_script.vpy
 94 | 	FileDelete, %A_WorkingDir%\filter\temp\run_script.bat
 95 | 	Sleep, 1000
 96 | 	FileAppend , %s_script%, %A_WorkingDir%\filter\temp\vs_script.vpy, UTF-8
 97 | 	
 98 | 	FileAppend,cd "%A_WorkingDir%\ffmpeg" `nvspipe --y4m "%A_WorkingDir%\filter\temp\vs_script.vpy" - | ffmpeg -i pipe: -i "%vp_in_path%" -c:v libx264 -qp 0 -preset ultrafast -map 0:v:0 -map 1:a:0 -codec:a copy "%out_filename%", %A_WorkingDir%\filter\temp\run_script.bat
 99 | 	RunWait %ComSpec% /c ""%A_WorkingDir%\filter\temp\run_script.bat"
100 | 	Run,"%vp_out_path%"
101 | 	GuiControl,,show_script,Finished~!
102 | }
103 | Return
104 | 
105 | 2GuiClose:
106 | {
107 | 	Gui, 2:destroy
108 | }
109 | Return
110 | 
111 | 3GuiClose:
112 | {
113 | 	Process, Close, ffmpeg_p1.exe
114 | 	Sleep, 50
115 | 	while Process, Exist , ffmpeg_p1.exe
116 | 	{
117 | 		Process, Close, ffmpeg_p1.exe
118 | 	}
119 | 	stop := 1
120 | 	Gui, 3:destroy
121 | }
122 | Return
123 | 
124 | 
125 | load_script1()
126 | {
127 | 	Global filter_path
128 | 	Global vp_in_path
129 | 	filter_path := A_WorkingDir "/filter"
130 | 	filter_path := RegExReplace(filter_path, "\\", "/")
131 | 	source_path := StrReplace(vp_in_path, "\", "/")
132 | 
133 | 	Global s_script
134 | 	s_script := ""
135 | 	s_script .= "import os" "`n"
136 | 	s_script .= "import sys" "`n"
137 | 	s_script .= "import ctypes" "`n"
138 | 	s_script .= "Dllref = ctypes.windll.LoadLibrary(""" filter_path "/vsfilters/Support/libfftw3f-3.dll"")" "`n"
139 | 	s_script .= "Dllref = ctypes.windll.LoadLibrary(""" filter_path "/vsfilters/ResizeFilter/Waifu2x/w2xc.dll"")" "`n"
140 | 	
141 | 	s_script .= "import vapoursynth as vs" "`n"
142 | 	s_script .= "core = vs.get_core()" "`n"
143 | 
144 | 	s_script .= "scriptPath = '" filter_path "/vsscripts'" "`n"
145 | 	s_script .= "sys.path.append(os.path.abspath(scriptPath))" "`n"
146 | 	
147 | 	import_plugin("/vsfilters/DenoiseFilter/TTempSmooth/TTempSmooth.dll")
148 | 	import_plugin("/vsfilters/ResizeFilter/Waifu2x/Waifu2x-w2xc.dll")
149 | 	import_plugin("/vsfilters/GrainFilter/AddGrain/AddGrain.dll")
150 | 	import_plugin("/vsfilters/DenoiseFilter/FFT3DFilter/fft3dfilter.dll")
151 | 	import_plugin("/vsfilters/DeinterlaceFilter/TDeintMod/TDeintMod.dll")
152 | 	import_plugin("/vsfilters/DenoiseFilter/DFTTest/DFTTest.dll")
153 | 	import_plugin("/vsfilters/Support/libmvtools.dll")
154 | 	import_plugin("/vsfilters/Support/temporalsoften.dll")
155 | 	import_plugin("/vsfilters/Support/scenechange.dll")
156 | 	import_plugin("/vsfilters/Support/vs_sangnommod.dll")
157 | 	import_plugin("/vsfilters/Support/EEDI3.dll")
158 | 	import_plugin("/vsfilters/Support/EEDI2.dll")
159 | 	import_plugin("/vsfilters/ResizeFilter/nnedi3/NNEDI3CL.dll")
160 | 	import_plugin("/vsfilters/ResizeFilter/nnedi3/vsznedi3.dll")
161 | 	import_plugin("/vsfilters/DeinterlaceFilter/Yadifmod/Yadifmod.dll")
162 | 	import_plugin("/vsfilters/Support/fmtconv.dll")
163 | 	import_plugin("/vsfilters/SourceFilter/LSmashSource/vslsmashsource.dll")
164 | 	import_plugin("/vsfilters/SharpenFilter/AWarpSharp2/libawarpsharp2.dll")
165 | 	import_plugin("/vsfilters/DebandFilter/Flash3kDeband/flash3kyuu_deband.dll")
166 | 	import_plugin("/vsfilters/DenoiseFilter/KNLMeansCL/KNLMeansCL.dll")
167 | 	;import_plugin("/vsfilters/SourceFilter/Imagemagick/libimwri.dll")
168 | 	Import_scripts("havsfunc")
169 | 	Import_scripts("mvsfunc")
170 | 	Import_scripts("muvsfunc")
171 | 	Import_scripts("G41Fun")
172 | 	Import_scripts("edi_rpow2")
173 | 	Import_scripts("hysteria")
174 | 	Import_scripts("functools")
175 | 	Import_scripts("kagefunc as vsutil")
176 | 	
177 | 	
178 | 	Return s_script
179 | }
180 | 
181 | 
182 | import_plugin(plugin)
183 | {
184 | 	global s_script, filter_path
185 | 	s_script .= "core.std.LoadPlugin(path=""" filter_path plugin """)" "`n"
186 | }
187 | 
188 | Import_scripts(script)
189 | {
190 | 	global s_script
191 | 	s_script .= "import " script "`n"
192 | }
193 | 
194 | load_script0()
195 | {
196 | 	global media_load
197 | 	global s_path
198 | 	global load_fullpath
199 | 	global image_input
200 | 	global load_image_count
201 | 	global load_ext
202 | 	global convert_fps_num
203 | 	global convert_fps_den
204 | 	global convert_enable
205 | 	
206 | 	Global vp_in_path
207 | 
208 | 	s_path := StrReplace(vp_in_path, "\","/")
209 | 
210 | 	if(media_load=1)
211 | 	{
212 | 
213 | 		s_script := load_script1()
214 | 		
215 | 		s_script .= "clip = core.lsmas.LWLibavSource(source=""" s_path """, cache=0)" "`n"
216 | 
217 | 		MsgBox, 4, , Interlace is NOT "Store" Type? (default: YES)
218 | 		IfMsgBox No
219 | 		{
220 | 			MsgBox, 4, , Top Field First? (default: YES)
221 | 				IfMsgBox Yes
222 | 				{
223 | 					s_script .= "clip = core.vivtc.VFM(clip=clip, order=0)" "`n"
224 | 				}
225 | 				else
226 | 				{
227 | 					s_script .= "clip = core.vivtc.VFM(clip=clip, order=1)" "`n"
228 | 				}
229 | 		}
230 | 		IfMsgBox Yes
231 | 		{
232 | 			s_script .= "clip = core.vivtc.VFM(clip=clip, order=0)" "`n"
233 | 			s_script .= "clip = havsfunc.QTGMC(Input=clip,Preset='Placebo', TFF=False, opencl=True, device=0)" "`n"
234 | 			s_script .= "clip = clip[::2]" "`n"
235 | 		}
236 | 
237 | 		s_script .= "clip = core.resize.Bicubic(clip=clip, format=vs.YUV444P8, range_s=""limited"")" "`n"
238 | 		s_script .= "clip.set_output()"
239 | 		Return s_script
240 | 	}
241 | 	
242 | }
243 | 
244 | #Include, lib\gupdate.ahk
245 | #Include, lib\gdrop_file.ahk
246 | #Include, lib\media_load.ahk
247 | #Include, lib\decode_test.ahk
248 | #Include, lib\test_check.ahk
249 | #Include, lib\r_ffmpeg.ahk
250 | #Include, lib\r_w2x.ahk
251 | #Include, lib\r_framei.ahk
252 | #Include, lib\save_setting.ahk
253 | 
254 | 
255 | in_folder:
256 | {
257 | 	Thread, NoTimers
258 | 	FileSelectFolder, in_path,, 3
259 | 	Thread, NoTimers, false
260 | 	if(in_path<>"")
261 | 		GuiControl,,in_path,%in_path%
262 | }
263 | Return
264 | 
265 | out_folder:
266 | {
267 | 	Thread, NoTimers
268 | 	FileSelectFolder, out_path,, 3
269 | 	Thread, NoTimers, false
270 | 	if(out_path<>"")
271 | 		GuiControl,,out_path,%out_path%
272 | }
273 | Return
274 | 
275 | in_folderv:
276 | {
277 | 	Thread, NoTimers
278 | 	FileSelectFolder, in_path,, 3
279 | 	Thread, NoTimers, false
280 | 	if(in_path<>"")
281 | 		GuiControl,,in_path,%in_path%
282 | }
283 | Return
284 | 
285 | out_folderv:
286 | {
287 | 	Thread, NoTimers
288 | 	FileSelectFolder, out_path,, 3
289 | 	Thread, NoTimers, false
290 | 	if(out_path<>"")
291 | 		GuiControl,,out_path,%out_path%
292 | }
293 | Return
294 | 
295 | 
296 | in_folderi:
297 | {
298 | 	Thread, NoTimers
299 | 	FileSelectFolder, in_path1,, 3
300 | 	Thread, NoTimers, false
301 | 	if(in_path1<>"")
302 | 		GuiControl,,in_path1,%in_path1%
303 | }
304 | Return
305 | 
306 | out_folderi:
307 | {
308 | 	Thread, NoTimers
309 | 	FileSelectFolder, out_path1,, 3
310 | 	Thread, NoTimers, false
311 | 	if(out_path1<>"")
312 | 		GuiControl,,out_path1,%out_path1%
313 | }
314 | Return
315 | 
316 | 
317 | RemoveToolTip:
318 | ToolTip
319 | return
320 | 
321 | log_console:
322 | {
323 | 	while(LV_GetCount() >= log_limit)
324 | 	{
325 | 		LV_Delete(1)
326 | 	}
327 | 	LV_Add("", run_command)
328 | }
329 | Return
330 | 
331 | 
332 | run_stop:
333 | {
334 | 	stop := 1
335 | 	GuiControl,Enabled,b_startv
336 | 	GuiControl,Enabled,b_startv1
337 | 	GuiControl,Disable,b_stopv
338 | 	GuiControl,Disable,b_stopv1
339 | }
340 | return
341 | 
342 | 
343 | vid_to_pic_in_folder:
344 | {
345 | 	Thread, NoTimers
346 | 	FileSelectFile, vp_in_path
347 | 	Thread, NoTimers, false
348 | 	if(vp_in_path<>"")
349 | 	{
350 | 		GuiControl,,vp_in_path,%vp_in_path%
351 | 		goto,media_load
352 | 	}
353 | }
354 | Return
355 | 
356 | vid_to_pic_out_folder:
357 | {
358 | 	Thread, NoTimers
359 | 	FileSelectFolder, vp_out_path,, 3
360 | 	Thread, NoTimers, false
361 | 	if(vp_out_path<>"")
362 | 		GuiControl,,vp_out_path,%vp_out_path%
363 | }
364 | Return
365 | 
366 | add_audio_file:
367 | {
368 | 	Thread, NoTimers
369 | 	FileSelectFile, add_audio_path
370 | 	Thread, NoTimers, false
371 | 	if(add_audio_path<>"")
372 | 		GuiControl,,add_audio_path,%add_audio_path%
373 | }
374 | Return
375 | 
376 | 
377 | guiclose:
378 | exit:
379 | {
380 | 	If (stop = 0)
381 | 	{
382 | 		msgbox, 0x13, Exit, WOW!! Do you want to "Close" now?
383 | 		IfMsgBox Yes
384 | 		{
385 | 			Process, Close, waifu2x-caffe-cui-p1.exe
386 | 			Process, Close, waifu2x-caffe-cui-p2.exe
387 | 			Process, Close, waifu2x-caffe-cui-p3.exe
388 | 			Process, Close, waifu2x-caffe-cui-p4.exe
389 | 			Process, Close, waifu2x-caffe-cui-p5.exe
390 | 			Process, Close, waifu2x-caffe-cui-p6.exe
391 | 			Process, Close, waifu2x-caffe-cui-p7.exe
392 | 			Process, Close, waifu2x-caffe-cui-p8.exe
393 | 			Process, Close, waifu2x-ncnn-vulkan-p1.exe
394 | 			Process, Close, waifu2x-ncnn-vulkan-p2.exe
395 | 			Process, Close, waifu2x-ncnn-vulkan-p3.exe
396 | 			Process, Close, waifu2x-ncnn-vulkan-p4.exe
397 | 			Process, Close, waifu2x-ncnn-vulkan-p5.exe
398 | 			Process, Close, waifu2x-ncnn-vulkan-p6.exe
399 | 			Process, Close, waifu2x-ncnn-vulkan-p7.exe
400 | 			Process, Close, waifu2x-ncnn-vulkan-p8.exe
401 | 			
402 | 			exitapp
403 | 		}
404 | 		else IfMsgBox No
405 | 		{
406 | 			
407 | 		}
408 | 	}
409 | 	else
410 | 	{
411 | 		ExitApp
412 | 	}
413 | }
414 | return
415 | 
416 | 
417 | 
418 | 


--------------------------------------------------------------------------------
/lib/r_w2x.ahk:
--------------------------------------------------------------------------------
  1 | run_w2x:
  2 | {
  3 | 	i:=1
  4 | 	batch_count0 := 0
  5 | 	process_limit := 8
  6 | 	while(i<=8)
  7 | 	{
  8 | 		v_run%i% := 0
  9 | 		batch_count%i% := 0
 10 | 		copy_buffer%i% := 0
 11 | 		buffer_dir%i% := ""
 12 | 
 13 | 		s_process_countv%i% := 0
 14 | 		GuiControl,,s_file_processv%i%,-
 15 | 		GuiControl,,s_process_countv%i%,-
 16 | 		i++
 17 | 	}
 18 | 	stop := 0
 19 | 	f_count := 0
 20 | 	p_count := 0
 21 | 	p_cycle := 0
 22 | 	
 23 | 	next_loop := 0
 24 | 	gpu_select := 0
 25 | 	test_count := 0
 26 | 	last_files_svkiping := 0
 27 | 	in_len := StrLen(in_path)
 28 | 	GuiControl,,s_sv,Starting..
 29 | 	GuiControl,,f_totalv,Scaning..
 30 | 	GuiControl,,f_ppv,0
 31 | 	GuiControl,,tspeed,-
 32 | 	GuiControl,Disable,b_start
 33 | 	GuiControl,Disable,b_startv
 34 | 	GuiControl,Disable,b_start1
 35 | 	GuiControl,Enabled,b_stop
 36 | 	GuiControl,Enabled,b_stopv
 37 | 	GuiControl,Enabled,b_stop1
 38 | 	
 39 | 	GuiControl,Disable,scale
 40 | 	
 41 | 	if (w2x_mode = 1)
 42 | 	{
 43 | 		process_path := "waifu2x-caffe-cui-p"
 44 | 	}
 45 | 	else
 46 | 	{
 47 | 		process_path := "waifu2x-ncnn-vulkan-p"
 48 | 	}
 49 | 
 50 | 	FileRemoveDir, %in_path%\temp, 1
 51 | 
 52 | 	
 53 | 	Loop, Files, %in_path%\*.*, F
 54 | 	{
 55 | 		if A_LoopFileExt in png,jpg,jpeg,tif,tiff,bmp,tga
 56 | 		{
 57 | 			f_count += 1
 58 | 		}
 59 | 	}
 60 | 
 61 | 	
 62 | 	GuiControl,,f_totalv,%f_count%
 63 | 	
 64 | 	IfNotExist, %in_path%\temp
 65 | 	{
 66 | 		FileCreateDir, %in_path%\temp
 67 | 		i := 1
 68 | 		while(i<=8)
 69 | 		{
 70 | 			FileCreateDir, %in_path%\temp\%i%
 71 | 			i++
 72 | 		}
 73 | 	}
 74 | 	
 75 | 	IfNotExist, %out_path%
 76 | 	{
 77 | 		FileCreateDir, %out_path%
 78 | 	}
 79 | 	
 80 | 	StartTime := A_TickCount
 81 | 	
 82 | 	Loop, Files, %in_path%\*.*, F
 83 | 	{
 84 | 		if A_LoopFileExt in png,jpg
 85 | 		{
 86 | 			if(stop = 1)
 87 | 			{
 88 | 				break
 89 | 			}
 90 | 			
 91 | 			if A_LoopFileExt in webp
 92 | 			{
 93 | 				StringTrimRight, out_filename, A_LoopFileName, 5
 94 | 			}
 95 | 			else
 96 | 			{
 97 | 				StringTrimRight, out_filename, A_LoopFileName, 4
 98 | 			}
 99 | 			
100 | 
101 | 			p_count += 1
102 | 			
103 | 			out_file_config := """" out_path "\" out_filename config_ext """"
104 | 			if skip_exist = 1
105 | 			{
106 | 				IfExist, %out_path%\%out_filename%%config_ext%.png
107 | 				{
108 | 					last_files_svkiping += 1
109 | 					if(last_files_svkiping = 1)
110 | 					{
111 | 						GuiControl,,f_ppv,Skipping..
112 | 					}
113 | 					Continue
114 | 				}
115 | 				else IfExist, %out_path%\%out_filename%%config_ext%
116 | 				{
117 | 					last_files_svkiping += 1
118 | 					if(last_files_svkiping = 1)
119 | 					{
120 | 						GuiControl,,f_ppv,Skipping..
121 | 					}
122 | 					Continue
123 | 				}
124 | 				else IfExist, %out_path%\%out_filename%.jpg.png
125 | 				{
126 | 					last_files_svkiping += 1
127 | 					if(last_files_svkiping = 1)
128 | 					{
129 | 						GuiControl,,f_ppv,Skipping..
130 | 					}
131 | 					Continue
132 | 				}
133 | 				else
134 | 				{
135 | 					last_files_svkiping := 0
136 | 					GuiControl,,f_ppv,%p_count%
137 | 				}
138 | 			}
139 | 			else
140 | 			{
141 | 				GuiControl,,f_ppv,%p_count%
142 | 			}
143 | 			
144 | 			
145 | 			buffer:
146 | 
147 | 			fill_buuffer := 0
148 | 			while(fill_buuffer<=7)
149 | 			{
150 | 				fill_buuffer++
151 | 
152 | 				if(enable_process%fill_buuffer% = 0)
153 | 				{
154 | 					continue
155 | 				}
156 | 				
157 | 				if(batch_count%fill_buuffer% = 0)
158 | 					FileCreateDir, %in_path%\temp\%fill_buuffer%_buffer
159 | 				
160 | 				if(batch_count%fill_buuffer% < batch_size)
161 | 				{
162 | 					FileCopy, %A_LoopFilePath%, %in_path%\temp\%fill_buuffer%_buffer
163 | 					batch_count%fill_buuffer%++
164 | 					test_count++
165 | 					if(p_count<f_count)
166 | 					{
167 | 						next_loop := 1
168 | 						break
169 | 					}
170 | 				}
171 | 				else
172 | 				{
173 | 					next_loop := 0
174 | 					continue
175 | 				}
176 | 			}
177 | 			
178 | 			if(A_index = f_count)
179 | 			{
180 | 				f_count := 0
181 | 				Loop, Files, %in_path%\*.*, F
182 | 				{
183 | 					if A_LoopFileExt in png,jpg,jpeg,tif,tiff,bmp,tga
184 | 					{
185 | 						f_count += 1
186 | 					}
187 | 				}
188 | 				
189 | 
190 | 				fill_buuffer := 0
191 | 				while(fill_buuffer<8)
192 | 				{
193 | 					fill_buuffer++
194 | 					if(enable_process%fill_buuffer% = 0)
195 | 					{
196 | 						continue
197 | 					}
198 | 					FileCopy, %A_LoopFilePath%, %in_path%\temp\%fill_buuffer%_buffer
199 | 				}
200 | 				
201 | 				if(A_index = f_count)
202 | 				{
203 | 					break
204 | 				}
205 | 				else
206 | 				{
207 | 					GuiControl,,f_totalv,%f_count%
208 | 				}
209 | 			}
210 | 			
211 | 			if(next_loop<>1)
212 | 			{
213 | 				Loop
214 | 				{
215 | 					p_cycle += 1
216 | 					If p_cycle > %process_limit%
217 | 					{
218 | 						p_cycle := 1
219 | 					}
220 | 					if(stop = 1)
221 | 					{
222 | 						break
223 | 					}
224 | 					if(enable_process%p_cycle% = 0)
225 | 					{
226 | 						continue
227 | 					}
228 | 					process_name := process_path p_cycle ".exe"
229 | 					Process, Exist, %process_name%
230 | 					If (!ErrorLevel= 1)
231 | 					{
232 | 						FileRemoveDir, %in_path%\temp\%p_cycle%, 1
233 | 						FileMoveDir, %in_path%\temp\%p_cycle%_buffer, %in_path%\temp\%p_cycle%, R
234 | 						batch_count%p_cycle% := 0
235 | 						
236 | 						attribute2 := " --model_dir """ A_WorkingDir "\w2x_cuda\models\" modelv """"
237 | 						
238 | 						if (w2x_mode = 1)
239 | 						{
240 | 							If (by_size = 1)
241 | 							{
242 | 								run_command := """waifu2x-caffe-cui-p" p_cycle ".exe"" --gpu " config_gpu%p_cycle% " -p cudnn " "-w " sizew " -h " sizeh " " attribute2 " -n " noise_level " -m " "noise_scale -e " config_ext " -i """ in_path "\temp\" p_cycle """ -o """ out_path """"
243 | 							}
244 | 							else If (by_scale = 1)
245 | 							{
246 | 								run_command := """waifu2x-caffe-cui-p" p_cycle ".exe"" --gpu " config_gpu%p_cycle% " -p cudnn " "-s " scale " " attribute2 " -n " noise_level " -m " "noise_scale -e " config_ext " -i """ in_path "\temp\" p_cycle """ -o """ out_path """"
247 | 							}
248 | 							
249 | 							run, %comspec% /c cd "%A_WorkingDir%\w2x_cuda" & %run_command%,,%win_mode%
250 | 						}
251 | 						else
252 | 						{						
253 | 							run_command := """waifu2x-ncnn-vulkan-p" p_cycle ".exe"" -i """ in_path "\temp\" p_cycle """ -o """ out_path """ -n " noise_level " -s " scale " -t " config_t_size " -m """ A_WorkingDir "\w2x_vulkan\" modelv """ -g " config_gpu%p_cycle% " -j " J1 ":" J2 ":" J3 " -f " OutExtension
254 | 							run, %comspec% /c cd "%A_WorkingDir%\w2x_vulkan" & %run_command%,,%win_mode%
255 | 						}
256 | 						
257 | 						
258 | 						if(log_enable = 1)
259 | 						{
260 | 							gosub,log_console
261 | 						}
262 | 						
263 | 						;Msgbox,% A_WorkingDir "\w2x_cuda`r`r" run_command
264 | 						
265 | 						GuiControl,,s_file_processv%p_cycle%,%A_LoopFilePath%
266 | 						s_process_countv%p_cycle% += 1
267 | 						dv := s_process_countv%p_cycle%
268 | 						GuiControl,,s_process_countv%p_cycle%,%dv%
269 | 						per := (p_count/f_count)*100
270 | 						GuiControl,,p_pro,%per%
271 | 						per := Round(per,2)
272 | 						GuiControl,,s_percenv,%per% `%
273 | 
274 | 						;wait_process
275 | 						Process, Wait, %process_name% , 10
276 | 						If (ErrorLevel=0)
277 | 						{
278 | 							Msgbox, Error Process Not Found.
279 | 							Return
280 | 						}
281 | 						
282 | 						goto,buffer
283 | 					}
284 | 					
285 | 					If (p_cycle > %process_limit%)
286 | 					{
287 | 						Sleep, %sleep_time%
288 | 					}
289 | 				}
290 | 			}
291 | 		}
292 | 	}
293 | 	
294 | 	Loop
295 | 	{
296 | 		p_cycle += 1
297 | 		If p_cycle > %process_limit%
298 | 		{
299 | 			p_cycle := 1
300 | 		}
301 | 		if(stop = 1)
302 | 		{
303 | 			break
304 | 		}
305 | 		if(enable_process%p_cycle% = 0)
306 | 		{
307 | 			continue
308 | 		}
309 | 		
310 | 		process_name := process_path p_cycle ".exe"
311 | 		Process, Exist, %process_name%
312 | 		If (!ErrorLevel= 1)
313 | 		{						
314 | 			FileRemoveDir, %in_path%\temp\%p_cycle%, 1
315 | 			FileMoveDir, %in_path%\temp\%p_cycle%_buffer, %in_path%\temp\%p_cycle%, R
316 | 			batch_count%p_cycle% := 0
317 | 			
318 | 			attribute2 := " --model_dir """ A_WorkingDir "\w2x_cuda\models\" modelv """"
319 | 			
320 | 			if (w2x_mode = 1)
321 | 			{
322 | 				If (by_size = 1)
323 | 				{
324 | 					run_command := """waifu2x-caffe-cui-p" p_cycle ".exe"" --gpu " config_gpu%p_cycle% " -p cudnn " "-w " sizew " -h " sizeh " " attribute2 " -n " noise_level " -m " "noise_scale -e " config_ext " -i """ in_path "\temp\" p_cycle """ -o """ out_path """"
325 | 				}
326 | 				else If (by_scale = 1)
327 | 				{
328 | 					run_command := """waifu2x-caffe-cui-p" p_cycle ".exe"" --gpu " config_gpu%p_cycle% " -p cudnn " "-s " scale " " attribute2 " -n " noise_level " -m " "noise_scale -e " config_ext " -i """ in_path "\temp\" p_cycle """ -o """ out_path """"
329 | 				}
330 | 				
331 | 				run, %comspec% /c cd "%A_WorkingDir%\w2x_cuda" & %run_command%,,%win_mode%
332 | 			}
333 | 			else
334 | 			{						
335 | 				run_command := """waifu2x-ncnn-vulkan-p" p_cycle ".exe"" -i """ in_path "\temp\" p_cycle """ -o """ out_path """ -n " noise_level " -s " scale " -t " config_t_size " -m """ A_WorkingDir "\w2x_vulkan\" modelv """ -g " config_gpu%p_cycle% " -j " J1 ":" J2 ":" J3 " -f " OutExtension
336 | 				run, %comspec% /c cd "%A_WorkingDir%\w2x_vulkan" & %run_command%,,%win_mode%
337 | 			}
338 | 		
339 | 			
340 | 			if(log_enable = 1)
341 | 			{
342 | 				gosub,log_console
343 | 			}
344 | 
345 | 
346 | 			sleep,200
347 | 
348 | 			a:=0
349 | 			loop, Files, %in_path%\temp\*.*,F R
350 | 			{
351 | 				a++
352 | 			}
353 | 			
354 | 			if(a=0)
355 | 			{
356 | 				Break
357 | 			}
358 | 			else
359 | 			{
360 | 				continue
361 | 			}
362 | 		}
363 | 		
364 | 		If (p_cycle > %process_limit%)
365 | 		{
366 | 			Sleep, %sleep_time%
367 | 		}
368 | 	}
369 | 
370 | 
371 | 	
372 | 	t_sec := (A_TickCount-StartTime)/1000
373 | 	speed := Round(test_count/t_sec,3)
374 | 	GuiControl,,tspeed,%speed%
375 | 	GuiControl,,s_percenv,100 `%
376 | 
377 | 	fix_name := 1
378 | 	If(fix_name=1)
379 | 	{
380 | 		Gui, 1:Show,hide
381 | 		Gui, 5:Add, Progress, y9 x7 w640 r6 +c777777, 100
382 | 		Gui, 5:Add, Text, y12 x10 w640 r6 vcurrent_fn +BackgroundTrans +ceeeeee, File Name : ...
383 | 		Gui, 5:Add, Progress, y92 x7 w640 r1 border +c00dd00 vtest_progress, 0
384 | 		Gui, 5:Add, Text, y92 x7 w640 +BackgroundTrans center r1 vtest_per,% 0.00 " %"
385 | 		Gui, 5:Color, bbbbbb
386 | 		Gui, 5:Default
387 | 		Gui, 5:Show, w654,Renaming..
388 | 		
389 | 		StartTime := A_TickCount
390 | 
391 | 		
392 | 		Loop, Files, %out_path%\*.png.png , F
393 | 		{
394 | 			e_time := (A_TickCount-StartTime)
395 | 			If(e_time>500)
396 | 			{
397 | 				c_fn := A_LoopFileName
398 | 				StartTime := A_TickCount
399 | 				GuiControl,, current_fn,% "File Name : " A_LoopFileName
400 | 				progress_percent := (A_Index/f_count)*100
401 | 				progress_percent2 := Round(progress_percent,2)
402 | 				GuiControl,, test_progress, %progress_percent%
403 | 				GuiControl,, test_per, %progress_percent2% `%
404 | 			}
405 | 			loop_ext := SubStr(A_LoopFileName, -7)
406 | 			StringTrimLeft, loop_ext, loop_ext, 4
407 | 			StringTrimRight, loop_fpath, A_LoopFilePath, 8
408 | 			FileMove, %A_LoopFilePath%, %loop_fpath%%loop_ext%
409 | 		}
410 | 		
411 | 		Loop, Files, %out_path%\*.jpg.png , F
412 | 		{
413 | 			e_time := (A_TickCount-StartTime)
414 | 			If(e_time>500)
415 | 			{
416 | 				c_fn := A_LoopFileName
417 | 				StartTime := A_TickCount
418 | 				GuiControl,, current_fn,% "File Name : " A_LoopFileName
419 | 				progress_percent := (A_Index/f_count)*100
420 | 				progress_percent2 := Round(progress_percent,2)
421 | 				GuiControl,, test_progress, %progress_percent%
422 | 				GuiControl,, test_per, %progress_percent2% `%
423 | 			}
424 | 			loop_ext := SubStr(A_LoopFileName, -7)
425 | 			StringTrimLeft, loop_ext, loop_ext, 4
426 | 			StringTrimRight, loop_fpath, A_LoopFilePath, 8
427 | 			FileMove, %A_LoopFilePath%, %loop_fpath%%loop_ext%
428 | 		}
429 | 
430 | 		GuiControl,, test_progress, 100
431 | 		GuiControl,, test_per, 100.00 `%
432 | 		
433 | 		Gui, 1:Default
434 | 		Gui, 5:Destroy
435 | 		Gui, 1:Show
436 | 	}
437 | 	
438 | 	FileRemoveDir, %in_path%\temp, 1
439 | 	GuiControl,,f_ppv,%p_count%
440 | 	GuiControl,Enabled,b_start
441 | 	GuiControl,Enabled,b_startv
442 | 	GuiControl,Enabled,b_startv1
443 | 	GuiControl,Enabled,scale
444 | 	GuiControl,Disable,b_stop
445 | 	GuiControl,Disable,b_stopv
446 | 	GuiControl,Disable,b_stopv1
447 | 	
448 | 	if(stop = 1)
449 | 	{
450 | 		GuiControl,,s_sv,Stopped
451 | 	}
452 | 	else
453 | 	{
454 | 		GuiControl,,s_sv,Finished
455 | 		per := (p_count/f_count)*100
456 | 		GuiControl,,p_pro,%per%
457 | 	}
458 | 	stop := 1
459 | 	goto, gui_update
460 | }
461 | return


--------------------------------------------------------------------------------
/lib/lib.ahk:
--------------------------------------------------------------------------------
   1 | ; Gdip standard library v1.45 by tic (Tariq Porter) 07/09/11
   2 | ; Modifed by Rseding91 using fincs 64 bit compatible Gdip library 5/1/2013
   3 | ; Supports: Basic, _L ANSi, _L Unicode x86 and _L Unicode x64
   4 | ;
   5 | ; Updated 2/20/2014 - fixed Gdip_CreateRegion() and Gdip_GetClipRegion() on AHK Unicode x86
   6 | ; Updated 5/13/2013 - fixed Gdip_SetBitmapToClipboard() on AHK Unicode x64
   7 | ;
   8 | ;#####################################################################################
   9 | ;#####################################################################################
  10 | ; STATUS ENUMERATION
  11 | ; Return values for functions specified to have status enumerated return type
  12 | ;#####################################################################################
  13 | ;
  14 | ; Ok =						= 0
  15 | ; GenericError				= 1
  16 | ; InvalidParameter			= 2
  17 | ; OutOfMemory				= 3
  18 | ; ObjectBusy				= 4
  19 | ; InsufficientBuffer		= 5
  20 | ; NotImplemented			= 6
  21 | ; Win32Error				= 7
  22 | ; WrongState				= 8
  23 | ; Aborted					= 9
  24 | ; FileNotFound				= 10
  25 | ; ValueOverflow				= 11
  26 | ; AccessDenied				= 12
  27 | ; UnknownImageFormat		= 13
  28 | ; FontFamilyNotFound		= 14
  29 | ; FontStyleNotFound			= 15
  30 | ; NotTrueTypeFont			= 16
  31 | ; UnsupportedGdiplusVersion	= 17
  32 | ; GdiplusNotInitialized		= 18
  33 | ; PropertyNotFound			= 19
  34 | ; PropertyNotSupported		= 20
  35 | ; ProfileNotFound			= 21
  36 | ;
  37 | ;#####################################################################################
  38 | ;#####################################################################################
  39 | ; FUNCTIONS
  40 | ;#####################################################################################
  41 | ;
  42 | ; UpdateLayeredWindow(hwnd, hdc, x="", y="", w="", h="", Alpha=255)
  43 | ; BitBlt(ddc, dx, dy, dw, dh, sdc, sx, sy, Raster="")
  44 | ; StretchBlt(dDC, dx, dy, dw, dh, sDC, sx, sy, sw, sh, Raster="")
  45 | ; SetImage(hwnd, hBitmap)
  46 | ; Gdip_BitmapFromScreen(Screen=0, Raster="")
  47 | ; CreateRectF(ByRef RectF, x, y, w, h)
  48 | ; CreateSizeF(ByRef SizeF, w, h)
  49 | ; CreateDIBSection
  50 | ;
  51 | ;#####################################################################################
  52 | 
  53 | ; Function:     			UpdateLayeredWindow
  54 | ; Description:  			Updates a layered window with the handle to the DC of a gdi bitmap
  55 | ; 
  56 | ; hwnd        				Handle of the layered window to update
  57 | ; hdc           			Handle to the DC of the GDI bitmap to update the window with
  58 | ; Layeredx      			x position to place the window
  59 | ; Layeredy      			y position to place the window
  60 | ; Layeredw      			Width of the window
  61 | ; Layeredh      			Height of the window
  62 | ; Alpha         			Default = 255 : The transparency (0-255) to set the window transparency
  63 | ;
  64 | ; return      				If the function succeeds, the return value is nonzero
  65 | ;
  66 | ; notes						If x or y omitted, then layered window will use its current coordinates
  67 | ;							If w or h omitted then current width and height will be used
  68 | 
  69 | UpdateLayeredWindow(hwnd, hdc, x="", y="", w="", h="", Alpha=255)
  70 | {
  71 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
  72 | 	
  73 | 	if ((x != "") && (y != ""))
  74 | 		VarSetCapacity(pt, 8), NumPut(x, pt, 0, "UInt"), NumPut(y, pt, 4, "UInt")
  75 | 
  76 | 	if (w = "") ||(h = "")
  77 | 		WinGetPos,,, w, h, ahk_id %hwnd%
  78 |    
  79 | 	return DllCall("UpdateLayeredWindow"
  80 | 					, Ptr, hwnd
  81 | 					, Ptr, 0
  82 | 					, Ptr, ((x = "") && (y = "")) ? 0 : &pt
  83 | 					, "int64*", w|h<<32
  84 | 					, Ptr, hdc
  85 | 					, "int64*", 0
  86 | 					, "uint", 0
  87 | 					, "UInt*", Alpha<<16|1<<24
  88 | 					, "uint", 2)
  89 | }
  90 | 
  91 | ;#####################################################################################
  92 | 
  93 | ; Function				BitBlt
  94 | ; Description			The BitBlt function performs a bit-block transfer of the color data corresponding to a rectangle 
  95 | ;						of pixels from the specified source device context into a destination device context.
  96 | ;
  97 | ; dDC					handle to destination DC
  98 | ; dx					x-coord of destination upper-left corner
  99 | ; dy					y-coord of destination upper-left corner
 100 | ; dw					width of the area to copy
 101 | ; dh					height of the area to copy
 102 | ; sDC					handle to source DC
 103 | ; sx					x-coordinate of source upper-left corner
 104 | ; sy					y-coordinate of source upper-left corner
 105 | ; Raster				raster operation code
 106 | ;
 107 | ; return				If the function succeeds, the return value is nonzero
 108 | ;
 109 | ; notes					If no raster operation is specified, then SRCCOPY is used, which copies the source directly to the destination rectangle
 110 | ;
 111 | ; BLACKNESS				= 0x00000042
 112 | ; NOTSRCERASE			= 0x001100A6
 113 | ; NOTSRCCOPY			= 0x00330008
 114 | ; SRCERASE				= 0x00440328
 115 | ; DSTINVERT				= 0x00550009
 116 | ; PATINVERT				= 0x005A0049
 117 | ; SRCINVERT				= 0x00660046
 118 | ; SRCAND				= 0x008800C6
 119 | ; MERGEPAINT			= 0x00BB0226
 120 | ; MERGECOPY				= 0x00C000CA
 121 | ; SRCCOPY				= 0x00CC0020
 122 | ; SRCPAINT				= 0x00EE0086
 123 | ; PATCOPY				= 0x00F00021
 124 | ; PATPAINT				= 0x00FB0A09
 125 | ; WHITENESS				= 0x00FF0062
 126 | ; CAPTUREBLT			= 0x40000000
 127 | ; NOMIRRORBITMAP		= 0x80000000
 128 | 
 129 | BitBlt(ddc, dx, dy, dw, dh, sdc, sx, sy, Raster="")
 130 | {
 131 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 132 | 	
 133 | 	return DllCall("gdi32\BitBlt"
 134 | 					, Ptr, dDC
 135 | 					, "int", dx
 136 | 					, "int", dy
 137 | 					, "int", dw
 138 | 					, "int", dh
 139 | 					, Ptr, sDC
 140 | 					, "int", sx
 141 | 					, "int", sy
 142 | 					, "uint", Raster ? Raster : 0x00CC0020)
 143 | }
 144 | 
 145 | ;#####################################################################################
 146 | 
 147 | ; Function				StretchBlt
 148 | ; Description			The StretchBlt function copies a bitmap from a source rectangle into a destination rectangle, 
 149 | ;						stretching or compressing the bitmap to fit the dimensions of the destination rectangle, if necessary.
 150 | ;						The system stretches or compresses the bitmap according to the stretching mode currently set in the destination device context.
 151 | ;
 152 | ; ddc					handle to destination DC
 153 | ; dx					x-coord of destination upper-left corner
 154 | ; dy					y-coord of destination upper-left corner
 155 | ; dw					width of destination rectangle
 156 | ; dh					height of destination rectangle
 157 | ; sdc					handle to source DC
 158 | ; sx					x-coordinate of source upper-left corner
 159 | ; sy					y-coordinate of source upper-left corner
 160 | ; sw					width of source rectangle
 161 | ; sh					height of source rectangle
 162 | ; Raster				raster operation code
 163 | ;
 164 | ; return				If the function succeeds, the return value is nonzero
 165 | ;
 166 | ; notes					If no raster operation is specified, then SRCCOPY is used. It uses the same raster operations as BitBlt		
 167 | 
 168 | StretchBlt(ddc, dx, dy, dw, dh, sdc, sx, sy, sw, sh, Raster="")
 169 | {
 170 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 171 | 	
 172 | 	return DllCall("gdi32\StretchBlt"
 173 | 					, Ptr, ddc
 174 | 					, "int", dx
 175 | 					, "int", dy
 176 | 					, "int", dw
 177 | 					, "int", dh
 178 | 					, Ptr, sdc
 179 | 					, "int", sx
 180 | 					, "int", sy
 181 | 					, "int", sw
 182 | 					, "int", sh
 183 | 					, "uint", Raster ? Raster : 0x00CC0020)
 184 | }
 185 | 
 186 | ;#####################################################################################
 187 | 
 188 | ; Function				SetStretchBltMode
 189 | ; Description			The SetStretchBltMode function sets the bitmap stretching mode in the specified device context
 190 | ;
 191 | ; hdc					handle to the DC
 192 | ; iStretchMode			The stretching mode, describing how the target will be stretched
 193 | ;
 194 | ; return				If the function succeeds, the return value is the previous stretching mode. If it fails it will return 0
 195 | ;
 196 | ; STRETCH_ANDSCANS 		= 0x01
 197 | ; STRETCH_ORSCANS 		= 0x02
 198 | ; STRETCH_DELETESCANS 	= 0x03
 199 | ; STRETCH_HALFTONE 		= 0x04
 200 | 
 201 | SetStretchBltMode(hdc, iStretchMode=4)
 202 | {
 203 | 	return DllCall("gdi32\SetStretchBltMode"
 204 | 					, A_PtrSize ? "UPtr" : "UInt", hdc
 205 | 					, "int", iStretchMode)
 206 | }
 207 | 
 208 | ;#####################################################################################
 209 | 
 210 | ; Function				SetImage
 211 | ; Description			Associates a new image with a static control
 212 | ;
 213 | ; hwnd					handle of the control to update
 214 | ; hBitmap				a gdi bitmap to associate the static control with
 215 | ;
 216 | ; return				If the function succeeds, the return value is nonzero
 217 | 
 218 | SetImage(hwnd, hBitmap)
 219 | {
 220 | 	SendMessage, 0x172, 0x0, hBitmap,, ahk_id %hwnd%
 221 | 	E := ErrorLevel
 222 | 	DeleteObject(E)
 223 | 	return E
 224 | }
 225 | 
 226 | ;#####################################################################################
 227 | 
 228 | ; Function				SetSysColorToControl
 229 | ; Description			Sets a solid colour to a control
 230 | ;
 231 | ; hwnd					handle of the control to update
 232 | ; SysColor				A system colour to set to the control
 233 | ;
 234 | ; return				If the function succeeds, the return value is zero
 235 | ;
 236 | ; notes					A control must have the 0xE style set to it so it is recognised as a bitmap
 237 | ;						By default SysColor=15 is used which is COLOR_3DFACE. This is the standard background for a control
 238 | ;
 239 | ; COLOR_3DDKSHADOW				= 21
 240 | ; COLOR_3DFACE					= 15
 241 | ; COLOR_3DHIGHLIGHT				= 20
 242 | ; COLOR_3DHILIGHT				= 20
 243 | ; COLOR_3DLIGHT					= 22
 244 | ; COLOR_3DSHADOW				= 16
 245 | ; COLOR_ACTIVEBORDER			= 10
 246 | ; COLOR_ACTIVECAPTION			= 2
 247 | ; COLOR_APPWORKSPACE			= 12
 248 | ; COLOR_BACKGROUND				= 1
 249 | ; COLOR_BTNFACE					= 15
 250 | ; COLOR_BTNHIGHLIGHT			= 20
 251 | ; COLOR_BTNHILIGHT				= 20
 252 | ; COLOR_BTNSHADOW				= 16
 253 | ; COLOR_BTNTEXT					= 18
 254 | ; COLOR_CAPTIONTEXT				= 9
 255 | ; COLOR_DESKTOP					= 1
 256 | ; COLOR_GRADIENTACTIVECAPTION	= 27
 257 | ; COLOR_GRADIENTINACTIVECAPTION	= 28
 258 | ; COLOR_GRAYTEXT				= 17
 259 | ; COLOR_HIGHLIGHT				= 13
 260 | ; COLOR_HIGHLIGHTTEXT			= 14
 261 | ; COLOR_HOTLIGHT				= 26
 262 | ; COLOR_INACTIVEBORDER			= 11
 263 | ; COLOR_INACTIVECAPTION			= 3
 264 | ; COLOR_INACTIVECAPTIONTEXT		= 19
 265 | ; COLOR_INFOBK					= 24
 266 | ; COLOR_INFOTEXT				= 23
 267 | ; COLOR_MENU					= 4
 268 | ; COLOR_MENUHILIGHT				= 29
 269 | ; COLOR_MENUBAR					= 30
 270 | ; COLOR_MENUTEXT				= 7
 271 | ; COLOR_SCROLLBAR				= 0
 272 | ; COLOR_WINDOW					= 5
 273 | ; COLOR_WINDOWFRAME				= 6
 274 | ; COLOR_WINDOWTEXT				= 8
 275 | 
 276 | SetSysColorToControl(hwnd, SysColor=15)
 277 | {
 278 |    WinGetPos,,, w, h, ahk_id %hwnd%
 279 |    bc := DllCall("GetSysColor", "Int", SysColor, "UInt")
 280 |    pBrushClear := Gdip_BrushCreateSolid(0xff000000 | (bc >> 16 | bc & 0xff00 | (bc & 0xff) << 16))
 281 |    pBitmap := Gdip_CreateBitmap(w, h), G := Gdip_GraphicsFromImage(pBitmap)
 282 |    Gdip_FillRectangle(G, pBrushClear, 0, 0, w, h)
 283 |    hBitmap := Gdip_CreateHBITMAPFromBitmap(pBitmap)
 284 |    SetImage(hwnd, hBitmap)
 285 |    Gdip_DeleteBrush(pBrushClear)
 286 |    Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap), DeleteObject(hBitmap)
 287 |    return 0
 288 | }
 289 | 
 290 | ;#####################################################################################
 291 | 
 292 | ; Function				Gdip_BitmapFromScreen
 293 | ; Description			Gets a gdi+ bitmap from the screen
 294 | ;
 295 | ; Screen				0 = All screens
 296 | ;						Any numerical value = Just that screen
 297 | ;						x|y|w|h = Take specific coordinates with a width and height
 298 | ; Raster				raster operation code
 299 | ;
 300 | ; return      			If the function succeeds, the return value is a pointer to a gdi+ bitmap
 301 | ;						-1:		one or more of x,y,w,h not passed properly
 302 | ;
 303 | ; notes					If no raster operation is specified, then SRCCOPY is used to the returned bitmap
 304 | 
 305 | Gdip_BitmapFromScreen(Screen=0, Raster="")
 306 | {
 307 | 	if (Screen = 0)
 308 | 	{
 309 | 		Sysget, x, 76
 310 | 		Sysget, y, 77	
 311 | 		Sysget, w, 78
 312 | 		Sysget, h, 79
 313 | 	}
 314 | 	else if (SubStr(Screen, 1, 5) = "hwnd:")
 315 | 	{
 316 | 		Screen := SubStr(Screen, 6)
 317 | 		if !WinExist( "ahk_id " Screen)
 318 | 			return -2
 319 | 		WinGetPos,,, w, h, ahk_id %Screen%
 320 | 		x := y := 0
 321 | 		hhdc := GetDCEx(Screen, 3)
 322 | 	}
 323 | 	else if (Screen&1 != "")
 324 | 	{
 325 | 		Sysget, M, Monitor, %Screen%
 326 | 		x := MLeft, y := MTop, w := MRight-MLeft, h := MBottom-MTop
 327 | 	}
 328 | 	else
 329 | 	{
 330 | 		StringSplit, S, Screen, |
 331 | 		x := S1, y := S2, w := S3, h := S4
 332 | 	}
 333 | 
 334 | 	if (x = "") || (y = "") || (w = "") || (h = "")
 335 | 		return -1
 336 | 
 337 | 	chdc := CreateCompatibleDC(), hbm := CreateDIBSection(w, h, chdc), obm := SelectObject(chdc, hbm), hhdc := hhdc ? hhdc : GetDC()
 338 | 	BitBlt(chdc, 0, 0, w, h, hhdc, x, y, Raster)
 339 | 	ReleaseDC(hhdc)
 340 | 	
 341 | 	pBitmap := Gdip_CreateBitmapFromHBITMAP(hbm)
 342 | 	SelectObject(chdc, obm), DeleteObject(hbm), DeleteDC(hhdc), DeleteDC(chdc)
 343 | 	return pBitmap
 344 | }
 345 | 
 346 | ;#####################################################################################
 347 | 
 348 | ; Function				Gdip_BitmapFromHWND
 349 | ; Description			Uses PrintWindow to get a handle to the specified window and return a bitmap from it
 350 | ;
 351 | ; hwnd					handle to the window to get a bitmap from
 352 | ;
 353 | ; return				If the function succeeds, the return value is a pointer to a gdi+ bitmap
 354 | ;
 355 | ; notes					Window must not be not minimised in order to get a handle to it's client area
 356 | 
 357 | Gdip_BitmapFromHWND(hwnd)
 358 | {
 359 | 	WinGetPos,,, Width, Height, ahk_id %hwnd%
 360 | 	hbm := CreateDIBSection(Width, Height), hdc := CreateCompatibleDC(), obm := SelectObject(hdc, hbm)
 361 | 	PrintWindow(hwnd, hdc)
 362 | 	pBitmap := Gdip_CreateBitmapFromHBITMAP(hbm)
 363 | 	SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
 364 | 	return pBitmap
 365 | }
 366 | 
 367 | ;#####################################################################################
 368 | 
 369 | ; Function    			CreateRectF
 370 | ; Description			Creates a RectF object, containing a the coordinates and dimensions of a rectangle
 371 | ;
 372 | ; RectF       			Name to call the RectF object
 373 | ; x            			x-coordinate of the upper left corner of the rectangle
 374 | ; y            			y-coordinate of the upper left corner of the rectangle
 375 | ; w            			Width of the rectangle
 376 | ; h            			Height of the rectangle
 377 | ;
 378 | ; return      			No return value
 379 | 
 380 | CreateRectF(ByRef RectF, x, y, w, h)
 381 | {
 382 |    VarSetCapacity(RectF, 16)
 383 |    NumPut(x, RectF, 0, "float"), NumPut(y, RectF, 4, "float"), NumPut(w, RectF, 8, "float"), NumPut(h, RectF, 12, "float")
 384 | }
 385 | 
 386 | ;#####################################################################################
 387 | 
 388 | ; Function    			CreateRect
 389 | ; Description			Creates a Rect object, containing a the coordinates and dimensions of a rectangle
 390 | ;
 391 | ; RectF       			Name to call the RectF object
 392 | ; x            			x-coordinate of the upper left corner of the rectangle
 393 | ; y            			y-coordinate of the upper left corner of the rectangle
 394 | ; w            			Width of the rectangle
 395 | ; h            			Height of the rectangle
 396 | ;
 397 | ; return      			No return value
 398 | 
 399 | CreateRect(ByRef Rect, x, y, w, h)
 400 | {
 401 | 	VarSetCapacity(Rect, 16)
 402 | 	NumPut(x, Rect, 0, "uint"), NumPut(y, Rect, 4, "uint"), NumPut(w, Rect, 8, "uint"), NumPut(h, Rect, 12, "uint")
 403 | }
 404 | ;#####################################################################################
 405 | 
 406 | ; Function		    	CreateSizeF
 407 | ; Description			Creates a SizeF object, containing an 2 values
 408 | ;
 409 | ; SizeF         		Name to call the SizeF object
 410 | ; w            			w-value for the SizeF object
 411 | ; h            			h-value for the SizeF object
 412 | ;
 413 | ; return      			No Return value
 414 | 
 415 | CreateSizeF(ByRef SizeF, w, h)
 416 | {
 417 |    VarSetCapacity(SizeF, 8)
 418 |    NumPut(w, SizeF, 0, "float"), NumPut(h, SizeF, 4, "float")     
 419 | }
 420 | ;#####################################################################################
 421 | 
 422 | ; Function		    	CreatePointF
 423 | ; Description			Creates a SizeF object, containing an 2 values
 424 | ;
 425 | ; SizeF         		Name to call the SizeF object
 426 | ; w            			w-value for the SizeF object
 427 | ; h            			h-value for the SizeF object
 428 | ;
 429 | ; return      			No Return value
 430 | 
 431 | CreatePointF(ByRef PointF, x, y)
 432 | {
 433 |    VarSetCapacity(PointF, 8)
 434 |    NumPut(x, PointF, 0, "float"), NumPut(y, PointF, 4, "float")     
 435 | }
 436 | ;#####################################################################################
 437 | 
 438 | ; Function				CreateDIBSection
 439 | ; Description			The CreateDIBSection function creates a DIB (Device Independent Bitmap) that applications can write to directly
 440 | ;
 441 | ; w						width of the bitmap to create
 442 | ; h						height of the bitmap to create
 443 | ; hdc					a handle to the device context to use the palette from
 444 | ; bpp					bits per pixel (32 = ARGB)
 445 | ; ppvBits				A pointer to a variable that receives a pointer to the location of the DIB bit values
 446 | ;
 447 | ; return				returns a DIB. A gdi bitmap
 448 | ;
 449 | ; notes					ppvBits will receive the location of the pixels in the DIB
 450 | 
 451 | CreateDIBSection(w, h, hdc="", bpp=32, ByRef ppvBits=0)
 452 | {
 453 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 454 | 	
 455 | 	hdc2 := hdc ? hdc : GetDC()
 456 | 	VarSetCapacity(bi, 40, 0)
 457 | 	
 458 | 	NumPut(w, bi, 4, "uint")
 459 | 	, NumPut(h, bi, 8, "uint")
 460 | 	, NumPut(40, bi, 0, "uint")
 461 | 	, NumPut(1, bi, 12, "ushort")
 462 | 	, NumPut(0, bi, 16, "uInt")
 463 | 	, NumPut(bpp, bi, 14, "ushort")
 464 | 	
 465 | 	hbm := DllCall("CreateDIBSection"
 466 | 					, Ptr, hdc2
 467 | 					, Ptr, &bi
 468 | 					, "uint", 0
 469 | 					, A_PtrSize ? "UPtr*" : "uint*", ppvBits
 470 | 					, Ptr, 0
 471 | 					, "uint", 0, Ptr)
 472 | 
 473 | 	if !hdc
 474 | 		ReleaseDC(hdc2)
 475 | 	return hbm
 476 | }
 477 | 
 478 | ;#####################################################################################
 479 | 
 480 | ; Function				PrintWindow
 481 | ; Description			The PrintWindow function copies a visual window into the specified device context (DC), typically a printer DC
 482 | ;
 483 | ; hwnd					A handle to the window that will be copied
 484 | ; hdc					A handle to the device context
 485 | ; Flags					Drawing options
 486 | ;
 487 | ; return				If the function succeeds, it returns a nonzero value
 488 | ;
 489 | ; PW_CLIENTONLY			= 1
 490 | 
 491 | PrintWindow(hwnd, hdc, Flags=0)
 492 | {
 493 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 494 | 	
 495 | 	return DllCall("PrintWindow", Ptr, hwnd, Ptr, hdc, "uint", Flags)
 496 | }
 497 | 
 498 | ;#####################################################################################
 499 | 
 500 | ; Function				DestroyIcon
 501 | ; Description			Destroys an icon and frees any memory the icon occupied
 502 | ;
 503 | ; hIcon					Handle to the icon to be destroyed. The icon must not be in use
 504 | ;
 505 | ; return				If the function succeeds, the return value is nonzero
 506 | 
 507 | DestroyIcon(hIcon)
 508 | {
 509 | 	return DllCall("DestroyIcon", A_PtrSize ? "UPtr" : "UInt", hIcon)
 510 | }
 511 | 
 512 | ;#####################################################################################
 513 | 
 514 | PaintDesktop(hdc)
 515 | {
 516 | 	return DllCall("PaintDesktop", A_PtrSize ? "UPtr" : "UInt", hdc)
 517 | }
 518 | 
 519 | ;#####################################################################################
 520 | 
 521 | CreateCompatibleBitmap(hdc, w, h)
 522 | {
 523 | 	return DllCall("gdi32\CreateCompatibleBitmap", A_PtrSize ? "UPtr" : "UInt", hdc, "int", w, "int", h)
 524 | }
 525 | 
 526 | ;#####################################################################################
 527 | 
 528 | ; Function				CreateCompatibleDC
 529 | ; Description			This function creates a memory device context (DC) compatible with the specified device
 530 | ;
 531 | ; hdc					Handle to an existing device context					
 532 | ;
 533 | ; return				returns the handle to a device context or 0 on failure
 534 | ;
 535 | ; notes					If this handle is 0 (by default), the function creates a memory device context compatible with the application's current screen
 536 | 
 537 | CreateCompatibleDC(hdc=0)
 538 | {
 539 |    return DllCall("CreateCompatibleDC", A_PtrSize ? "UPtr" : "UInt", hdc)
 540 | }
 541 | 
 542 | ;#####################################################################################
 543 | 
 544 | ; Function				SelectObject
 545 | ; Description			The SelectObject function selects an object into the specified device context (DC). The new object replaces the previous object of the same type
 546 | ;
 547 | ; hdc					Handle to a DC
 548 | ; hgdiobj				A handle to the object to be selected into the DC
 549 | ;
 550 | ; return				If the selected object is not a region and the function succeeds, the return value is a handle to the object being replaced
 551 | ;
 552 | ; notes					The specified object must have been created by using one of the following functions
 553 | ;						Bitmap - CreateBitmap, CreateBitmapIndirect, CreateCompatibleBitmap, CreateDIBitmap, CreateDIBSection (A single bitmap cannot be selected into more than one DC at the same time)
 554 | ;						Brush - CreateBrushIndirect, CreateDIBPatternBrush, CreateDIBPatternBrushPt, CreateHatchBrush, CreatePatternBrush, CreateSolidBrush
 555 | ;						Font - CreateFont, CreateFontIndirect
 556 | ;						Pen - CreatePen, CreatePenIndirect
 557 | ;						Region - CombineRgn, CreateEllipticRgn, CreateEllipticRgnIndirect, CreatePolygonRgn, CreateRectRgn, CreateRectRgnIndirect
 558 | ;
 559 | ; notes					If the selected object is a region and the function succeeds, the return value is one of the following value
 560 | ;
 561 | ; SIMPLEREGION			= 2 Region consists of a single rectangle
 562 | ; COMPLEXREGION			= 3 Region consists of more than one rectangle
 563 | ; NULLREGION			= 1 Region is empty
 564 | 
 565 | SelectObject(hdc, hgdiobj)
 566 | {
 567 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 568 | 	
 569 | 	return DllCall("SelectObject", Ptr, hdc, Ptr, hgdiobj)
 570 | }
 571 | 
 572 | ;#####################################################################################
 573 | 
 574 | ; Function				DeleteObject
 575 | ; Description			This function deletes a logical pen, brush, font, bitmap, region, or palette, freeing all system resources associated with the object
 576 | ;						After the object is deleted, the specified handle is no longer valid
 577 | ;
 578 | ; hObject				Handle to a logical pen, brush, font, bitmap, region, or palette to delete
 579 | ;
 580 | ; return				Nonzero indicates success. Zero indicates that the specified handle is not valid or that the handle is currently selected into a device context
 581 | 
 582 | DeleteObject(hObject)
 583 | {
 584 |    return DllCall("DeleteObject", A_PtrSize ? "UPtr" : "UInt", hObject)
 585 | }
 586 | 
 587 | ;#####################################################################################
 588 | 
 589 | ; Function				GetDC
 590 | ; Description			This function retrieves a handle to a display device context (DC) for the client area of the specified window.
 591 | ;						The display device context can be used in subsequent graphics display interface (GDI) functions to draw in the client area of the window. 
 592 | ;
 593 | ; hwnd					Handle to the window whose device context is to be retrieved. If this value is NULL, GetDC retrieves the device context for the entire screen					
 594 | ;
 595 | ; return				The handle the device context for the specified window's client area indicates success. NULL indicates failure
 596 | 
 597 | GetDC(hwnd=0)
 598 | {
 599 | 	return DllCall("GetDC", A_PtrSize ? "UPtr" : "UInt", hwnd)
 600 | }
 601 | 
 602 | ;#####################################################################################
 603 | 
 604 | ; DCX_CACHE = 0x2
 605 | ; DCX_CLIPCHILDREN = 0x8
 606 | ; DCX_CLIPSIBLINGS = 0x10
 607 | ; DCX_EXCLUDERGN = 0x40
 608 | ; DCX_EXCLUDEUPDATE = 0x100
 609 | ; DCX_INTERSECTRGN = 0x80
 610 | ; DCX_INTERSECTUPDATE = 0x200
 611 | ; DCX_LOCKWINDOWUPDATE = 0x400
 612 | ; DCX_NORECOMPUTE = 0x100000
 613 | ; DCX_NORESETATTRS = 0x4
 614 | ; DCX_PARENTCLIP = 0x20
 615 | ; DCX_VALIDATE = 0x200000
 616 | ; DCX_WINDOW = 0x1
 617 | 
 618 | GetDCEx(hwnd, flags=0, hrgnClip=0)
 619 | {
 620 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 621 | 	
 622 |     return DllCall("GetDCEx", Ptr, hwnd, Ptr, hrgnClip, "int", flags)
 623 | }
 624 | 
 625 | ;#####################################################################################
 626 | 
 627 | ; Function				ReleaseDC
 628 | ; Description			This function releases a device context (DC), freeing it for use by other applications. The effect of ReleaseDC depends on the type of device context
 629 | ;
 630 | ; hdc					Handle to the device context to be released
 631 | ; hwnd					Handle to the window whose device context is to be released
 632 | ;
 633 | ; return				1 = released
 634 | ;						0 = not released
 635 | ;
 636 | ; notes					The application must call the ReleaseDC function for each call to the GetWindowDC function and for each call to the GetDC function that retrieves a common device context
 637 | ;						An application cannot use the ReleaseDC function to release a device context that was created by calling the CreateDC function; instead, it must use the DeleteDC function. 
 638 | 
 639 | ReleaseDC(hdc, hwnd=0)
 640 | {
 641 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 642 | 	
 643 | 	return DllCall("ReleaseDC", Ptr, hwnd, Ptr, hdc)
 644 | }
 645 | 
 646 | ;#####################################################################################
 647 | 
 648 | ; Function				DeleteDC
 649 | ; Description			The DeleteDC function deletes the specified device context (DC)
 650 | ;
 651 | ; hdc					A handle to the device context
 652 | ;
 653 | ; return				If the function succeeds, the return value is nonzero
 654 | ;
 655 | ; notes					An application must not delete a DC whose handle was obtained by calling the GetDC function. Instead, it must call the ReleaseDC function to free the DC
 656 | 
 657 | DeleteDC(hdc)
 658 | {
 659 |    return DllCall("DeleteDC", A_PtrSize ? "UPtr" : "UInt", hdc)
 660 | }
 661 | ;#####################################################################################
 662 | 
 663 | ; Function				Gdip_LibraryVersion
 664 | ; Description			Get the current library version
 665 | ;
 666 | ; return				the library version
 667 | ;
 668 | ; notes					This is useful for non compiled programs to ensure that a person doesn't run an old version when testing your scripts
 669 | 
 670 | Gdip_LibraryVersion()
 671 | {
 672 | 	return 1.45
 673 | }
 674 | 
 675 | ;#####################################################################################
 676 | 
 677 | ; Function				Gdip_LibrarySubVersion
 678 | ; Description			Get the current library sub version
 679 | ;
 680 | ; return				the library sub version
 681 | ;
 682 | ; notes					This is the sub-version currently maintained by Rseding91
 683 | Gdip_LibrarySubVersion()
 684 | {
 685 | 	return 1.47
 686 | }
 687 | 
 688 | ;#####################################################################################
 689 | 
 690 | ; Function:    			Gdip_BitmapFromBRA
 691 | ; Description: 			Gets a pointer to a gdi+ bitmap from a BRA file
 692 | ;
 693 | ; BRAFromMemIn			The variable for a BRA file read to memory
 694 | ; File					The name of the file, or its number that you would like (This depends on alternate parameter)
 695 | ; Alternate				Changes whether the File parameter is the file name or its number
 696 | ;
 697 | ; return      			If the function succeeds, the return value is a pointer to a gdi+ bitmap
 698 | ;						-1 = The BRA variable is empty
 699 | ;						-2 = The BRA has an incorrect header
 700 | ;						-3 = The BRA has information missing
 701 | ;						-4 = Could not find file inside the BRA
 702 | 
 703 | Gdip_BitmapFromBRA(ByRef BRAFromMemIn, File, Alternate=0)
 704 | {
 705 | 	Static FName = "ObjRelease"
 706 | 	
 707 | 	if !BRAFromMemIn
 708 | 		return -1
 709 | 	Loop, Parse, BRAFromMemIn, `n
 710 | 	{
 711 | 		if (A_Index = 1)
 712 | 		{
 713 | 			StringSplit, Header, A_LoopField, |
 714 | 			if (Header0 != 4 || Header2 != "BRA!")
 715 | 				return -2
 716 | 		}
 717 | 		else if (A_Index = 2)
 718 | 		{
 719 | 			StringSplit, Info, A_LoopField, |
 720 | 			if (Info0 != 3)
 721 | 				return -3
 722 | 		}
 723 | 		else
 724 | 			break
 725 | 	}
 726 | 	if !Alternate
 727 | 		StringReplace, File, File, \, \\, All
 728 | 	RegExMatch(BRAFromMemIn, "mi`n)^" (Alternate ? File "\|.+?\|(\d+)\|(\d+)" : "\d+\|" File "\|(\d+)\|(\d+)") "$", FileInfo)
 729 | 	if !FileInfo
 730 | 		return -4
 731 | 	
 732 | 	hData := DllCall("GlobalAlloc", "uint", 2, Ptr, FileInfo2, Ptr)
 733 | 	pData := DllCall("GlobalLock", Ptr, hData, Ptr)
 734 | 	DllCall("RtlMoveMemory", Ptr, pData, Ptr, &BRAFromMemIn+Info2+FileInfo1, Ptr, FileInfo2)
 735 | 	DllCall("GlobalUnlock", Ptr, hData)
 736 | 	DllCall("ole32\CreateStreamOnHGlobal", Ptr, hData, "int", 1, A_PtrSize ? "UPtr*" : "UInt*", pStream)
 737 | 	DllCall("gdiplus\GdipCreateBitmapFromStream", Ptr, pStream, A_PtrSize ? "UPtr*" : "UInt*", pBitmap)
 738 | 	If (A_PtrSize)
 739 | 		%FName%(pStream)
 740 | 	Else
 741 | 		DllCall(NumGet(NumGet(1*pStream)+8), "uint", pStream)
 742 | 	return pBitmap
 743 | }
 744 | 
 745 | ;#####################################################################################
 746 | 
 747 | ; Function				Gdip_DrawRectangle
 748 | ; Description			This function uses a pen to draw the outline of a rectangle into the Graphics of a bitmap
 749 | ;
 750 | ; pGraphics				Pointer to the Graphics of a bitmap
 751 | ; pPen					Pointer to a pen
 752 | ; x						x-coordinate of the top left of the rectangle
 753 | ; y						y-coordinate of the top left of the rectangle
 754 | ; w						width of the rectanlge
 755 | ; h						height of the rectangle
 756 | ;
 757 | ; return				status enumeration. 0 = success
 758 | ;
 759 | ; notes					as all coordinates are taken from the top left of each pixel, then the entire width/height should be specified as subtracting the pen width
 760 | 
 761 | Gdip_DrawRectangle(pGraphics, pPen, x, y, w, h)
 762 | {
 763 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 764 | 	
 765 | 	return DllCall("gdiplus\GdipDrawRectangle", Ptr, pGraphics, Ptr, pPen, "float", x, "float", y, "float", w, "float", h)
 766 | }
 767 | 
 768 | ;#####################################################################################
 769 | 
 770 | ; Function				Gdip_DrawRoundedRectangle
 771 | ; Description			This function uses a pen to draw the outline of a rounded rectangle into the Graphics of a bitmap
 772 | ;
 773 | ; pGraphics				Pointer to the Graphics of a bitmap
 774 | ; pPen					Pointer to a pen
 775 | ; x						x-coordinate of the top left of the rounded rectangle
 776 | ; y						y-coordinate of the top left of the rounded rectangle
 777 | ; w						width of the rectanlge
 778 | ; h						height of the rectangle
 779 | ; r						radius of the rounded corners
 780 | ;
 781 | ; return				status enumeration. 0 = success
 782 | ;
 783 | ; notes					as all coordinates are taken from the top left of each pixel, then the entire width/height should be specified as subtracting the pen width
 784 | 
 785 | Gdip_DrawRoundedRectangle(pGraphics, pPen, x, y, w, h, r)
 786 | {
 787 | 	Gdip_SetClipRect(pGraphics, x-r, y-r, 2*r, 2*r, 4)
 788 | 	Gdip_SetClipRect(pGraphics, x+w-r, y-r, 2*r, 2*r, 4)
 789 | 	Gdip_SetClipRect(pGraphics, x-r, y+h-r, 2*r, 2*r, 4)
 790 | 	Gdip_SetClipRect(pGraphics, x+w-r, y+h-r, 2*r, 2*r, 4)
 791 | 	E := Gdip_DrawRectangle(pGraphics, pPen, x, y, w, h)
 792 | 	Gdip_ResetClip(pGraphics)
 793 | 	Gdip_SetClipRect(pGraphics, x-(2*r), y+r, w+(4*r), h-(2*r), 4)
 794 | 	Gdip_SetClipRect(pGraphics, x+r, y-(2*r), w-(2*r), h+(4*r), 4)
 795 | 	Gdip_DrawEllipse(pGraphics, pPen, x, y, 2*r, 2*r)
 796 | 	Gdip_DrawEllipse(pGraphics, pPen, x+w-(2*r), y, 2*r, 2*r)
 797 | 	Gdip_DrawEllipse(pGraphics, pPen, x, y+h-(2*r), 2*r, 2*r)
 798 | 	Gdip_DrawEllipse(pGraphics, pPen, x+w-(2*r), y+h-(2*r), 2*r, 2*r)
 799 | 	Gdip_ResetClip(pGraphics)
 800 | 	return E
 801 | }
 802 | 
 803 | ;#####################################################################################
 804 | 
 805 | ; Function				Gdip_DrawEllipse
 806 | ; Description			This function uses a pen to draw the outline of an ellipse into the Graphics of a bitmap
 807 | ;
 808 | ; pGraphics				Pointer to the Graphics of a bitmap
 809 | ; pPen					Pointer to a pen
 810 | ; x						x-coordinate of the top left of the rectangle the ellipse will be drawn into
 811 | ; y						y-coordinate of the top left of the rectangle the ellipse will be drawn into
 812 | ; w						width of the ellipse
 813 | ; h						height of the ellipse
 814 | ;
 815 | ; return				status enumeration. 0 = success
 816 | ;
 817 | ; notes					as all coordinates are taken from the top left of each pixel, then the entire width/height should be specified as subtracting the pen width
 818 | 
 819 | Gdip_DrawEllipse(pGraphics, pPen, x, y, w, h)
 820 | {
 821 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 822 | 	
 823 | 	return DllCall("gdiplus\GdipDrawEllipse", Ptr, pGraphics, Ptr, pPen, "float", x, "float", y, "float", w, "float", h)
 824 | }
 825 | 
 826 | ;#####################################################################################
 827 | 
 828 | ; Function				Gdip_DrawBezier
 829 | ; Description			This function uses a pen to draw the outline of a bezier (a weighted curve) into the Graphics of a bitmap
 830 | ;
 831 | ; pGraphics				Pointer to the Graphics of a bitmap
 832 | ; pPen					Pointer to a pen
 833 | ; x1					x-coordinate of the start of the bezier
 834 | ; y1					y-coordinate of the start of the bezier
 835 | ; x2					x-coordinate of the first arc of the bezier
 836 | ; y2					y-coordinate of the first arc of the bezier
 837 | ; x3					x-coordinate of the second arc of the bezier
 838 | ; y3					y-coordinate of the second arc of the bezier
 839 | ; x4					x-coordinate of the end of the bezier
 840 | ; y4					y-coordinate of the end of the bezier
 841 | ;
 842 | ; return				status enumeration. 0 = success
 843 | ;
 844 | ; notes					as all coordinates are taken from the top left of each pixel, then the entire width/height should be specified as subtracting the pen width
 845 | 
 846 | Gdip_DrawBezier(pGraphics, pPen, x1, y1, x2, y2, x3, y3, x4, y4)
 847 | {
 848 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 849 | 	
 850 | 	return DllCall("gdiplus\GdipDrawBezier"
 851 | 					, Ptr, pgraphics
 852 | 					, Ptr, pPen
 853 | 					, "float", x1
 854 | 					, "float", y1
 855 | 					, "float", x2
 856 | 					, "float", y2
 857 | 					, "float", x3
 858 | 					, "float", y3
 859 | 					, "float", x4
 860 | 					, "float", y4)
 861 | }
 862 | 
 863 | ;#####################################################################################
 864 | 
 865 | ; Function				Gdip_DrawArc
 866 | ; Description			This function uses a pen to draw the outline of an arc into the Graphics of a bitmap
 867 | ;
 868 | ; pGraphics				Pointer to the Graphics of a bitmap
 869 | ; pPen					Pointer to a pen
 870 | ; x						x-coordinate of the start of the arc
 871 | ; y						y-coordinate of the start of the arc
 872 | ; w						width of the arc
 873 | ; h						height of the arc
 874 | ; StartAngle			specifies the angle between the x-axis and the starting point of the arc
 875 | ; SweepAngle			specifies the angle between the starting and ending points of the arc
 876 | ;
 877 | ; return				status enumeration. 0 = success
 878 | ;
 879 | ; notes					as all coordinates are taken from the top left of each pixel, then the entire width/height should be specified as subtracting the pen width
 880 | 
 881 | Gdip_DrawArc(pGraphics, pPen, x, y, w, h, StartAngle, SweepAngle)
 882 | {
 883 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 884 | 	
 885 | 	return DllCall("gdiplus\GdipDrawArc"
 886 | 					, Ptr, pGraphics
 887 | 					, Ptr, pPen
 888 | 					, "float", x
 889 | 					, "float", y
 890 | 					, "float", w
 891 | 					, "float", h
 892 | 					, "float", StartAngle
 893 | 					, "float", SweepAngle)
 894 | }
 895 | 
 896 | ;#####################################################################################
 897 | 
 898 | ; Function				Gdip_DrawPie
 899 | ; Description			This function uses a pen to draw the outline of a pie into the Graphics of a bitmap
 900 | ;
 901 | ; pGraphics				Pointer to the Graphics of a bitmap
 902 | ; pPen					Pointer to a pen
 903 | ; x						x-coordinate of the start of the pie
 904 | ; y						y-coordinate of the start of the pie
 905 | ; w						width of the pie
 906 | ; h						height of the pie
 907 | ; StartAngle			specifies the angle between the x-axis and the starting point of the pie
 908 | ; SweepAngle			specifies the angle between the starting and ending points of the pie
 909 | ;
 910 | ; return				status enumeration. 0 = success
 911 | ;
 912 | ; notes					as all coordinates are taken from the top left of each pixel, then the entire width/height should be specified as subtracting the pen width
 913 | 
 914 | Gdip_DrawPie(pGraphics, pPen, x, y, w, h, StartAngle, SweepAngle)
 915 | {
 916 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 917 | 	
 918 | 	return DllCall("gdiplus\GdipDrawPie", Ptr, pGraphics, Ptr, pPen, "float", x, "float", y, "float", w, "float", h, "float", StartAngle, "float", SweepAngle)
 919 | }
 920 | 
 921 | ;#####################################################################################
 922 | 
 923 | ; Function				Gdip_DrawLine
 924 | ; Description			This function uses a pen to draw a line into the Graphics of a bitmap
 925 | ;
 926 | ; pGraphics				Pointer to the Graphics of a bitmap
 927 | ; pPen					Pointer to a pen
 928 | ; x1					x-coordinate of the start of the line
 929 | ; y1					y-coordinate of the start of the line
 930 | ; x2					x-coordinate of the end of the line
 931 | ; y2					y-coordinate of the end of the line
 932 | ;
 933 | ; return				status enumeration. 0 = success		
 934 | 
 935 | Gdip_DrawLine(pGraphics, pPen, x1, y1, x2, y2)
 936 | {
 937 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 938 | 	
 939 | 	return DllCall("gdiplus\GdipDrawLine"
 940 | 					, Ptr, pGraphics
 941 | 					, Ptr, pPen
 942 | 					, "float", x1
 943 | 					, "float", y1
 944 | 					, "float", x2
 945 | 					, "float", y2)
 946 | }
 947 | 
 948 | ;#####################################################################################
 949 | 
 950 | ; Function				Gdip_DrawLines
 951 | ; Description			This function uses a pen to draw a series of joined lines into the Graphics of a bitmap
 952 | ;
 953 | ; pGraphics				Pointer to the Graphics of a bitmap
 954 | ; pPen					Pointer to a pen
 955 | ; Points				the coordinates of all the points passed as x1,y1|x2,y2|x3,y3.....
 956 | ;
 957 | ; return				status enumeration. 0 = success				
 958 | 
 959 | Gdip_DrawLines(pGraphics, pPen, Points)
 960 | {
 961 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 962 | 	StringSplit, Points, Points, |
 963 | 	VarSetCapacity(PointF, 8*Points0)   
 964 | 	Loop, %Points0%
 965 | 	{
 966 | 		StringSplit, Coord, Points%A_Index%, `,
 967 | 		NumPut(Coord1, PointF, 8*(A_Index-1), "float"), NumPut(Coord2, PointF, (8*(A_Index-1))+4, "float")
 968 | 	}
 969 | 	return DllCall("gdiplus\GdipDrawLines", Ptr, pGraphics, Ptr, pPen, Ptr, &PointF, "int", Points0)
 970 | }
 971 | 
 972 | ;#####################################################################################
 973 | 
 974 | ; Function				Gdip_FillRectangle
 975 | ; Description			This function uses a brush to fill a rectangle in the Graphics of a bitmap
 976 | ;
 977 | ; pGraphics				Pointer to the Graphics of a bitmap
 978 | ; pBrush				Pointer to a brush
 979 | ; x						x-coordinate of the top left of the rectangle
 980 | ; y						y-coordinate of the top left of the rectangle
 981 | ; w						width of the rectanlge
 982 | ; h						height of the rectangle
 983 | ;
 984 | ; return				status enumeration. 0 = success
 985 | 
 986 | Gdip_FillRectangle(pGraphics, pBrush, x, y, w, h)
 987 | {
 988 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
 989 | 	
 990 | 	return DllCall("gdiplus\GdipFillRectangle"
 991 | 					, Ptr, pGraphics
 992 | 					, Ptr, pBrush
 993 | 					, "float", x
 994 | 					, "float", y
 995 | 					, "float", w
 996 | 					, "float", h)
 997 | }
 998 | 
 999 | ;#####################################################################################
1000 | 
1001 | ; Function				Gdip_FillRoundedRectangle
1002 | ; Description			This function uses a brush to fill a rounded rectangle in the Graphics of a bitmap
1003 | ;
1004 | ; pGraphics				Pointer to the Graphics of a bitmap
1005 | ; pBrush				Pointer to a brush
1006 | ; x						x-coordinate of the top left of the rounded rectangle
1007 | ; y						y-coordinate of the top left of the rounded rectangle
1008 | ; w						width of the rectanlge
1009 | ; h						height of the rectangle
1010 | ; r						radius of the rounded corners
1011 | ;
1012 | ; return				status enumeration. 0 = success
1013 | 
1014 | Gdip_FillRoundedRectangle(pGraphics, pBrush, x, y, w, h, r)
1015 | {
1016 | 	Region := Gdip_GetClipRegion(pGraphics)
1017 | 	Gdip_SetClipRect(pGraphics, x-r, y-r, 2*r, 2*r, 4)
1018 | 	Gdip_SetClipRect(pGraphics, x+w-r, y-r, 2*r, 2*r, 4)
1019 | 	Gdip_SetClipRect(pGraphics, x-r, y+h-r, 2*r, 2*r, 4)
1020 | 	Gdip_SetClipRect(pGraphics, x+w-r, y+h-r, 2*r, 2*r, 4)
1021 | 	E := Gdip_FillRectangle(pGraphics, pBrush, x, y, w, h)
1022 | 	Gdip_SetClipRegion(pGraphics, Region, 0)
1023 | 	Gdip_SetClipRect(pGraphics, x-(2*r), y+r, w+(4*r), h-(2*r), 4)
1024 | 	Gdip_SetClipRect(pGraphics, x+r, y-(2*r), w-(2*r), h+(4*r), 4)
1025 | 	Gdip_FillEllipse(pGraphics, pBrush, x, y, 2*r, 2*r)
1026 | 	Gdip_FillEllipse(pGraphics, pBrush, x+w-(2*r), y, 2*r, 2*r)
1027 | 	Gdip_FillEllipse(pGraphics, pBrush, x, y+h-(2*r), 2*r, 2*r)
1028 | 	Gdip_FillEllipse(pGraphics, pBrush, x+w-(2*r), y+h-(2*r), 2*r, 2*r)
1029 | 	Gdip_SetClipRegion(pGraphics, Region, 0)
1030 | 	Gdip_DeleteRegion(Region)
1031 | 	return E
1032 | }
1033 | 
1034 | ;#####################################################################################
1035 | 
1036 | ; Function				Gdip_FillPolygon
1037 | ; Description			This function uses a brush to fill a polygon in the Graphics of a bitmap
1038 | ;
1039 | ; pGraphics				Pointer to the Graphics of a bitmap
1040 | ; pBrush				Pointer to a brush
1041 | ; Points				the coordinates of all the points passed as x1,y1|x2,y2|x3,y3.....
1042 | ;
1043 | ; return				status enumeration. 0 = success
1044 | ;
1045 | ; notes					Alternate will fill the polygon as a whole, wheras winding will fill each new "segment"
1046 | ; Alternate 			= 0
1047 | ; Winding 				= 1
1048 | 
1049 | Gdip_FillPolygon(pGraphics, pBrush, Points, FillMode=0)
1050 | {
1051 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1052 | 	
1053 | 	StringSplit, Points, Points, |
1054 | 	VarSetCapacity(PointF, 8*Points0)   
1055 | 	Loop, %Points0%
1056 | 	{
1057 | 		StringSplit, Coord, Points%A_Index%, `,
1058 | 		NumPut(Coord1, PointF, 8*(A_Index-1), "float"), NumPut(Coord2, PointF, (8*(A_Index-1))+4, "float")
1059 | 	}   
1060 | 	return DllCall("gdiplus\GdipFillPolygon", Ptr, pGraphics, Ptr, pBrush, Ptr, &PointF, "int", Points0, "int", FillMode)
1061 | }
1062 | 
1063 | ;#####################################################################################
1064 | 
1065 | ; Function				Gdip_FillPie
1066 | ; Description			This function uses a brush to fill a pie in the Graphics of a bitmap
1067 | ;
1068 | ; pGraphics				Pointer to the Graphics of a bitmap
1069 | ; pBrush				Pointer to a brush
1070 | ; x						x-coordinate of the top left of the pie
1071 | ; y						y-coordinate of the top left of the pie
1072 | ; w						width of the pie
1073 | ; h						height of the pie
1074 | ; StartAngle			specifies the angle between the x-axis and the starting point of the pie
1075 | ; SweepAngle			specifies the angle between the starting and ending points of the pie
1076 | ;
1077 | ; return				status enumeration. 0 = success
1078 | 
1079 | Gdip_FillPie(pGraphics, pBrush, x, y, w, h, StartAngle, SweepAngle)
1080 | {
1081 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1082 | 	
1083 | 	return DllCall("gdiplus\GdipFillPie"
1084 | 					, Ptr, pGraphics
1085 | 					, Ptr, pBrush
1086 | 					, "float", x
1087 | 					, "float", y
1088 | 					, "float", w
1089 | 					, "float", h
1090 | 					, "float", StartAngle
1091 | 					, "float", SweepAngle)
1092 | }
1093 | 
1094 | ;#####################################################################################
1095 | 
1096 | ; Function				Gdip_FillEllipse
1097 | ; Description			This function uses a brush to fill an ellipse in the Graphics of a bitmap
1098 | ;
1099 | ; pGraphics				Pointer to the Graphics of a bitmap
1100 | ; pBrush				Pointer to a brush
1101 | ; x						x-coordinate of the top left of the ellipse
1102 | ; y						y-coordinate of the top left of the ellipse
1103 | ; w						width of the ellipse
1104 | ; h						height of the ellipse
1105 | ;
1106 | ; return				status enumeration. 0 = success
1107 | 
1108 | Gdip_FillEllipse(pGraphics, pBrush, x, y, w, h)
1109 | {
1110 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1111 | 	
1112 | 	return DllCall("gdiplus\GdipFillEllipse", Ptr, pGraphics, Ptr, pBrush, "float", x, "float", y, "float", w, "float", h)
1113 | }
1114 | 
1115 | ;#####################################################################################
1116 | 
1117 | ; Function				Gdip_FillRegion
1118 | ; Description			This function uses a brush to fill a region in the Graphics of a bitmap
1119 | ;
1120 | ; pGraphics				Pointer to the Graphics of a bitmap
1121 | ; pBrush				Pointer to a brush
1122 | ; Region				Pointer to a Region
1123 | ;
1124 | ; return				status enumeration. 0 = success
1125 | ;
1126 | ; notes					You can create a region Gdip_CreateRegion() and then add to this
1127 | 
1128 | Gdip_FillRegion(pGraphics, pBrush, Region)
1129 | {
1130 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1131 | 	
1132 | 	return DllCall("gdiplus\GdipFillRegion", Ptr, pGraphics, Ptr, pBrush, Ptr, Region)
1133 | }
1134 | 
1135 | ;#####################################################################################
1136 | 
1137 | ; Function				Gdip_FillPath
1138 | ; Description			This function uses a brush to fill a path in the Graphics of a bitmap
1139 | ;
1140 | ; pGraphics				Pointer to the Graphics of a bitmap
1141 | ; pBrush				Pointer to a brush
1142 | ; Region				Pointer to a Path
1143 | ;
1144 | ; return				status enumeration. 0 = success
1145 | 
1146 | Gdip_FillPath(pGraphics, pBrush, Path)
1147 | {
1148 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1149 | 	
1150 | 	return DllCall("gdiplus\GdipFillPath", Ptr, pGraphics, Ptr, pBrush, Ptr, Path)
1151 | }
1152 | 
1153 | ;#####################################################################################
1154 | 
1155 | ; Function				Gdip_DrawImagePointsRect
1156 | ; Description			This function draws a bitmap into the Graphics of another bitmap and skews it
1157 | ;
1158 | ; pGraphics				Pointer to the Graphics of a bitmap
1159 | ; pBitmap				Pointer to a bitmap to be drawn
1160 | ; Points				Points passed as x1,y1|x2,y2|x3,y3 (3 points: top left, top right, bottom left) describing the drawing of the bitmap
1161 | ; sx					x-coordinate of source upper-left corner
1162 | ; sy					y-coordinate of source upper-left corner
1163 | ; sw					width of source rectangle
1164 | ; sh					height of source rectangle
1165 | ; Matrix				a matrix used to alter image attributes when drawing
1166 | ;
1167 | ; return				status enumeration. 0 = success
1168 | ;
1169 | ; notes					if sx,sy,sw,sh are missed then the entire source bitmap will be used
1170 | ;						Matrix can be omitted to just draw with no alteration to ARGB
1171 | ;						Matrix may be passed as a digit from 0 - 1 to change just transparency
1172 | ;						Matrix can be passed as a matrix with any delimiter
1173 | 
1174 | Gdip_DrawImagePointsRect(pGraphics, pBitmap, Points, sx="", sy="", sw="", sh="", Matrix=1)
1175 | {
1176 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1177 | 	
1178 | 	StringSplit, Points, Points, |
1179 | 	VarSetCapacity(PointF, 8*Points0)   
1180 | 	Loop, %Points0%
1181 | 	{
1182 | 		StringSplit, Coord, Points%A_Index%, `,
1183 | 		NumPut(Coord1, PointF, 8*(A_Index-1), "float"), NumPut(Coord2, PointF, (8*(A_Index-1))+4, "float")
1184 | 	}
1185 | 
1186 | 	if (Matrix&1 = "")
1187 | 		ImageAttr := Gdip_SetImageAttributesColorMatrix(Matrix)
1188 | 	else if (Matrix != 1)
1189 | 		ImageAttr := Gdip_SetImageAttributesColorMatrix("1|0|0|0|0|0|1|0|0|0|0|0|1|0|0|0|0|0|" Matrix "|0|0|0|0|0|1")
1190 | 		
1191 | 	if (sx = "" && sy = "" && sw = "" && sh = "")
1192 | 	{
1193 | 		sx := 0, sy := 0
1194 | 		sw := Gdip_GetImageWidth(pBitmap)
1195 | 		sh := Gdip_GetImageHeight(pBitmap)
1196 | 	}
1197 | 
1198 | 	E := DllCall("gdiplus\GdipDrawImagePointsRect"
1199 | 				, Ptr, pGraphics
1200 | 				, Ptr, pBitmap
1201 | 				, Ptr, &PointF
1202 | 				, "int", Points0
1203 | 				, "float", sx
1204 | 				, "float", sy
1205 | 				, "float", sw
1206 | 				, "float", sh
1207 | 				, "int", 2
1208 | 				, Ptr, ImageAttr
1209 | 				, Ptr, 0
1210 | 				, Ptr, 0)
1211 | 	if ImageAttr
1212 | 		Gdip_DisposeImageAttributes(ImageAttr)
1213 | 	return E
1214 | }
1215 | 
1216 | ;#####################################################################################
1217 | 
1218 | ; Function				Gdip_DrawImage
1219 | ; Description			This function draws a bitmap into the Graphics of another bitmap
1220 | ;
1221 | ; pGraphics				Pointer to the Graphics of a bitmap
1222 | ; pBitmap				Pointer to a bitmap to be drawn
1223 | ; dx					x-coord of destination upper-left corner
1224 | ; dy					y-coord of destination upper-left corner
1225 | ; dw					width of destination image
1226 | ; dh					height of destination image
1227 | ; sx					x-coordinate of source upper-left corner
1228 | ; sy					y-coordinate of source upper-left corner
1229 | ; sw					width of source image
1230 | ; sh					height of source image
1231 | ; Matrix				a matrix used to alter image attributes when drawing
1232 | ;
1233 | ; return				status enumeration. 0 = success
1234 | ;
1235 | ; notes					if sx,sy,sw,sh are missed then the entire source bitmap will be used
1236 | ;						Gdip_DrawImage performs faster
1237 | ;						Matrix can be omitted to just draw with no alteration to ARGB
1238 | ;						Matrix may be passed as a digit from 0 - 1 to change just transparency
1239 | ;						Matrix can be passed as a matrix with any delimiter. For example:
1240 | ;						MatrixBright=
1241 | ;						(
1242 | ;						1.5		|0		|0		|0		|0
1243 | ;						0		|1.5	|0		|0		|0
1244 | ;						0		|0		|1.5	|0		|0
1245 | ;						0		|0		|0		|1		|0
1246 | ;						0.05	|0.05	|0.05	|0		|1
1247 | ;						)
1248 | ;
1249 | ; notes					MatrixBright = 1.5|0|0|0|0|0|1.5|0|0|0|0|0|1.5|0|0|0|0|0|1|0|0.05|0.05|0.05|0|1
1250 | ;						MatrixGreyScale = 0.299|0.299|0.299|0|0|0.587|0.587|0.587|0|0|0.114|0.114|0.114|0|0|0|0|0|1|0|0|0|0|0|1
1251 | ;						MatrixNegative = -1|0|0|0|0|0|-1|0|0|0|0|0|-1|0|0|0|0|0|1|0|0|0|0|0|1
1252 | 
1253 | Gdip_DrawImage(pGraphics, pBitmap, dx="", dy="", dw="", dh="", sx="", sy="", sw="", sh="", Matrix=1)
1254 | {
1255 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1256 | 	
1257 | 	if (Matrix&1 = "")
1258 | 		ImageAttr := Gdip_SetImageAttributesColorMatrix(Matrix)
1259 | 	else if (Matrix != 1)
1260 | 		ImageAttr := Gdip_SetImageAttributesColorMatrix("1|0|0|0|0|0|1|0|0|0|0|0|1|0|0|0|0|0|" Matrix "|0|0|0|0|0|1")
1261 | 
1262 | 	if (sx = "" && sy = "" && sw = "" && sh = "")
1263 | 	{
1264 | 		if (dx = "" && dy = "" && dw = "" && dh = "")
1265 | 		{
1266 | 			sx := dx := 0, sy := dy := 0
1267 | 			sw := dw := Gdip_GetImageWidth(pBitmap)
1268 | 			sh := dh := Gdip_GetImageHeight(pBitmap)
1269 | 		}
1270 | 		else
1271 | 		{
1272 | 			sx := sy := 0
1273 | 			sw := Gdip_GetImageWidth(pBitmap)
1274 | 			sh := Gdip_GetImageHeight(pBitmap)
1275 | 		}
1276 | 	}
1277 | 
1278 | 	E := DllCall("gdiplus\GdipDrawImageRectRect"
1279 | 				, Ptr, pGraphics
1280 | 				, Ptr, pBitmap
1281 | 				, "float", dx
1282 | 				, "float", dy
1283 | 				, "float", dw
1284 | 				, "float", dh
1285 | 				, "float", sx
1286 | 				, "float", sy
1287 | 				, "float", sw
1288 | 				, "float", sh
1289 | 				, "int", 2
1290 | 				, Ptr, ImageAttr
1291 | 				, Ptr, 0
1292 | 				, Ptr, 0)
1293 | 	if ImageAttr
1294 | 		Gdip_DisposeImageAttributes(ImageAttr)
1295 | 	return E
1296 | }
1297 | 
1298 | ;#####################################################################################
1299 | 
1300 | ; Function				Gdip_SetImageAttributesColorMatrix
1301 | ; Description			This function creates an image matrix ready for drawing
1302 | ;
1303 | ; Matrix				a matrix used to alter image attributes when drawing
1304 | ;						passed with any delimeter
1305 | ;
1306 | ; return				returns an image matrix on sucess or 0 if it fails
1307 | ;
1308 | ; notes					MatrixBright = 1.5|0|0|0|0|0|1.5|0|0|0|0|0|1.5|0|0|0|0|0|1|0|0.05|0.05|0.05|0|1
1309 | ;						MatrixGreyScale = 0.299|0.299|0.299|0|0|0.587|0.587|0.587|0|0|0.114|0.114|0.114|0|0|0|0|0|1|0|0|0|0|0|1
1310 | ;						MatrixNegative = -1|0|0|0|0|0|-1|0|0|0|0|0|-1|0|0|0|0|0|1|0|0|0|0|0|1
1311 | 
1312 | Gdip_SetImageAttributesColorMatrix(Matrix)
1313 | {
1314 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1315 | 	
1316 | 	VarSetCapacity(ColourMatrix, 100, 0)
1317 | 	Matrix := RegExReplace(RegExReplace(Matrix, "^[^\d-\.]+([\d\.])", "$1", "", 1), "[^\d-\.]+", "|")
1318 | 	StringSplit, Matrix, Matrix, |
1319 | 	Loop, 25
1320 | 	{
1321 | 		Matrix := (Matrix%A_Index% != "") ? Matrix%A_Index% : Mod(A_Index-1, 6) ? 0 : 1
1322 | 		NumPut(Matrix, ColourMatrix, (A_Index-1)*4, "float")
1323 | 	}
1324 | 	DllCall("gdiplus\GdipCreateImageAttributes", A_PtrSize ? "UPtr*" : "uint*", ImageAttr)
1325 | 	DllCall("gdiplus\GdipSetImageAttributesColorMatrix", Ptr, ImageAttr, "int", 1, "int", 1, Ptr, &ColourMatrix, Ptr, 0, "int", 0)
1326 | 	return ImageAttr
1327 | }
1328 | 
1329 | ;#####################################################################################
1330 | 
1331 | ; Function				Gdip_GraphicsFromImage
1332 | ; Description			This function gets the graphics for a bitmap used for drawing functions
1333 | ;
1334 | ; pBitmap				Pointer to a bitmap to get the pointer to its graphics
1335 | ;
1336 | ; return				returns a pointer to the graphics of a bitmap
1337 | ;
1338 | ; notes					a bitmap can be drawn into the graphics of another bitmap
1339 | 
1340 | Gdip_GraphicsFromImage(pBitmap)
1341 | {
1342 | 	DllCall("gdiplus\GdipGetImageGraphicsContext", A_PtrSize ? "UPtr" : "UInt", pBitmap, A_PtrSize ? "UPtr*" : "UInt*", pGraphics)
1343 | 	return pGraphics
1344 | }
1345 | 
1346 | ;#####################################################################################
1347 | 
1348 | ; Function				Gdip_GraphicsFromHDC
1349 | ; Description			This function gets the graphics from the handle to a device context
1350 | ;
1351 | ; hdc					This is the handle to the device context
1352 | ;
1353 | ; return				returns a pointer to the graphics of a bitmap
1354 | ;
1355 | ; notes					You can draw a bitmap into the graphics of another bitmap
1356 | 
1357 | Gdip_GraphicsFromHDC(hdc)
1358 | {
1359 |     DllCall("gdiplus\GdipCreateFromHDC", A_PtrSize ? "UPtr" : "UInt", hdc, A_PtrSize ? "UPtr*" : "UInt*", pGraphics)
1360 |     return pGraphics
1361 | }
1362 | 
1363 | ;#####################################################################################
1364 | 
1365 | ; Function				Gdip_GetDC
1366 | ; Description			This function gets the device context of the passed Graphics
1367 | ;
1368 | ; hdc					This is the handle to the device context
1369 | ;
1370 | ; return				returns the device context for the graphics of a bitmap
1371 | 
1372 | Gdip_GetDC(pGraphics)
1373 | {
1374 | 	DllCall("gdiplus\GdipGetDC", A_PtrSize ? "UPtr" : "UInt", pGraphics, A_PtrSize ? "UPtr*" : "UInt*", hdc)
1375 | 	return hdc
1376 | }
1377 | 
1378 | ;#####################################################################################
1379 | 
1380 | ; Function				Gdip_ReleaseDC
1381 | ; Description			This function releases a device context from use for further use
1382 | ;
1383 | ; pGraphics				Pointer to the graphics of a bitmap
1384 | ; hdc					This is the handle to the device context
1385 | ;
1386 | ; return				status enumeration. 0 = success
1387 | 
1388 | Gdip_ReleaseDC(pGraphics, hdc)
1389 | {
1390 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1391 | 	
1392 | 	return DllCall("gdiplus\GdipReleaseDC", Ptr, pGraphics, Ptr, hdc)
1393 | }
1394 | 
1395 | ;#####################################################################################
1396 | 
1397 | ; Function				Gdip_GraphicsClear
1398 | ; Description			Clears the graphics of a bitmap ready for further drawing
1399 | ;
1400 | ; pGraphics				Pointer to the graphics of a bitmap
1401 | ; ARGB					The colour to clear the graphics to
1402 | ;
1403 | ; return				status enumeration. 0 = success
1404 | ;
1405 | ; notes					By default this will make the background invisible
1406 | ;						Using clipping regions you can clear a particular area on the graphics rather than clearing the entire graphics
1407 | 
1408 | Gdip_GraphicsClear(pGraphics, ARGB=0x00ffffff)
1409 | {
1410 |     return DllCall("gdiplus\GdipGraphicsClear", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", ARGB)
1411 | }
1412 | 
1413 | ;#####################################################################################
1414 | 
1415 | ; Function				Gdip_BlurBitmap
1416 | ; Description			Gives a pointer to a blurred bitmap from a pointer to a bitmap
1417 | ;
1418 | ; pBitmap				Pointer to a bitmap to be blurred
1419 | ; Blur					The Amount to blur a bitmap by from 1 (least blur) to 100 (most blur)
1420 | ;
1421 | ; return				If the function succeeds, the return value is a pointer to the new blurred bitmap
1422 | ;						-1 = The blur parameter is outside the range 1-100
1423 | ;
1424 | ; notes					This function will not dispose of the original bitmap
1425 | 
1426 | Gdip_BlurBitmap(pBitmap, Blur)
1427 | {
1428 | 	if (Blur > 100) || (Blur < 1)
1429 | 		return -1	
1430 | 	
1431 | 	sWidth := Gdip_GetImageWidth(pBitmap), sHeight := Gdip_GetImageHeight(pBitmap)
1432 | 	dWidth := sWidth//Blur, dHeight := sHeight//Blur
1433 | 
1434 | 	pBitmap1 := Gdip_CreateBitmap(dWidth, dHeight)
1435 | 	G1 := Gdip_GraphicsFromImage(pBitmap1)
1436 | 	Gdip_SetInterpolationMode(G1, 7)
1437 | 	Gdip_DrawImage(G1, pBitmap, 0, 0, dWidth, dHeight, 0, 0, sWidth, sHeight)
1438 | 
1439 | 	Gdip_DeleteGraphics(G1)
1440 | 
1441 | 	pBitmap2 := Gdip_CreateBitmap(sWidth, sHeight)
1442 | 	G2 := Gdip_GraphicsFromImage(pBitmap2)
1443 | 	Gdip_SetInterpolationMode(G2, 7)
1444 | 	Gdip_DrawImage(G2, pBitmap1, 0, 0, sWidth, sHeight, 0, 0, dWidth, dHeight)
1445 | 
1446 | 	Gdip_DeleteGraphics(G2)
1447 | 	Gdip_DisposeImage(pBitmap1)
1448 | 	return pBitmap2
1449 | }
1450 | 
1451 | ;#####################################################################################
1452 | 
1453 | ; Function:     		Gdip_SaveBitmapToFile
1454 | ; Description:  		Saves a bitmap to a file in any supported format onto disk
1455 | ;   
1456 | ; pBitmap				Pointer to a bitmap
1457 | ; sOutput      			The name of the file that the bitmap will be saved to. Supported extensions are: .BMP,.DIB,.RLE,.JPG,.JPEG,.JPE,.JFIF,.GIF,.TIF,.TIFF,.PNG
1458 | ; Quality      			If saving as jpg (.JPG,.JPEG,.JPE,.JFIF) then quality can be 1-100 with default at maximum quality
1459 | ;
1460 | ; return      			If the function succeeds, the return value is zero, otherwise:
1461 | ;						-1 = Extension supplied is not a supported file format
1462 | ;						-2 = Could not get a list of encoders on system
1463 | ;						-3 = Could not find matching encoder for specified file format
1464 | ;						-4 = Could not get WideChar name of output file
1465 | ;						-5 = Could not save file to disk
1466 | ;
1467 | ; notes					This function will use the extension supplied from the sOutput parameter to determine the output format
1468 | 
1469 | Gdip_SaveBitmapToFile(pBitmap, sOutput, Quality=75)
1470 | {
1471 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1472 | 	
1473 | 	SplitPath, sOutput,,, Extension
1474 | 	if Extension not in BMP,DIB,RLE,JPG,JPEG,JPE,JFIF,GIF,TIF,TIFF,PNG
1475 | 		return -1
1476 | 	Extension := "." Extension
1477 | 
1478 | 	DllCall("gdiplus\GdipGetImageEncodersSize", "uint*", nCount, "uint*", nSize)
1479 | 	VarSetCapacity(ci, nSize)
1480 | 	DllCall("gdiplus\GdipGetImageEncoders", "uint", nCount, "uint", nSize, Ptr, &ci)
1481 | 	if !(nCount && nSize)
1482 | 		return -2
1483 | 	
1484 | 	If (A_IsUnicode){
1485 | 		StrGet_Name := "StrGet"
1486 | 		Loop, %nCount%
1487 | 		{
1488 | 			sString := %StrGet_Name%(NumGet(ci, (idx := (48+7*A_PtrSize)*(A_Index-1))+32+3*A_PtrSize), "UTF-16")
1489 | 			if !InStr(sString, "*" Extension)
1490 | 				continue
1491 | 			
1492 | 			pCodec := &ci+idx
1493 | 			break
1494 | 		}
1495 | 	} else {
1496 | 		Loop, %nCount%
1497 | 		{
1498 | 			Location := NumGet(ci, 76*(A_Index-1)+44)
1499 | 			nSize := DllCall("WideCharToMultiByte", "uint", 0, "uint", 0, "uint", Location, "int", -1, "uint", 0, "int",  0, "uint", 0, "uint", 0)
1500 | 			VarSetCapacity(sString, nSize)
1501 | 			DllCall("WideCharToMultiByte", "uint", 0, "uint", 0, "uint", Location, "int", -1, "str", sString, "int", nSize, "uint", 0, "uint", 0)
1502 | 			if !InStr(sString, "*" Extension)
1503 | 				continue
1504 | 			
1505 | 			pCodec := &ci+76*(A_Index-1)
1506 | 			break
1507 | 		}
1508 | 	}
1509 | 	
1510 | 	if !pCodec
1511 | 		return -3
1512 | 
1513 | 	if (Quality != 75)
1514 | 	{
1515 | 		Quality := (Quality < 0) ? 0 : (Quality > 100) ? 100 : Quality
1516 | 		if Extension in .JPG,.JPEG,.JPE,.JFIF
1517 | 		{
1518 | 			DllCall("gdiplus\GdipGetEncoderParameterListSize", Ptr, pBitmap, Ptr, pCodec, "uint*", nSize)
1519 | 			VarSetCapacity(EncoderParameters, nSize, 0)
1520 | 			DllCall("gdiplus\GdipGetEncoderParameterList", Ptr, pBitmap, Ptr, pCodec, "uint", nSize, Ptr, &EncoderParameters)
1521 | 			Loop, % NumGet(EncoderParameters, "UInt")      ;%
1522 | 			{
1523 | 				elem := (24+(A_PtrSize ? A_PtrSize : 4))*(A_Index-1) + 4 + (pad := A_PtrSize = 8 ? 4 : 0)
1524 | 				if (NumGet(EncoderParameters, elem+16, "UInt") = 1) && (NumGet(EncoderParameters, elem+20, "UInt") = 6)
1525 | 				{
1526 | 					p := elem+&EncoderParameters-pad-4
1527 | 					NumPut(Quality, NumGet(NumPut(4, NumPut(1, p+0)+20, "UInt")), "UInt")
1528 | 					break
1529 | 				}
1530 | 			}      
1531 | 		}
1532 | 	}
1533 | 
1534 | 	if (!A_IsUnicode)
1535 | 	{
1536 | 		nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sOutput, "int", -1, Ptr, 0, "int", 0)
1537 | 		VarSetCapacity(wOutput, nSize*2)
1538 | 		DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sOutput, "int", -1, Ptr, &wOutput, "int", nSize)
1539 | 		VarSetCapacity(wOutput, -1)
1540 | 		if !VarSetCapacity(wOutput)
1541 | 			return -4
1542 | 		E := DllCall("gdiplus\GdipSaveImageToFile", Ptr, pBitmap, Ptr, &wOutput, Ptr, pCodec, "uint", p ? p : 0)
1543 | 	}
1544 | 	else
1545 | 		E := DllCall("gdiplus\GdipSaveImageToFile", Ptr, pBitmap, Ptr, &sOutput, Ptr, pCodec, "uint", p ? p : 0)
1546 | 	return E ? -5 : 0
1547 | }
1548 | 
1549 | ;#####################################################################################
1550 | 
1551 | ; Function				Gdip_GetPixel
1552 | ; Description			Gets the ARGB of a pixel in a bitmap
1553 | ;
1554 | ; pBitmap				Pointer to a bitmap
1555 | ; x						x-coordinate of the pixel
1556 | ; y						y-coordinate of the pixel
1557 | ;
1558 | ; return				Returns the ARGB value of the pixel
1559 | 
1560 | Gdip_GetPixel(pBitmap, x, y)
1561 | {
1562 | 	DllCall("gdiplus\GdipBitmapGetPixel", A_PtrSize ? "UPtr" : "UInt", pBitmap, "int", x, "int", y, "uint*", ARGB)
1563 | 	return ARGB
1564 | }
1565 | 
1566 | ;#####################################################################################
1567 | 
1568 | ; Function				Gdip_SetPixel
1569 | ; Description			Sets the ARGB of a pixel in a bitmap
1570 | ;
1571 | ; pBitmap				Pointer to a bitmap
1572 | ; x						x-coordinate of the pixel
1573 | ; y						y-coordinate of the pixel
1574 | ;
1575 | ; return				status enumeration. 0 = success
1576 | 
1577 | Gdip_SetPixel(pBitmap, x, y, ARGB)
1578 | {
1579 |    return DllCall("gdiplus\GdipBitmapSetPixel", A_PtrSize ? "UPtr" : "UInt", pBitmap, "int", x, "int", y, "int", ARGB)
1580 | }
1581 | 
1582 | ;#####################################################################################
1583 | 
1584 | ; Function				Gdip_GetImageWidth
1585 | ; Description			Gives the width of a bitmap
1586 | ;
1587 | ; pBitmap				Pointer to a bitmap
1588 | ;
1589 | ; return				Returns the width in pixels of the supplied bitmap
1590 | 
1591 | Gdip_GetImageWidth(pBitmap)
1592 | {
1593 |    DllCall("gdiplus\GdipGetImageWidth", A_PtrSize ? "UPtr" : "UInt", pBitmap, "uint*", Width)
1594 |    return Width
1595 | }
1596 | 
1597 | ;#####################################################################################
1598 | 
1599 | ; Function				Gdip_GetImageHeight
1600 | ; Description			Gives the height of a bitmap
1601 | ;
1602 | ; pBitmap				Pointer to a bitmap
1603 | ;
1604 | ; return				Returns the height in pixels of the supplied bitmap
1605 | 
1606 | Gdip_GetImageHeight(pBitmap)
1607 | {
1608 |    DllCall("gdiplus\GdipGetImageHeight", A_PtrSize ? "UPtr" : "UInt", pBitmap, "uint*", Height)
1609 |    return Height
1610 | }
1611 | 
1612 | ;#####################################################################################
1613 | 
1614 | ; Function				Gdip_GetDimensions
1615 | ; Description			Gives the width and height of a bitmap
1616 | ;
1617 | ; pBitmap				Pointer to a bitmap
1618 | ; Width					ByRef variable. This variable will be set to the width of the bitmap
1619 | ; Height				ByRef variable. This variable will be set to the height of the bitmap
1620 | ;
1621 | ; return				No return value
1622 | ;						Gdip_GetDimensions(pBitmap, ThisWidth, ThisHeight) will set ThisWidth to the width and ThisHeight to the height
1623 | 
1624 | Gdip_GetImageDimensions(pBitmap, ByRef Width, ByRef Height)
1625 | {
1626 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1627 | 	DllCall("gdiplus\GdipGetImageWidth", Ptr, pBitmap, "uint*", Width)
1628 | 	DllCall("gdiplus\GdipGetImageHeight", Ptr, pBitmap, "uint*", Height)
1629 | }
1630 | 
1631 | ;#####################################################################################
1632 | 
1633 | Gdip_GetDimensions(pBitmap, ByRef Width, ByRef Height)
1634 | {
1635 | 	Gdip_GetImageDimensions(pBitmap, Width, Height)
1636 | }
1637 | 
1638 | ;#####################################################################################
1639 | 
1640 | Gdip_GetImagePixelFormat(pBitmap)
1641 | {
1642 | 	DllCall("gdiplus\GdipGetImagePixelFormat", A_PtrSize ? "UPtr" : "UInt", pBitmap, A_PtrSize ? "UPtr*" : "UInt*", Format)
1643 | 	return Format
1644 | }
1645 | 
1646 | ;#####################################################################################
1647 | 
1648 | ; Function				Gdip_GetDpiX
1649 | ; Description			Gives the horizontal dots per inch of the graphics of a bitmap
1650 | ;
1651 | ; pBitmap				Pointer to a bitmap
1652 | ; Width					ByRef variable. This variable will be set to the width of the bitmap
1653 | ; Height				ByRef variable. This variable will be set to the height of the bitmap
1654 | ;
1655 | ; return				No return value
1656 | ;						Gdip_GetDimensions(pBitmap, ThisWidth, ThisHeight) will set ThisWidth to the width and ThisHeight to the height
1657 | 
1658 | Gdip_GetDpiX(pGraphics)
1659 | {
1660 | 	DllCall("gdiplus\GdipGetDpiX", A_PtrSize ? "UPtr" : "uint", pGraphics, "float*", dpix)
1661 | 	return Round(dpix)
1662 | }
1663 | 
1664 | ;#####################################################################################
1665 | 
1666 | Gdip_GetDpiY(pGraphics)
1667 | {
1668 | 	DllCall("gdiplus\GdipGetDpiY", A_PtrSize ? "UPtr" : "uint", pGraphics, "float*", dpiy)
1669 | 	return Round(dpiy)
1670 | }
1671 | 
1672 | ;#####################################################################################
1673 | 
1674 | Gdip_GetImageHorizontalResolution(pBitmap)
1675 | {
1676 | 	DllCall("gdiplus\GdipGetImageHorizontalResolution", A_PtrSize ? "UPtr" : "uint", pBitmap, "float*", dpix)
1677 | 	return Round(dpix)
1678 | }
1679 | 
1680 | ;#####################################################################################
1681 | 
1682 | Gdip_GetImageVerticalResolution(pBitmap)
1683 | {
1684 | 	DllCall("gdiplus\GdipGetImageVerticalResolution", A_PtrSize ? "UPtr" : "uint", pBitmap, "float*", dpiy)
1685 | 	return Round(dpiy)
1686 | }
1687 | 
1688 | ;#####################################################################################
1689 | 
1690 | Gdip_BitmapSetResolution(pBitmap, dpix, dpiy)
1691 | {
1692 | 	return DllCall("gdiplus\GdipBitmapSetResolution", A_PtrSize ? "UPtr" : "uint", pBitmap, "float", dpix, "float", dpiy)
1693 | }
1694 | 
1695 | ;#####################################################################################
1696 | 
1697 | Gdip_CreateBitmapFromFile(sFile, IconNumber=1, IconSize="")
1698 | {
1699 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1700 | 	, PtrA := A_PtrSize ? "UPtr*" : "UInt*"
1701 | 	
1702 | 	SplitPath, sFile,,, ext
1703 | 	if ext in exe,dll
1704 | 	{
1705 | 		Sizes := IconSize ? IconSize : 256 "|" 128 "|" 64 "|" 48 "|" 32 "|" 16
1706 | 		BufSize := 16 + (2*(A_PtrSize ? A_PtrSize : 4))
1707 | 		
1708 | 		VarSetCapacity(buf, BufSize, 0)
1709 | 		Loop, Parse, Sizes, |
1710 | 		{
1711 | 			DllCall("PrivateExtractIcons", "str", sFile, "int", IconNumber-1, "int", A_LoopField, "int", A_LoopField, PtrA, hIcon, PtrA, 0, "uint", 1, "uint", 0)
1712 | 			
1713 | 			if !hIcon
1714 | 				continue
1715 | 
1716 | 			if !DllCall("GetIconInfo", Ptr, hIcon, Ptr, &buf)
1717 | 			{
1718 | 				DestroyIcon(hIcon)
1719 | 				continue
1720 | 			}
1721 | 			
1722 | 			hbmMask  := NumGet(buf, 12 + ((A_PtrSize ? A_PtrSize : 4) - 4))
1723 | 			hbmColor := NumGet(buf, 12 + ((A_PtrSize ? A_PtrSize : 4) - 4) + (A_PtrSize ? A_PtrSize : 4))
1724 | 			if !(hbmColor && DllCall("GetObject", Ptr, hbmColor, "int", BufSize, Ptr, &buf))
1725 | 			{
1726 | 				DestroyIcon(hIcon)
1727 | 				continue
1728 | 			}
1729 | 			break
1730 | 		}
1731 | 		if !hIcon
1732 | 			return -1
1733 | 
1734 | 		Width := NumGet(buf, 4, "int"), Height := NumGet(buf, 8, "int")
1735 | 		hbm := CreateDIBSection(Width, -Height), hdc := CreateCompatibleDC(), obm := SelectObject(hdc, hbm)
1736 | 		if !DllCall("DrawIconEx", Ptr, hdc, "int", 0, "int", 0, Ptr, hIcon, "uint", Width, "uint", Height, "uint", 0, Ptr, 0, "uint", 3)
1737 | 		{
1738 | 			DestroyIcon(hIcon)
1739 | 			return -2
1740 | 		}
1741 | 		
1742 | 		VarSetCapacity(dib, 104)
1743 | 		DllCall("GetObject", Ptr, hbm, "int", A_PtrSize = 8 ? 104 : 84, Ptr, &dib) ; sizeof(DIBSECTION) = 76+2*(A_PtrSize=8?4:0)+2*A_PtrSize
1744 | 		Stride := NumGet(dib, 12, "Int"), Bits := NumGet(dib, 20 + (A_PtrSize = 8 ? 4 : 0)) ; padding
1745 | 		DllCall("gdiplus\GdipCreateBitmapFromScan0", "int", Width, "int", Height, "int", Stride, "int", 0x26200A, Ptr, Bits, PtrA, pBitmapOld)
1746 | 		pBitmap := Gdip_CreateBitmap(Width, Height)
1747 | 		G := Gdip_GraphicsFromImage(pBitmap)
1748 | 		, Gdip_DrawImage(G, pBitmapOld, 0, 0, Width, Height, 0, 0, Width, Height)
1749 | 		SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
1750 | 		Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmapOld)
1751 | 		DestroyIcon(hIcon)
1752 | 	}
1753 | 	else
1754 | 	{
1755 | 		if (!A_IsUnicode)
1756 | 		{
1757 | 			VarSetCapacity(wFile, 1024)
1758 | 			DllCall("kernel32\MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sFile, "int", -1, Ptr, &wFile, "int", 512)
1759 | 			DllCall("gdiplus\GdipCreateBitmapFromFile", Ptr, &wFile, PtrA, pBitmap)
1760 | 		}
1761 | 		else
1762 | 			DllCall("gdiplus\GdipCreateBitmapFromFile", Ptr, &sFile, PtrA, pBitmap)
1763 | 	}
1764 | 	
1765 | 	return pBitmap
1766 | }
1767 | 
1768 | ;#####################################################################################
1769 | 
1770 | Gdip_CreateBitmapFromHBITMAP(hBitmap, Palette=0)
1771 | {
1772 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1773 | 	
1774 | 	DllCall("gdiplus\GdipCreateBitmapFromHBITMAP", Ptr, hBitmap, Ptr, Palette, A_PtrSize ? "UPtr*" : "uint*", pBitmap)
1775 | 	return pBitmap
1776 | }
1777 | 
1778 | ;#####################################################################################
1779 | 
1780 | Gdip_CreateHBITMAPFromBitmap(pBitmap, Background=0xffffffff)
1781 | {
1782 | 	DllCall("gdiplus\GdipCreateHBITMAPFromBitmap", A_PtrSize ? "UPtr" : "UInt", pBitmap, A_PtrSize ? "UPtr*" : "uint*", hbm, "int", Background)
1783 | 	return hbm
1784 | }
1785 | 
1786 | ;#####################################################################################
1787 | 
1788 | Gdip_CreateBitmapFromHICON(hIcon)
1789 | {
1790 | 	DllCall("gdiplus\GdipCreateBitmapFromHICON", A_PtrSize ? "UPtr" : "UInt", hIcon, A_PtrSize ? "UPtr*" : "uint*", pBitmap)
1791 | 	return pBitmap
1792 | }
1793 | 
1794 | ;#####################################################################################
1795 | 
1796 | Gdip_CreateHICONFromBitmap(pBitmap)
1797 | {
1798 | 	DllCall("gdiplus\GdipCreateHICONFromBitmap", A_PtrSize ? "UPtr" : "UInt", pBitmap, A_PtrSize ? "UPtr*" : "uint*", hIcon)
1799 | 	return hIcon
1800 | }
1801 | 
1802 | ;#####################################################################################
1803 | 
1804 | Gdip_CreateBitmap(Width, Height, Format=0x26200A)
1805 | {
1806 |     DllCall("gdiplus\GdipCreateBitmapFromScan0", "int", Width, "int", Height, "int", 0, "int", Format, A_PtrSize ? "UPtr" : "UInt", 0, A_PtrSize ? "UPtr*" : "uint*", pBitmap)
1807 |     Return pBitmap
1808 | }
1809 | 
1810 | ;#####################################################################################
1811 | 
1812 | Gdip_CreateBitmapFromClipboard()
1813 | {
1814 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1815 | 	
1816 | 	if !DllCall("OpenClipboard", Ptr, 0)
1817 | 		return -1
1818 | 	if !DllCall("IsClipboardFormatAvailable", "uint", 8)
1819 | 		return -2
1820 | 	if !hBitmap := DllCall("GetClipboardData", "uint", 2, Ptr)
1821 | 		return -3
1822 | 	if !pBitmap := Gdip_CreateBitmapFromHBITMAP(hBitmap)
1823 | 		return -4
1824 | 	if !DllCall("CloseClipboard")
1825 | 		return -5
1826 | 	DeleteObject(hBitmap)
1827 | 	return pBitmap
1828 | }
1829 | 
1830 | ;#####################################################################################
1831 | 
1832 | Gdip_SetBitmapToClipboard(pBitmap)
1833 | {
1834 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1835 | 	off1 := A_PtrSize = 8 ? 52 : 44, off2 := A_PtrSize = 8 ? 32 : 24
1836 | 	hBitmap := Gdip_CreateHBITMAPFromBitmap(pBitmap)
1837 | 	DllCall("GetObject", Ptr, hBitmap, "int", VarSetCapacity(oi, A_PtrSize = 8 ? 104 : 84, 0), Ptr, &oi)
1838 | 	hdib := DllCall("GlobalAlloc", "uint", 2, Ptr, 40+NumGet(oi, off1, "UInt"), Ptr)
1839 | 	pdib := DllCall("GlobalLock", Ptr, hdib, Ptr)
1840 | 	DllCall("RtlMoveMemory", Ptr, pdib, Ptr, &oi+off2, Ptr, 40)
1841 | 	DllCall("RtlMoveMemory", Ptr, pdib+40, Ptr, NumGet(oi, off2 - (A_PtrSize ? A_PtrSize : 4), Ptr), Ptr, NumGet(oi, off1, "UInt"))
1842 | 	DllCall("GlobalUnlock", Ptr, hdib)
1843 | 	DllCall("DeleteObject", Ptr, hBitmap)
1844 | 	DllCall("OpenClipboard", Ptr, 0)
1845 | 	DllCall("EmptyClipboard")
1846 | 	DllCall("SetClipboardData", "uint", 8, Ptr, hdib)
1847 | 	DllCall("CloseClipboard")
1848 | }
1849 | 
1850 | ;#####################################################################################
1851 | 
1852 | Gdip_CloneBitmapArea(pBitmap, x, y, w, h, Format=0x26200A)
1853 | {
1854 | 	DllCall("gdiplus\GdipCloneBitmapArea"
1855 | 					, "float", x
1856 | 					, "float", y
1857 | 					, "float", w
1858 | 					, "float", h
1859 | 					, "int", Format
1860 | 					, A_PtrSize ? "UPtr" : "UInt", pBitmap
1861 | 					, A_PtrSize ? "UPtr*" : "UInt*", pBitmapDest)
1862 | 	return pBitmapDest
1863 | }
1864 | 
1865 | ;#####################################################################################
1866 | ; Create resources
1867 | ;#####################################################################################
1868 | 
1869 | Gdip_CreatePen(ARGB, w)
1870 | {
1871 |    DllCall("gdiplus\GdipCreatePen1", "UInt", ARGB, "float", w, "int", 2, A_PtrSize ? "UPtr*" : "UInt*", pPen)
1872 |    return pPen
1873 | }
1874 | 
1875 | ;#####################################################################################
1876 | 
1877 | Gdip_CreatePenFromBrush(pBrush, w)
1878 | {
1879 | 	DllCall("gdiplus\GdipCreatePen2", A_PtrSize ? "UPtr" : "UInt", pBrush, "float", w, "int", 2, A_PtrSize ? "UPtr*" : "UInt*", pPen)
1880 | 	return pPen
1881 | }
1882 | 
1883 | ;#####################################################################################
1884 | 
1885 | Gdip_BrushCreateSolid(ARGB=0xff000000)
1886 | {
1887 | 	DllCall("gdiplus\GdipCreateSolidFill", "UInt", ARGB, A_PtrSize ? "UPtr*" : "UInt*", pBrush)
1888 | 	return pBrush
1889 | }
1890 | 
1891 | ;#####################################################################################
1892 | 
1893 | ; HatchStyleHorizontal = 0
1894 | ; HatchStyleVertical = 1
1895 | ; HatchStyleForwardDiagonal = 2
1896 | ; HatchStyleBackwardDiagonal = 3
1897 | ; HatchStyleCross = 4
1898 | ; HatchStyleDiagonalCross = 5
1899 | ; HatchStyle05Percent = 6
1900 | ; HatchStyle10Percent = 7
1901 | ; HatchStyle20Percent = 8
1902 | ; HatchStyle25Percent = 9
1903 | ; HatchStyle30Percent = 10
1904 | ; HatchStyle40Percent = 11
1905 | ; HatchStyle50Percent = 12
1906 | ; HatchStyle60Percent = 13
1907 | ; HatchStyle70Percent = 14
1908 | ; HatchStyle75Percent = 15
1909 | ; HatchStyle80Percent = 16
1910 | ; HatchStyle90Percent = 17
1911 | ; HatchStyleLightDownwardDiagonal = 18
1912 | ; HatchStyleLightUpwardDiagonal = 19
1913 | ; HatchStyleDarkDownwardDiagonal = 20
1914 | ; HatchStyleDarkUpwardDiagonal = 21
1915 | ; HatchStyleWideDownwardDiagonal = 22
1916 | ; HatchStyleWideUpwardDiagonal = 23
1917 | ; HatchStyleLightVertical = 24
1918 | ; HatchStyleLightHorizontal = 25
1919 | ; HatchStyleNarrowVertical = 26
1920 | ; HatchStyleNarrowHorizontal = 27
1921 | ; HatchStyleDarkVertical = 28
1922 | ; HatchStyleDarkHorizontal = 29
1923 | ; HatchStyleDashedDownwardDiagonal = 30
1924 | ; HatchStyleDashedUpwardDiagonal = 31
1925 | ; HatchStyleDashedHorizontal = 32
1926 | ; HatchStyleDashedVertical = 33
1927 | ; HatchStyleSmallConfetti = 34
1928 | ; HatchStyleLargeConfetti = 35
1929 | ; HatchStyleZigZag = 36
1930 | ; HatchStyleWave = 37
1931 | ; HatchStyleDiagonalBrick = 38
1932 | ; HatchStyleHorizontalBrick = 39
1933 | ; HatchStyleWeave = 40
1934 | ; HatchStylePlaid = 41
1935 | ; HatchStyleDivot = 42
1936 | ; HatchStyleDottedGrid = 43
1937 | ; HatchStyleDottedDiamond = 44
1938 | ; HatchStyleShingle = 45
1939 | ; HatchStyleTrellis = 46
1940 | ; HatchStyleSphere = 47
1941 | ; HatchStyleSmallGrid = 48
1942 | ; HatchStyleSmallCheckerBoard = 49
1943 | ; HatchStyleLargeCheckerBoard = 50
1944 | ; HatchStyleOutlinedDiamond = 51
1945 | ; HatchStyleSolidDiamond = 52
1946 | ; HatchStyleTotal = 53
1947 | Gdip_BrushCreateHatch(ARGBfront, ARGBback, HatchStyle=0)
1948 | {
1949 | 	DllCall("gdiplus\GdipCreateHatchBrush", "int", HatchStyle, "UInt", ARGBfront, "UInt", ARGBback, A_PtrSize ? "UPtr*" : "UInt*", pBrush)
1950 | 	return pBrush
1951 | }
1952 | 
1953 | ;#####################################################################################
1954 | 
1955 | Gdip_CreateTextureBrush(pBitmap, WrapMode=1, x=0, y=0, w="", h="")
1956 | {
1957 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1958 | 	, PtrA := A_PtrSize ? "UPtr*" : "UInt*"
1959 | 	
1960 | 	if !(w && h)
1961 | 		DllCall("gdiplus\GdipCreateTexture", Ptr, pBitmap, "int", WrapMode, PtrA, pBrush)
1962 | 	else
1963 | 		DllCall("gdiplus\GdipCreateTexture2", Ptr, pBitmap, "int", WrapMode, "float", x, "float", y, "float", w, "float", h, PtrA, pBrush)
1964 | 	return pBrush
1965 | }
1966 | 
1967 | ;#####################################################################################
1968 | 
1969 | ; WrapModeTile = 0
1970 | ; WrapModeTileFlipX = 1
1971 | ; WrapModeTileFlipY = 2
1972 | ; WrapModeTileFlipXY = 3
1973 | ; WrapModeClamp = 4
1974 | Gdip_CreateLineBrush(x1, y1, x2, y2, ARGB1, ARGB2, WrapMode=1)
1975 | {
1976 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
1977 | 	
1978 | 	CreatePointF(PointF1, x1, y1), CreatePointF(PointF2, x2, y2)
1979 | 	DllCall("gdiplus\GdipCreateLineBrush", Ptr, &PointF1, Ptr, &PointF2, "Uint", ARGB1, "Uint", ARGB2, "int", WrapMode, A_PtrSize ? "UPtr*" : "UInt*", LGpBrush)
1980 | 	return LGpBrush
1981 | }
1982 | 
1983 | ;#####################################################################################
1984 | 
1985 | ; LinearGradientModeHorizontal = 0
1986 | ; LinearGradientModeVertical = 1
1987 | ; LinearGradientModeForwardDiagonal = 2
1988 | ; LinearGradientModeBackwardDiagonal = 3
1989 | Gdip_CreateLineBrushFromRect(x, y, w, h, ARGB1, ARGB2, LinearGradientMode=1, WrapMode=1)
1990 | {
1991 | 	CreateRectF(RectF, x, y, w, h)
1992 | 	DllCall("gdiplus\GdipCreateLineBrushFromRect", A_PtrSize ? "UPtr" : "UInt", &RectF, "int", ARGB1, "int", ARGB2, "int", LinearGradientMode, "int", WrapMode, A_PtrSize ? "UPtr*" : "UInt*", LGpBrush)
1993 | 	return LGpBrush
1994 | }
1995 | 
1996 | ;#####################################################################################
1997 | 
1998 | Gdip_CloneBrush(pBrush)
1999 | {
2000 | 	DllCall("gdiplus\GdipCloneBrush", A_PtrSize ? "UPtr" : "UInt", pBrush, A_PtrSize ? "UPtr*" : "UInt*", pBrushClone)
2001 | 	return pBrushClone
2002 | }
2003 | 
2004 | ;#####################################################################################
2005 | ; Delete resources
2006 | ;#####################################################################################
2007 | 
2008 | Gdip_DeletePen(pPen)
2009 | {
2010 |    return DllCall("gdiplus\GdipDeletePen", A_PtrSize ? "UPtr" : "UInt", pPen)
2011 | }
2012 | 
2013 | ;#####################################################################################
2014 | 
2015 | Gdip_DeleteBrush(pBrush)
2016 | {
2017 |    return DllCall("gdiplus\GdipDeleteBrush", A_PtrSize ? "UPtr" : "UInt", pBrush)
2018 | }
2019 | 
2020 | ;#####################################################################################
2021 | 
2022 | Gdip_DisposeImage(pBitmap)
2023 | {
2024 |    return DllCall("gdiplus\GdipDisposeImage", A_PtrSize ? "UPtr" : "UInt", pBitmap)
2025 | }
2026 | 
2027 | ;#####################################################################################
2028 | 
2029 | Gdip_DeleteGraphics(pGraphics)
2030 | {
2031 |    return DllCall("gdiplus\GdipDeleteGraphics", A_PtrSize ? "UPtr" : "UInt", pGraphics)
2032 | }
2033 | 
2034 | ;#####################################################################################
2035 | 
2036 | Gdip_DisposeImageAttributes(ImageAttr)
2037 | {
2038 | 	return DllCall("gdiplus\GdipDisposeImageAttributes", A_PtrSize ? "UPtr" : "UInt", ImageAttr)
2039 | }
2040 | 
2041 | ;#####################################################################################
2042 | 
2043 | Gdip_DeleteFont(hFont)
2044 | {
2045 |    return DllCall("gdiplus\GdipDeleteFont", A_PtrSize ? "UPtr" : "UInt", hFont)
2046 | }
2047 | 
2048 | ;#####################################################################################
2049 | 
2050 | Gdip_DeleteStringFormat(hFormat)
2051 | {
2052 |    return DllCall("gdiplus\GdipDeleteStringFormat", A_PtrSize ? "UPtr" : "UInt", hFormat)
2053 | }
2054 | 
2055 | ;#####################################################################################
2056 | 
2057 | Gdip_DeleteFontFamily(hFamily)
2058 | {
2059 |    return DllCall("gdiplus\GdipDeleteFontFamily", A_PtrSize ? "UPtr" : "UInt", hFamily)
2060 | }
2061 | 
2062 | ;#####################################################################################
2063 | 
2064 | Gdip_DeleteMatrix(Matrix)
2065 | {
2066 |    return DllCall("gdiplus\GdipDeleteMatrix", A_PtrSize ? "UPtr" : "UInt", Matrix)
2067 | }
2068 | 
2069 | ;#####################################################################################
2070 | ; Text functions
2071 | ;#####################################################################################
2072 | 
2073 | Gdip_TextToGraphics(pGraphics, Text, Options, Font="Arial", Width="", Height="", Measure=0)
2074 | {
2075 | 	IWidth := Width, IHeight:= Height
2076 | 	
2077 | 	RegExMatch(Options, "i)X([\-\d\.]+)(p*)", xpos)
2078 | 	RegExMatch(Options, "i)Y([\-\d\.]+)(p*)", ypos)
2079 | 	RegExMatch(Options, "i)W([\-\d\.]+)(p*)", Width)
2080 | 	RegExMatch(Options, "i)H([\-\d\.]+)(p*)", Height)
2081 | 	RegExMatch(Options, "i)C(?!(entre|enter))([a-f\d]+)", Colour)
2082 | 	RegExMatch(Options, "i)Top|Up|Bottom|Down|vCentre|vCenter", vPos)
2083 | 	RegExMatch(Options, "i)NoWrap", NoWrap)
2084 | 	RegExMatch(Options, "i)R(\d)", Rendering)
2085 | 	RegExMatch(Options, "i)S(\d+)(p*)", Size)
2086 | 
2087 | 	if !Gdip_DeleteBrush(Gdip_CloneBrush(Colour2))
2088 | 		PassBrush := 1, pBrush := Colour2
2089 | 	
2090 | 	if !(IWidth && IHeight) && (xpos2 || ypos2 || Width2 || Height2 || Size2)
2091 | 		return -1
2092 | 
2093 | 	Style := 0, Styles := "Regular|Bold|Italic|BoldItalic|Underline|Strikeout"
2094 | 	Loop, Parse, Styles, |
2095 | 	{
2096 | 		if RegExMatch(Options, "\b" A_loopField)
2097 | 		Style |= (A_LoopField != "StrikeOut") ? (A_Index-1) : 8
2098 | 	}
2099 |   
2100 | 	Align := 0, Alignments := "Near|Left|Centre|Center|Far|Right"
2101 | 	Loop, Parse, Alignments, |
2102 | 	{
2103 | 		if RegExMatch(Options, "\b" A_loopField)
2104 | 			Align |= A_Index//2.1      ; 0|0|1|1|2|2
2105 | 	}
2106 | 
2107 | 	xpos := (xpos1 != "") ? xpos2 ? IWidth*(xpos1/100) : xpos1 : 0
2108 | 	ypos := (ypos1 != "") ? ypos2 ? IHeight*(ypos1/100) : ypos1 : 0
2109 | 	Width := Width1 ? Width2 ? IWidth*(Width1/100) : Width1 : IWidth
2110 | 	Height := Height1 ? Height2 ? IHeight*(Height1/100) : Height1 : IHeight
2111 | 	if !PassBrush
2112 | 		Colour := "0x" (Colour2 ? Colour2 : "ff000000")
2113 | 	Rendering := ((Rendering1 >= 0) && (Rendering1 <= 5)) ? Rendering1 : 4
2114 | 	Size := (Size1 > 0) ? Size2 ? IHeight*(Size1/100) : Size1 : 12
2115 | 
2116 | 	hFamily := Gdip_FontFamilyCreate(Font)
2117 | 	hFont := Gdip_FontCreate(hFamily, Size, Style)
2118 | 	FormatStyle := NoWrap ? 0x4000 | 0x1000 : 0x4000
2119 | 	hFormat := Gdip_StringFormatCreate(FormatStyle)
2120 | 	pBrush := PassBrush ? pBrush : Gdip_BrushCreateSolid(Colour)
2121 | 	if !(hFamily && hFont && hFormat && pBrush && pGraphics)
2122 | 		return !pGraphics ? -2 : !hFamily ? -3 : !hFont ? -4 : !hFormat ? -5 : !pBrush ? -6 : 0
2123 |    
2124 | 	CreateRectF(RC, xpos, ypos, Width, Height)
2125 | 	Gdip_SetStringFormatAlign(hFormat, Align)
2126 | 	Gdip_SetTextRenderingHint(pGraphics, Rendering)
2127 | 	ReturnRC := Gdip_MeasureString(pGraphics, Text, hFont, hFormat, RC)
2128 | 
2129 | 	if vPos
2130 | 	{
2131 | 		StringSplit, ReturnRC, ReturnRC, |
2132 | 		
2133 | 		if (vPos = "vCentre") || (vPos = "vCenter")
2134 | 			ypos += (Height-ReturnRC4)//2
2135 | 		else if (vPos = "Top") || (vPos = "Up")
2136 | 			ypos := 0
2137 | 		else if (vPos = "Bottom") || (vPos = "Down")
2138 | 			ypos := Height-ReturnRC4
2139 | 		
2140 | 		CreateRectF(RC, xpos, ypos, Width, ReturnRC4)
2141 | 		ReturnRC := Gdip_MeasureString(pGraphics, Text, hFont, hFormat, RC)
2142 | 	}
2143 | 
2144 | 	if !Measure
2145 | 		E := Gdip_DrawString(pGraphics, Text, hFont, hFormat, pBrush, RC)
2146 | 
2147 | 	if !PassBrush
2148 | 		Gdip_DeleteBrush(pBrush)
2149 | 	Gdip_DeleteStringFormat(hFormat)   
2150 | 	Gdip_DeleteFont(hFont)
2151 | 	Gdip_DeleteFontFamily(hFamily)
2152 | 	return E ? E : ReturnRC
2153 | }
2154 | 
2155 | ;#####################################################################################
2156 | 
2157 | Gdip_DrawString(pGraphics, sString, hFont, hFormat, pBrush, ByRef RectF)
2158 | {
2159 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2160 | 	
2161 | 	if (!A_IsUnicode)
2162 | 	{
2163 | 		nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sString, "int", -1, Ptr, 0, "int", 0)
2164 | 		VarSetCapacity(wString, nSize*2)
2165 | 		DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sString, "int", -1, Ptr, &wString, "int", nSize)
2166 | 	}
2167 | 	
2168 | 	return DllCall("gdiplus\GdipDrawString"
2169 | 					, Ptr, pGraphics
2170 | 					, Ptr, A_IsUnicode ? &sString : &wString
2171 | 					, "int", -1
2172 | 					, Ptr, hFont
2173 | 					, Ptr, &RectF
2174 | 					, Ptr, hFormat
2175 | 					, Ptr, pBrush)
2176 | }
2177 | 
2178 | ;#####################################################################################
2179 | 
2180 | Gdip_MeasureString(pGraphics, sString, hFont, hFormat, ByRef RectF)
2181 | {
2182 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2183 | 	
2184 | 	VarSetCapacity(RC, 16)
2185 | 	if !A_IsUnicode
2186 | 	{
2187 | 		nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sString, "int", -1, "uint", 0, "int", 0)
2188 | 		VarSetCapacity(wString, nSize*2)   
2189 | 		DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sString, "int", -1, Ptr, &wString, "int", nSize)
2190 | 	}
2191 | 	
2192 | 	DllCall("gdiplus\GdipMeasureString"
2193 | 					, Ptr, pGraphics
2194 | 					, Ptr, A_IsUnicode ? &sString : &wString
2195 | 					, "int", -1
2196 | 					, Ptr, hFont
2197 | 					, Ptr, &RectF
2198 | 					, Ptr, hFormat
2199 | 					, Ptr, &RC
2200 | 					, "uint*", Chars
2201 | 					, "uint*", Lines)
2202 | 	
2203 | 	return &RC ? NumGet(RC, 0, "float") "|" NumGet(RC, 4, "float") "|" NumGet(RC, 8, "float") "|" NumGet(RC, 12, "float") "|" Chars "|" Lines : 0
2204 | }
2205 | 
2206 | ; Near = 0
2207 | ; Center = 1
2208 | ; Far = 2
2209 | Gdip_SetStringFormatAlign(hFormat, Align)
2210 | {
2211 |    return DllCall("gdiplus\GdipSetStringFormatAlign", A_PtrSize ? "UPtr" : "UInt", hFormat, "int", Align)
2212 | }
2213 | 
2214 | ; StringFormatFlagsDirectionRightToLeft    = 0x00000001
2215 | ; StringFormatFlagsDirectionVertical       = 0x00000002
2216 | ; StringFormatFlagsNoFitBlackBox           = 0x00000004
2217 | ; StringFormatFlagsDisplayFormatControl    = 0x00000020
2218 | ; StringFormatFlagsNoFontFallback          = 0x00000400
2219 | ; StringFormatFlagsMeasureTrailingSpaces   = 0x00000800
2220 | ; StringFormatFlagsNoWrap                  = 0x00001000
2221 | ; StringFormatFlagsLineLimit               = 0x00002000
2222 | ; StringFormatFlagsNoClip                  = 0x00004000 
2223 | Gdip_StringFormatCreate(Format=0, Lang=0)
2224 | {
2225 |    DllCall("gdiplus\GdipCreateStringFormat", "int", Format, "int", Lang, A_PtrSize ? "UPtr*" : "UInt*", hFormat)
2226 |    return hFormat
2227 | }
2228 | 
2229 | ; Regular = 0
2230 | ; Bold = 1
2231 | ; Italic = 2
2232 | ; BoldItalic = 3
2233 | ; Underline = 4
2234 | ; Strikeout = 8
2235 | Gdip_FontCreate(hFamily, Size, Style=0)
2236 | {
2237 |    DllCall("gdiplus\GdipCreateFont", A_PtrSize ? "UPtr" : "UInt", hFamily, "float", Size, "int", Style, "int", 0, A_PtrSize ? "UPtr*" : "UInt*", hFont)
2238 |    return hFont
2239 | }
2240 | 
2241 | Gdip_FontFamilyCreate(Font)
2242 | {
2243 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2244 | 	
2245 | 	if (!A_IsUnicode)
2246 | 	{
2247 | 		nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &Font, "int", -1, "uint", 0, "int", 0)
2248 | 		VarSetCapacity(wFont, nSize*2)
2249 | 		DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &Font, "int", -1, Ptr, &wFont, "int", nSize)
2250 | 	}
2251 | 	
2252 | 	DllCall("gdiplus\GdipCreateFontFamilyFromName"
2253 | 					, Ptr, A_IsUnicode ? &Font : &wFont
2254 | 					, "uint", 0
2255 | 					, A_PtrSize ? "UPtr*" : "UInt*", hFamily)
2256 | 	
2257 | 	return hFamily
2258 | }
2259 | 
2260 | ;#####################################################################################
2261 | ; Matrix functions
2262 | ;#####################################################################################
2263 | 
2264 | Gdip_CreateAffineMatrix(m11, m12, m21, m22, x, y)
2265 | {
2266 |    DllCall("gdiplus\GdipCreateMatrix2", "float", m11, "float", m12, "float", m21, "float", m22, "float", x, "float", y, A_PtrSize ? "UPtr*" : "UInt*", Matrix)
2267 |    return Matrix
2268 | }
2269 | 
2270 | Gdip_CreateMatrix()
2271 | {
2272 |    DllCall("gdiplus\GdipCreateMatrix", A_PtrSize ? "UPtr*" : "UInt*", Matrix)
2273 |    return Matrix
2274 | }
2275 | 
2276 | ;#####################################################################################
2277 | ; GraphicsPath functions
2278 | ;#####################################################################################
2279 | 
2280 | ; Alternate = 0
2281 | ; Winding = 1
2282 | Gdip_CreatePath(BrushMode=0)
2283 | {
2284 | 	DllCall("gdiplus\GdipCreatePath", "int", BrushMode, A_PtrSize ? "UPtr*" : "UInt*", Path)
2285 | 	return Path
2286 | }
2287 | 
2288 | Gdip_AddPathEllipse(Path, x, y, w, h)
2289 | {
2290 | 	return DllCall("gdiplus\GdipAddPathEllipse", A_PtrSize ? "UPtr" : "UInt", Path, "float", x, "float", y, "float", w, "float", h)
2291 | }
2292 | 
2293 | Gdip_AddPathPolygon(Path, Points)
2294 | {
2295 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2296 | 	
2297 | 	StringSplit, Points, Points, |
2298 | 	VarSetCapacity(PointF, 8*Points0)   
2299 | 	Loop, %Points0%
2300 | 	{
2301 | 		StringSplit, Coord, Points%A_Index%, `,
2302 | 		NumPut(Coord1, PointF, 8*(A_Index-1), "float"), NumPut(Coord2, PointF, (8*(A_Index-1))+4, "float")
2303 | 	}   
2304 | 
2305 | 	return DllCall("gdiplus\GdipAddPathPolygon", Ptr, Path, Ptr, &PointF, "int", Points0)
2306 | }
2307 | 
2308 | Gdip_DeletePath(Path)
2309 | {
2310 | 	return DllCall("gdiplus\GdipDeletePath", A_PtrSize ? "UPtr" : "UInt", Path)
2311 | }
2312 | 
2313 | ;#####################################################################################
2314 | ; Quality functions
2315 | ;#####################################################################################
2316 | 
2317 | ; SystemDefault = 0
2318 | ; SingleBitPerPixelGridFit = 1
2319 | ; SingleBitPerPixel = 2
2320 | ; AntiAliasGridFit = 3
2321 | ; AntiAlias = 4
2322 | Gdip_SetTextRenderingHint(pGraphics, RenderingHint)
2323 | {
2324 | 	return DllCall("gdiplus\GdipSetTextRenderingHint", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", RenderingHint)
2325 | }
2326 | 
2327 | ; Default = 0
2328 | ; LowQuality = 1
2329 | ; HighQuality = 2
2330 | ; Bilinear = 3
2331 | ; Bicubic = 4
2332 | ; NearestNeighbor = 5
2333 | ; HighQualityBilinear = 6
2334 | ; HighQualityBicubic = 7
2335 | Gdip_SetInterpolationMode(pGraphics, InterpolationMode)
2336 | {
2337 |    return DllCall("gdiplus\GdipSetInterpolationMode", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", InterpolationMode)
2338 | }
2339 | 
2340 | ; Default = 0
2341 | ; HighSpeed = 1
2342 | ; HighQuality = 2
2343 | ; None = 3
2344 | ; AntiAlias = 4
2345 | Gdip_SetSmoothingMode(pGraphics, SmoothingMode)
2346 | {
2347 |    return DllCall("gdiplus\GdipSetSmoothingMode", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", SmoothingMode)
2348 | }
2349 | 
2350 | ; CompositingModeSourceOver = 0 (blended)
2351 | ; CompositingModeSourceCopy = 1 (overwrite)
2352 | Gdip_SetCompositingMode(pGraphics, CompositingMode=0)
2353 | {
2354 |    return DllCall("gdiplus\GdipSetCompositingMode", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", CompositingMode)
2355 | }
2356 | 
2357 | ;#####################################################################################
2358 | ; Extra functions
2359 | ;#####################################################################################
2360 | 
2361 | Gdip_Startup()
2362 | {
2363 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2364 | 	
2365 | 	if !DllCall("GetModuleHandle", "str", "gdiplus", Ptr)
2366 | 		DllCall("LoadLibrary", "str", "gdiplus")
2367 | 	VarSetCapacity(si, A_PtrSize = 8 ? 24 : 16, 0), si := Chr(1)
2368 | 	DllCall("gdiplus\GdiplusStartup", A_PtrSize ? "UPtr*" : "uint*", pToken, Ptr, &si, Ptr, 0)
2369 | 	return pToken
2370 | }
2371 | 
2372 | Gdip_Shutdown(pToken)
2373 | {
2374 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2375 | 	
2376 | 	DllCall("gdiplus\GdiplusShutdown", Ptr, pToken)
2377 | 	if hModule := DllCall("GetModuleHandle", "str", "gdiplus", Ptr)
2378 | 		DllCall("FreeLibrary", Ptr, hModule)
2379 | 	return 0
2380 | }
2381 | 
2382 | ; Prepend = 0; The new operation is applied before the old operation.
2383 | ; Append = 1; The new operation is applied after the old operation.
2384 | Gdip_RotateWorldTransform(pGraphics, Angle, MatrixOrder=0)
2385 | {
2386 | 	return DllCall("gdiplus\GdipRotateWorldTransform", A_PtrSize ? "UPtr" : "UInt", pGraphics, "float", Angle, "int", MatrixOrder)
2387 | }
2388 | 
2389 | Gdip_ScaleWorldTransform(pGraphics, x, y, MatrixOrder=0)
2390 | {
2391 | 	return DllCall("gdiplus\GdipScaleWorldTransform", A_PtrSize ? "UPtr" : "UInt", pGraphics, "float", x, "float", y, "int", MatrixOrder)
2392 | }
2393 | 
2394 | Gdip_TranslateWorldTransform(pGraphics, x, y, MatrixOrder=0)
2395 | {
2396 | 	return DllCall("gdiplus\GdipTranslateWorldTransform", A_PtrSize ? "UPtr" : "UInt", pGraphics, "float", x, "float", y, "int", MatrixOrder)
2397 | }
2398 | 
2399 | Gdip_ResetWorldTransform(pGraphics)
2400 | {
2401 | 	return DllCall("gdiplus\GdipResetWorldTransform", A_PtrSize ? "UPtr" : "UInt", pGraphics)
2402 | }
2403 | 
2404 | Gdip_GetRotatedTranslation(Width, Height, Angle, ByRef xTranslation, ByRef yTranslation)
2405 | {
2406 | 	pi := 3.14159, TAngle := Angle*(pi/180)	
2407 | 
2408 | 	Bound := (Angle >= 0) ? Mod(Angle, 360) : 360-Mod(-Angle, -360)
2409 | 	if ((Bound >= 0) && (Bound <= 90))
2410 | 		xTranslation := Height*Sin(TAngle), yTranslation := 0
2411 | 	else if ((Bound > 90) && (Bound <= 180))
2412 | 		xTranslation := (Height*Sin(TAngle))-(Width*Cos(TAngle)), yTranslation := -Height*Cos(TAngle)
2413 | 	else if ((Bound > 180) && (Bound <= 270))
2414 | 		xTranslation := -(Width*Cos(TAngle)), yTranslation := -(Height*Cos(TAngle))-(Width*Sin(TAngle))
2415 | 	else if ((Bound > 270) && (Bound <= 360))
2416 | 		xTranslation := 0, yTranslation := -Width*Sin(TAngle)
2417 | }
2418 | 
2419 | Gdip_GetRotatedDimensions(Width, Height, Angle, ByRef RWidth, ByRef RHeight)
2420 | {
2421 | 	pi := 3.14159, TAngle := Angle*(pi/180)
2422 | 	if !(Width && Height)
2423 | 		return -1
2424 | 	RWidth := Ceil(Abs(Width*Cos(TAngle))+Abs(Height*Sin(TAngle)))
2425 | 	RHeight := Ceil(Abs(Width*Sin(TAngle))+Abs(Height*Cos(Tangle)))
2426 | }
2427 | 
2428 | ; RotateNoneFlipNone   = 0
2429 | ; Rotate90FlipNone     = 1
2430 | ; Rotate180FlipNone    = 2
2431 | ; Rotate270FlipNone    = 3
2432 | ; RotateNoneFlipX      = 4
2433 | ; Rotate90FlipX        = 5
2434 | ; Rotate180FlipX       = 6
2435 | ; Rotate270FlipX       = 7
2436 | ; RotateNoneFlipY      = Rotate180FlipX
2437 | ; Rotate90FlipY        = Rotate270FlipX
2438 | ; Rotate180FlipY       = RotateNoneFlipX
2439 | ; Rotate270FlipY       = Rotate90FlipX
2440 | ; RotateNoneFlipXY     = Rotate180FlipNone
2441 | ; Rotate90FlipXY       = Rotate270FlipNone
2442 | ; Rotate180FlipXY      = RotateNoneFlipNone
2443 | ; Rotate270FlipXY      = Rotate90FlipNone 
2444 | 
2445 | Gdip_ImageRotateFlip(pBitmap, RotateFlipType=1)
2446 | {
2447 | 	return DllCall("gdiplus\GdipImageRotateFlip", A_PtrSize ? "UPtr" : "UInt", pBitmap, "int", RotateFlipType)
2448 | }
2449 | 
2450 | ; Replace = 0
2451 | ; Intersect = 1
2452 | ; Union = 2
2453 | ; Xor = 3
2454 | ; Exclude = 4
2455 | ; Complement = 5
2456 | Gdip_SetClipRect(pGraphics, x, y, w, h, CombineMode=0)
2457 | {
2458 |    return DllCall("gdiplus\GdipSetClipRect",  A_PtrSize ? "UPtr" : "UInt", pGraphics, "float", x, "float", y, "float", w, "float", h, "int", CombineMode)
2459 | }
2460 | 
2461 | Gdip_SetClipPath(pGraphics, Path, CombineMode=0)
2462 | {
2463 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2464 | 	return DllCall("gdiplus\GdipSetClipPath", Ptr, pGraphics, Ptr, Path, "int", CombineMode)
2465 | }
2466 | 
2467 | Gdip_ResetClip(pGraphics)
2468 | {
2469 |    return DllCall("gdiplus\GdipResetClip", A_PtrSize ? "UPtr" : "UInt", pGraphics)
2470 | }
2471 | 
2472 | Gdip_GetClipRegion(pGraphics)
2473 | {
2474 | 	Region := Gdip_CreateRegion()
2475 | 	DllCall("gdiplus\GdipGetClip", A_PtrSize ? "UPtr" : "UInt", pGraphics, "UInt*", Region)
2476 | 	return Region
2477 | }
2478 | 
2479 | Gdip_SetClipRegion(pGraphics, Region, CombineMode=0)
2480 | {
2481 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2482 | 	
2483 | 	return DllCall("gdiplus\GdipSetClipRegion", Ptr, pGraphics, Ptr, Region, "int", CombineMode)
2484 | }
2485 | 
2486 | Gdip_CreateRegion()
2487 | {
2488 | 	DllCall("gdiplus\GdipCreateRegion", "UInt*", Region)
2489 | 	return Region
2490 | }
2491 | 
2492 | Gdip_DeleteRegion(Region)
2493 | {
2494 | 	return DllCall("gdiplus\GdipDeleteRegion", A_PtrSize ? "UPtr" : "UInt", Region)
2495 | }
2496 | 
2497 | ;#####################################################################################
2498 | ; BitmapLockBits
2499 | ;#####################################################################################
2500 | 
2501 | Gdip_LockBits(pBitmap, x, y, w, h, ByRef Stride, ByRef Scan0, ByRef BitmapData, LockMode = 3, PixelFormat = 0x26200a)
2502 | {
2503 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2504 | 	
2505 | 	CreateRect(Rect, x, y, w, h)
2506 | 	VarSetCapacity(BitmapData, 16+2*(A_PtrSize ? A_PtrSize : 4), 0)
2507 | 	E := DllCall("Gdiplus\GdipBitmapLockBits", Ptr, pBitmap, Ptr, &Rect, "uint", LockMode, "int", PixelFormat, Ptr, &BitmapData)
2508 | 	Stride := NumGet(BitmapData, 8, "Int")
2509 | 	Scan0 := NumGet(BitmapData, 16, Ptr)
2510 | 	return E
2511 | }
2512 | 
2513 | ;#####################################################################################
2514 | 
2515 | Gdip_UnlockBits(pBitmap, ByRef BitmapData)
2516 | {
2517 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2518 | 	
2519 | 	return DllCall("Gdiplus\GdipBitmapUnlockBits", Ptr, pBitmap, Ptr, &BitmapData)
2520 | }
2521 | 
2522 | ;#####################################################################################
2523 | 
2524 | Gdip_SetLockBitPixel(ARGB, Scan0, x, y, Stride)
2525 | {
2526 | 	Numput(ARGB, Scan0+0, (x*4)+(y*Stride), "UInt")
2527 | }
2528 | 
2529 | ;#####################################################################################
2530 | 
2531 | Gdip_GetLockBitPixel(Scan0, x, y, Stride)
2532 | {
2533 | 	return NumGet(Scan0+0, (x*4)+(y*Stride), "UInt")
2534 | }
2535 | 
2536 | ;#####################################################################################
2537 | 
2538 | Gdip_PixelateBitmap(pBitmap, ByRef pBitmapOut, BlockSize)
2539 | {
2540 | 	static PixelateBitmap
2541 | 	
2542 | 	Ptr := A_PtrSize ? "UPtr" : "UInt"
2543 | 	
2544 | 	if (!PixelateBitmap)
2545 | 	{
2546 | 		if A_PtrSize != 8 ; x86 machine code
2547 | 		MCode_PixelateBitmap =
2548 | 		(LTrim Join
2549 | 		558BEC83EC3C8B4514538B5D1C99F7FB56578BC88955EC894DD885C90F8E830200008B451099F7FB8365DC008365E000894DC88955F08945E833FF897DD4
2550 | 		397DE80F8E160100008BCB0FAFCB894DCC33C08945F88945FC89451C8945143BD87E608B45088D50028BC82BCA8BF02BF2418945F48B45E02955F4894DC4
2551 | 		8D0CB80FAFCB03CA895DD08BD1895DE40FB64416030145140FB60201451C8B45C40FB604100145FC8B45F40FB604020145F883C204FF4DE475D6034D18FF
2552 | 		4DD075C98B4DCC8B451499F7F98945148B451C99F7F989451C8B45FC99F7F98945FC8B45F899F7F98945F885DB7E648B450C8D50028BC82BCA83C103894D
2553 | 		C48BC82BCA41894DF48B4DD48945E48B45E02955E48D0C880FAFCB03CA895DD08BD18BF38A45148B7DC48804178A451C8B7DF488028A45FC8804178A45F8
2554 | 		8B7DE488043A83C2044E75DA034D18FF4DD075CE8B4DCC8B7DD447897DD43B7DE80F8CF2FEFFFF837DF0000F842C01000033C08945F88945FC89451C8945
2555 | 		148945E43BD87E65837DF0007E578B4DDC034DE48B75E80FAF4D180FAFF38B45088D500203CA8D0CB18BF08BF88945F48B45F02BF22BFA2955F48945CC0F
2556 | 		B6440E030145140FB60101451C0FB6440F010145FC8B45F40FB604010145F883C104FF4DCC75D8FF45E4395DE47C9B8B4DF00FAFCB85C9740B8B451499F7
2557 | 		F9894514EB048365140033F63BCE740B8B451C99F7F989451CEB0389751C3BCE740B8B45FC99F7F98945FCEB038975FC3BCE740B8B45F899F7F98945F8EB
2558 | 		038975F88975E43BDE7E5A837DF0007E4C8B4DDC034DE48B75E80FAF4D180FAFF38B450C8D500203CA8D0CB18BF08BF82BF22BFA2BC28B55F08955CC8A55
2559 | 		1488540E038A551C88118A55FC88540F018A55F888140183C104FF4DCC75DFFF45E4395DE47CA68B45180145E0015DDCFF4DC80F8594FDFFFF8B451099F7
2560 | 		FB8955F08945E885C00F8E450100008B45EC0FAFC38365DC008945D48B45E88945CC33C08945F88945FC89451C8945148945103945EC7E6085DB7E518B4D
2561 | 		D88B45080FAFCB034D108D50020FAF4D18034DDC8BF08BF88945F403CA2BF22BFA2955F4895DC80FB6440E030145140FB60101451C0FB6440F010145FC8B
2562 | 		45F40FB604080145F883C104FF4DC875D8FF45108B45103B45EC7CA08B4DD485C9740B8B451499F7F9894514EB048365140033F63BCE740B8B451C99F7F9
2563 | 		89451CEB0389751C3BCE740B8B45FC99F7F98945FCEB038975FC3BCE740B8B45F899F7F98945F8EB038975F88975103975EC7E5585DB7E468B4DD88B450C
2564 | 		0FAFCB034D108D50020FAF4D18034DDC8BF08BF803CA2BF22BFA2BC2895DC88A551488540E038A551C88118A55FC88540F018A55F888140183C104FF4DC8
2565 | 		75DFFF45108B45103B45EC7CAB8BC3C1E0020145DCFF4DCC0F85CEFEFFFF8B4DEC33C08945F88945FC89451C8945148945103BC87E6C3945F07E5C8B4DD8
2566 | 		8B75E80FAFCB034D100FAFF30FAF4D188B45088D500203CA8D0CB18BF08BF88945F48B45F02BF22BFA2955F48945C80FB6440E030145140FB60101451C0F
2567 | 		B6440F010145FC8B45F40FB604010145F883C104FF4DC875D833C0FF45108B4DEC394D107C940FAF4DF03BC874068B451499F7F933F68945143BCE740B8B
2568 | 		451C99F7F989451CEB0389751C3BCE740B8B45FC99F7F98945FCEB038975FC3BCE740B8B45F899F7F98945F8EB038975F88975083975EC7E63EB0233F639
2569 | 		75F07E4F8B4DD88B75E80FAFCB034D080FAFF30FAF4D188B450C8D500203CA8D0CB18BF08BF82BF22BFA2BC28B55F08955108A551488540E038A551C8811
2570 | 		8A55FC88540F018A55F888140883C104FF4D1075DFFF45088B45083B45EC7C9F5F5E33C05BC9C21800
2571 | 		)
2572 | 		else ; x64 machine code
2573 | 		MCode_PixelateBitmap =
2574 | 		(LTrim Join
2575 | 		4489442418488954241048894C24085355565741544155415641574883EC28418BC1448B8C24980000004C8BDA99488BD941F7F9448BD0448BFA8954240C
2576 | 		448994248800000085C00F8E9D020000418BC04533E4458BF299448924244C8954241041F7F933C9898C24980000008BEA89542404448BE889442408EB05
2577 | 		4C8B5C24784585ED0F8E1A010000458BF1418BFD48897C2418450FAFF14533D233F633ED4533E44533ED4585C97E5B4C63BC2490000000418D040A410FAF
2578 | 		C148984C8D441802498BD9498BD04D8BD90FB642010FB64AFF4403E80FB60203E90FB64AFE4883C2044403E003F149FFCB75DE4D03C748FFCB75D0488B7C
2579 | 		24188B8C24980000004C8B5C2478418BC59941F7FE448BE8418BC49941F7FE448BE08BC59941F7FE8BE88BC69941F7FE8BF04585C97E4048639C24900000
2580 | 		004103CA4D8BC1410FAFC94863C94A8D541902488BCA498BC144886901448821408869FF408871FE4883C10448FFC875E84803D349FFC875DA8B8C249800
2581 | 		0000488B5C24704C8B5C24784183C20448FFCF48897C24180F850AFFFFFF8B6C2404448B2424448B6C24084C8B74241085ED0F840A01000033FF33DB4533
2582 | 		DB4533D24533C04585C97E53488B74247085ED7E42438D0C04418BC50FAF8C2490000000410FAFC18D04814863C8488D5431028BCD0FB642014403D00FB6
2583 | 		024883C2044403D80FB642FB03D80FB642FA03F848FFC975DE41FFC0453BC17CB28BCD410FAFC985C9740A418BC299F7F98BF0EB0233F685C9740B418BC3
2584 | 		99F7F9448BD8EB034533DB85C9740A8BC399F7F9448BD0EB034533D285C9740A8BC799F7F9448BC0EB034533C033D24585C97E4D4C8B74247885ED7E3841
2585 | 		8D0C14418BC50FAF8C2490000000410FAFC18D04814863C84A8D4431028BCD40887001448818448850FF448840FE4883C00448FFC975E8FFC2413BD17CBD
2586 | 		4C8B7424108B8C2498000000038C2490000000488B5C24704503E149FFCE44892424898C24980000004C897424100F859EFDFFFF448B7C240C448B842480
2587 | 		000000418BC09941F7F98BE8448BEA89942498000000896C240C85C00F8E3B010000448BAC2488000000418BCF448BF5410FAFC9898C248000000033FF33
2588 | 		ED33F64533DB4533D24533C04585FF7E524585C97E40418BC5410FAFC14103C00FAF84249000000003C74898488D541802498BD90FB642014403D00FB602
2589 | 		4883C2044403D80FB642FB03F00FB642FA03E848FFCB75DE488B5C247041FFC0453BC77CAE85C9740B418BC299F7F9448BE0EB034533E485C9740A418BC3
2590 | 		99F7F98BD8EB0233DB85C9740A8BC699F7F9448BD8EB034533DB85C9740A8BC599F7F9448BD0EB034533D24533C04585FF7E4E488B4C24784585C97E3541
2591 | 		8BC5410FAFC14103C00FAF84249000000003C74898488D540802498BC144886201881A44885AFF448852FE4883C20448FFC875E941FFC0453BC77CBE8B8C
2592 | 		2480000000488B5C2470418BC1C1E00203F849FFCE0F85ECFEFFFF448BAC24980000008B6C240C448BA4248800000033FF33DB4533DB4533D24533C04585
2593 | 		FF7E5A488B7424704585ED7E48418BCC8BC5410FAFC94103C80FAF8C2490000000410FAFC18D04814863C8488D543102418BCD0FB642014403D00FB60248
2594 | 		83C2044403D80FB642FB03D80FB642FA03F848FFC975DE41FFC0453BC77CAB418BCF410FAFCD85C9740A418BC299F7F98BF0EB0233F685C9740B418BC399
2595 | 		F7F9448BD8EB034533DB85C9740A8BC399F7F9448BD0EB034533D285C9740A8BC799F7F9448BC0EB034533C033D24585FF7E4E4585ED7E42418BCC8BC541
2596 | 		0FAFC903CA0FAF8C2490000000410FAFC18D04814863C8488B442478488D440102418BCD40887001448818448850FF448840FE4883C00448FFC975E8FFC2
2597 | 		413BD77CB233C04883C428415F415E415D415C5F5E5D5BC3
2598 | 		)
2599 | 		
2600 | 		VarSetCapacity(PixelateBitmap, StrLen(MCode_PixelateBitmap)//2)
2601 | 		Loop % StrLen(MCode_PixelateBitmap)//2		;%
2602 | 			NumPut("0x" SubStr(MCode_PixelateBitmap, (2*A_Index)-1, 2), PixelateBitmap, A_Index-1, "UChar")
2603 | 		DllCall("VirtualProtect", Ptr, &PixelateBitmap, Ptr, VarSetCapacity(PixelateBitmap), "uint", 0x40, A_PtrSize ? "UPtr*" : "UInt*", 0)
2604 | 	}
2605 | 
2606 | 	Gdip_GetImageDimensions(pBitmap, Width, Height)
2607 | 	
2608 | 	if (Width != Gdip_GetImageWidth(pBitmapOut) || Height != Gdip_GetImageHeight(pBitmapOut))
2609 | 		return -1
2610 | 	if (BlockSize > Width || BlockSize > Height)
2611 | 		return -2
2612 | 
2613 | 	E1 := Gdip_LockBits(pBitmap, 0, 0, Width, Height, Stride1, Scan01, BitmapData1)
2614 | 	E2 := Gdip_LockBits(pBitmapOut, 0, 0, Width, Height, Stride2, Scan02, BitmapData2)
2615 | 	if (E1 || E2)
2616 | 		return -3
2617 | 
2618 | 	E := DllCall(&PixelateBitmap, Ptr, Scan01, Ptr, Scan02, "int", Width, "int", Height, "int", Stride1, "int", BlockSize)
2619 | 	
2620 | 	Gdip_UnlockBits(pBitmap, BitmapData1), Gdip_UnlockBits(pBitmapOut, BitmapData2)
2621 | 	return 0
2622 | }
2623 | 
2624 | ;#####################################################################################
2625 | 
2626 | Gdip_ToARGB(A, R, G, B)
2627 | {
2628 | 	return (A << 24) | (R << 16) | (G << 8) | B
2629 | }
2630 | 
2631 | ;#####################################################################################
2632 | 
2633 | Gdip_FromARGB(ARGB, ByRef A, ByRef R, ByRef G, ByRef B)
2634 | {
2635 | 	A := (0xff000000 & ARGB) >> 24
2636 | 	R := (0x00ff0000 & ARGB) >> 16
2637 | 	G := (0x0000ff00 & ARGB) >> 8
2638 | 	B := 0x000000ff & ARGB
2639 | }
2640 | 
2641 | ;#####################################################################################
2642 | 
2643 | Gdip_AFromARGB(ARGB)
2644 | {
2645 | 	return (0xff000000 & ARGB) >> 24
2646 | }
2647 | 
2648 | ;#####################################################################################
2649 | 
2650 | Gdip_RFromARGB(ARGB)
2651 | {
2652 | 	return (0x00ff0000 & ARGB) >> 16
2653 | }
2654 | 
2655 | ;#####################################################################################
2656 | 
2657 | Gdip_GFromARGB(ARGB)
2658 | {
2659 | 	return (0x0000ff00 & ARGB) >> 8
2660 | }
2661 | 
2662 | ;#####################################################################################
2663 | 
2664 | Gdip_BFromARGB(ARGB)
2665 | {
2666 | 	return 0x000000ff & ARGB
2667 | }
2668 | 
2669 | ;#####################################################################################
2670 | 
2671 | StrGetB(Address, Length=-1, Encoding=0)
2672 | {
2673 | 	; Flexible parameter handling:
2674 | 	if Length is not integer
2675 | 	Encoding := Length,  Length := -1
2676 | 
2677 | 	; Check for obvious errors.
2678 | 	if (Address+0 < 1024)
2679 | 		return
2680 | 
2681 | 	; Ensure 'Encoding' contains a numeric identifier.
2682 | 	if Encoding = UTF-16
2683 | 		Encoding = 1200
2684 | 	else if Encoding = UTF-8
2685 | 		Encoding = 65001
2686 | 	else if SubStr(Encoding,1,2)="CP"
2687 | 		Encoding := SubStr(Encoding,3)
2688 | 
2689 | 	if !Encoding ; "" or 0
2690 | 	{
2691 | 		; No conversion necessary, but we might not want the whole string.
2692 | 		if (Length == -1)
2693 | 			Length := DllCall("lstrlen", "uint", Address)
2694 | 		VarSetCapacity(String, Length)
2695 | 		DllCall("lstrcpyn", "str", String, "uint", Address, "int", Length + 1)
2696 | 	}
2697 | 	else if Encoding = 1200 ; UTF-16
2698 | 	{
2699 | 		char_count := DllCall("WideCharToMultiByte", "uint", 0, "uint", 0x400, "uint", Address, "int", Length, "uint", 0, "uint", 0, "uint", 0, "uint", 0)
2700 | 		VarSetCapacity(String, char_count)
2701 | 		DllCall("WideCharToMultiByte", "uint", 0, "uint", 0x400, "uint", Address, "int", Length, "str", String, "int", char_count, "uint", 0, "uint", 0)
2702 | 	}
2703 | 	else if Encoding is integer
2704 | 	{
2705 | 		; Convert from target encoding to UTF-16 then to the active code page.
2706 | 		char_count := DllCall("MultiByteToWideChar", "uint", Encoding, "uint", 0, "uint", Address, "int", Length, "uint", 0, "int", 0)
2707 | 		VarSetCapacity(String, char_count * 2)
2708 | 		char_count := DllCall("MultiByteToWideChar", "uint", Encoding, "uint", 0, "uint", Address, "int", Length, "uint", &String, "int", char_count * 2)
2709 | 		String := StrGetB(&String, char_count, 1200)
2710 | 	}
2711 | 	
2712 | 	return String
2713 | }
2714 | 
2715 | ;- https://autohotkey.com/boards/viewtopic.php?f=6&t=791&hilit=stdouttovar
2716 | ; ----------------------------------------------------------------------------------------------------------------------
2717 | ; Function .....: StdoutToVar_CreateProcess
2718 | ; Description ..: Runs a command line program and returns its output.
2719 | ; Parameters ...: sCmd      - Commandline to execute.
2720 | ; ..............: sEncoding - Encoding used by the target process. Look at StrGet() for possible values.
2721 | ; ..............: sDir      - Working directory.
2722 | ; ..............: nExitCode - Process exit code, receive it as a byref parameter.
2723 | ; Return .......: Command output as a string on success, empty string on error.
2724 | ; AHK Version ..: AHK_L x32/64 Unicode/ANSI
2725 | ; Author .......: Sean (http://goo.gl/o3VCO8), modified by nfl and by Cyruz
2726 | ; License ......: WTFPL - http://www.wtfpl.net/txt/copying/
2727 | ; Changelog ....: Feb. 20, 2007 - Sean version.
2728 | ; ..............: Sep. 21, 2011 - nfl version.
2729 | ; ..............: Nov. 27, 2013 - Cyruz version (code refactored and exit code).
2730 | ; ..............: Mar. 09, 2014 - Removed input, doesn't seem reliable. Some code improvements.
2731 | ; ..............: Mar. 16, 2014 - Added encoding parameter as pointed out by lexikos.
2732 | ; ..............: Jun. 02, 2014 - Corrected exit code error.
2733 | ; ..............: Nov. 02, 2016 - Fixed blocking behavior due to ReadFile thanks to PeekNamedPipe.
2734 | ; ----------------------------------------------------------------------------------------------------------------------
2735 | StdoutToVar(sCmd, sEncoding:="CP0", sDir:="", ByRef nExitCode:=0) {
2736 |     hstdoutrd:=""
2737 | 	hstdoutwr:=""
2738 | 	nTot:=""
2739 | 	nSize:=""
2740 | 	sOutput:=""
2741 |     DllCall( "CreatePipe",           PtrP,hStdOutRd, PtrP,hStdOutWr, Ptr,0, UInt,0 )
2742 |     DllCall( "SetHandleInformation", Ptr,hStdOutWr, UInt,1, UInt,1                 )
2743 | 	
2744 | 
2745 |             VarSetCapacity( pi, (A_PtrSize == 4) ? 16 : 24,  0 )
2746 |     siSz := VarSetCapacity( si, (A_PtrSize == 4) ? 68 : 104, 0 )
2747 |     NumPut( siSz,      si,  0,                          "UInt" )
2748 |     NumPut( 0x100,     si,  (A_PtrSize == 4) ? 44 : 60, "UInt" )
2749 |     NumPut( hStdOutWr, si,  (A_PtrSize == 4) ? 60 : 88, "Ptr"  )
2750 |     NumPut( hStdOutWr, si,  (A_PtrSize == 4) ? 64 : 96, "Ptr"  )
2751 | 
2752 |     If ( !DllCall( "CreateProcess", Ptr,0, Ptr,&sCmd, Ptr,0, Ptr,0, Int,True, UInt,0x08000000
2753 |                                   , Ptr,0, Ptr,sDir?&sDir:0, Ptr,&si, Ptr,&pi ) )
2754 |         Return ""
2755 |       , DllCall( "CloseHandle", Ptr,hStdOutWr )
2756 |       , DllCall( "CloseHandle", Ptr,hStdOutRd )
2757 | 
2758 |     DllCall( "CloseHandle", Ptr,hStdOutWr ) ; The write pipe must be closed before reading the stdout.
2759 |     While ( 1 )
2760 |     { ; Before reading, we check if the pipe has been written to, so we avoid freezings.
2761 |         If ( !DllCall( "PeekNamedPipe", Ptr,hStdOutRd, Ptr,0, UInt,0, Ptr,0, UIntP,nTot, Ptr,0 ) )
2762 |             Break
2763 |         If ( !nTot )
2764 |         { ; If the pipe buffer is empty, sleep and continue checking.
2765 |             Sleep, 100
2766 |             Continue
2767 |         } ; Pipe buffer is not empty, so we can read it.
2768 |         VarSetCapacity(sTemp, nTot+1)
2769 |         DllCall( "ReadFile", Ptr,hStdOutRd, Ptr,&sTemp, UInt,nTot, PtrP,nSize, Ptr,0 )
2770 |         sOutput .= StrGet(&sTemp, nSize, sEncoding)
2771 |     }
2772 |     
2773 |     ; * SKAN has managed the exit code through SetLastError.
2774 |     DllCall( "GetExitCodeProcess", Ptr,NumGet(pi,0), UIntP,nExitCode )
2775 |     DllCall( "CloseHandle",        Ptr,NumGet(pi,0)                  )
2776 |     DllCall( "CloseHandle",        Ptr,NumGet(pi,A_PtrSize)          )
2777 |     DllCall( "CloseHandle",        Ptr,hStdOutRd                     )
2778 |     Return sOutput
2779 | }
2780 | ;============================================================
2781 | 
2782 | 
2783 | 
2784 | 
2785 | 
2786 | 
2787 | 
2788 | 
2789 | ; Script:    Environment.ahk
2790 | ; Author:    iseahound
2791 | ; License:   MIT License
2792 | ; Target:    AutoHotkey v1
2793 | ; Version:   2017-02-11
2794 | ; Updated:   2019-12-06
2795 | ;
2796 | ; ExpandEnvironmentStrings(), RefreshEnvironment()   by NoobSawce + DavidBiesack (modified by BatRamboZPM)
2797 | ;   https://autohotkey.com/board/topic/63312-reload-systemuser-environment-variables/
2798 | ;
2799 | ; Global Error Values
2800 | ;   0 - Success.
2801 | ;  -1 - Error when writing value to registry.
2802 | ;  -2 - Value already added or value already deleted.
2803 | ;  -3 - Need to Run As Administrator.
2804 | ;
2805 | ; Notes
2806 | ;   SendMessage 0x1A,0,"Environment",, ahk_id 0xFFFF ; 0x1A is WM_SETTINGCHANGE
2807 | ;      - The above code will broadcast a message stating there has been a change of environment variables.
2808 | ;      - Some programs have not implemented this message.
2809 | ;   RefreshEnvironment()
2810 | ;      - This function will update the environment variables within AutoHotkey.
2811 | ;      - Command prompts launched by AutoHotkey inherit AutoHotkey's environment.
2812 | ;   Any command prompts currently open will not have their environment variables changed.
2813 | ;      - Please use the RefreshEnv.cmd batch script found at:
2814 | ;        https://github.com/chocolatey-archive/chocolatey/blob/master/src/redirects/RefreshEnv.cmd
2815 | 
2816 | Env_UserAdd(name, value, type := "", location := ""){
2817 |    value    := (value ~= "^\.\.\\") ? GetFullPathName(value)          : value
2818 |    location := (location == "")     ? "HKEY_CURRENT_USER\Environment" : location
2819 | 
2820 |    RegRead registry, % location, % name
2821 |    if (!ErrorLevel) {
2822 |       Loop Parse, registry, `;
2823 |       {
2824 |          if (A_LoopField == value)
2825 |             return -2
2826 |       }
2827 |       registry .= (registry ~= "(;$|^$)") ? "" : ";"
2828 |       value := registry . value
2829 |    }
2830 |    type := (type) ? type : (value ~= "%") ? "REG_EXPAND_SZ" : "REG_SZ"
2831 |    RegWrite % type , % location, % name, % value
2832 |    SendMessage 0x1A,0,"Environment",, ahk_id 0xFFFF ; 0x1A is WM_SETTINGCHANGE
2833 |    RefreshEnvironment()
2834 |    return (ErrorLevel) ? -1 : 0
2835 | }
2836 | 
2837 | Env_SystemAdd(name, value, type := ""){
2838 |    return (A_IsAdmin) ? Env_UserAdd(name, value, type, "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment") : -3
2839 | }
2840 | 
2841 | Env_UserSub(name, value, type := "", location := ""){
2842 |    value    := (value ~= "^\.\.\\") ? GetFullPathName(value)          : value
2843 |    location := (location == "")     ? "HKEY_CURRENT_USER\Environment" : location
2844 | 
2845 |    RegRead registry, % location, % name
2846 |    if ErrorLevel
2847 |       return -2
2848 | 
2849 |    Loop Parse, registry, `;
2850 |    {
2851 |       if (A_LoopField != value) {
2852 |          output .= (A_Index > 1 && output != "") ? ";" : ""
2853 |          output .= A_LoopField
2854 |       }
2855 |    }
2856 | 
2857 |    if (output != "") {
2858 |       type := (type) ? type : (output ~= "%") ? "REG_EXPAND_SZ" : "REG_SZ"
2859 |       RegWrite % type , % location, % name, % output
2860 |    }
2861 |    else
2862 |       RegDelete % location, % name
2863 |    SendMessage 0x1A,0,"Environment",, ahk_id 0xFFFF ; 0x1A is WM_SETTINGCHANGE
2864 |    RefreshEnvironment()
2865 |    return (ErrorLevel) ? -1 : 0
2866 | }
2867 | 
2868 | Env_SystemSub(name, value, type := ""){
2869 |    return (A_IsAdmin) ? Env_UserSub(name, value, type, "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment") : -3
2870 | }
2871 | 
2872 | Env_UserNew(name, value := "", type := "", location := ""){
2873 |    type := (type) ? type : (value ~= "%") ? "REG_EXPAND_SZ" : "REG_SZ"
2874 |    RegWrite % type , % (location == "") ? "HKEY_CURRENT_USER\Environment" : location, % name, % value
2875 |    SendMessage 0x1A,0,"Environment",, ahk_id 0xFFFF ; 0x1A is WM_SETTINGCHANGE
2876 |    RefreshEnvironment()
2877 |    return (ErrorLevel) ? -1 : 0
2878 | }
2879 | 
2880 | Env_SystemNew(name, value := "", type := ""){
2881 |    return (A_IsAdmin) ? Env_UserNew(name, value, type, "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment") : -3
2882 | }
2883 | 
2884 | ; Value does nothing except let me easily change between functions.
2885 | Env_UserDel(name, value := "", location := ""){
2886 |    RegDelete % (location == "") ? "HKEY_CURRENT_USER\Environment" : location, % name
2887 |    SendMessage 0x1A,0,"Environment",, ahk_id 0xFFFF ; 0x1A is WM_SETTINGCHANGE
2888 |    RefreshEnvironment()
2889 |    return 0
2890 | }
2891 | 
2892 | Env_SystemDel(name, value := ""){
2893 |    return (A_IsAdmin) ? Env_UserDel(name, value, "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment") : -3
2894 | }
2895 | 
2896 | Env_UserRead(name, value := "", location := ""){
2897 |    RegRead registry, % (location == "") ? "HKEY_CURRENT_USER\Environment" : location, % name
2898 |    if (value) {
2899 |       Loop Parse, registry, `;
2900 |       {
2901 |          if (A_LoopField = value) {
2902 |             return A_LoopField
2903 |          }
2904 |       }
2905 |       return ; Value not found
2906 |    }
2907 |    return registry
2908 | }
2909 | 
2910 | Env_SystemRead(name, value := ""){
2911 |    return Env_UserRead(name, value, "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment")
2912 | }
2913 | 
2914 | ; Value does nothing except let me easily change between functions.
2915 | Env_UserSort(name, value := "", location := ""){
2916 |    RegRead registry, % (location == "") ? "HKEY_CURRENT_USER\Environment" : location, % name
2917 |    Sort registry, D`;
2918 |    type := (type) ? type : (registry ~= "%") ? "REG_EXPAND_SZ" : "REG_SZ"
2919 |    RegWrite % type , % (location == "") ? "HKEY_CURRENT_USER\Environment" : location, % name, % registry
2920 |    return (ErrorLevel) ? -1 : 0
2921 | }
2922 | 
2923 | Env_SystemSort(name, value := ""){
2924 |    return (A_IsAdmin) ? Env_UserSort(name, value, "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment") : -3
2925 | }
2926 | 
2927 | ; Value does nothing except let me easily change between functions.
2928 | Env_UserRemoveDuplicates(name, value := "", location := ""){
2929 |    RegRead registry, % (location == "") ? "HKEY_CURRENT_USER\Environment" : location, % name
2930 |    Sort registry, U D`;
2931 |    type := (type) ? type : (registry ~= "%") ? "REG_EXPAND_SZ" : "REG_SZ"
2932 |    RegWrite % type , % (location == "") ? "HKEY_CURRENT_USER\Environment" : location, % name, % registry
2933 |    return (ErrorLevel) ? -1 : 0
2934 | }
2935 | 
2936 | Env_SystemRemoveDuplicates(name, value := ""){
2937 |    return (A_IsAdmin) ? Env_UserRemoveDuplicates(name, value, "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment") : -3
2938 | }
2939 | 
2940 | Env_UserBackup(fileName := "UserEnvironment.reg", location := ""){
2941 |    _cmd .= (A_Is64bitOS <> A_PtrSize >> 3)    ? A_WinDir "\SysNative\cmd.exe"   : ComSpec
2942 |    _cmd .= " /K " Chr(0x22) "reg export " Chr(0x22)
2943 |    _cmd .= (location == "")                   ? "HKEY_CURRENT_USER\Environment" : location
2944 |    _cmd .= Chr(0x22) " " Chr(0x22)
2945 |    _cmd .= fileName
2946 |    _cmd .= Chr(0x22) . Chr(0x22) . " && pause && exit"
2947 |    try RunWait % _cmd
2948 |    catch
2949 |       return "FAIL"
2950 |    return "SUCCESS"
2951 | }
2952 | 
2953 | Env_SystemBackup(fileName := "SystemEnvironment.reg"){
2954 |    return Env_UserBackup(fileName, "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment")
2955 | }
2956 | 
2957 | Env_UserRestore(fileName := "UserEnvironment.reg"){
2958 |    try RunWait % fileName
2959 |    catch
2960 |       return "FAIL"
2961 |    return "SUCCESS"
2962 | }
2963 | 
2964 | Env_SystemRestore(fileName := "SystemEnvironment.reg"){
2965 |    try RunWait % fileName
2966 |    catch
2967 |       return "FAIL"
2968 |    return "SUCCESS"
2969 | }
2970 | 
2971 | 
2972 | RefreshEnvironment()
2973 | {
2974 |    Path := ""
2975 |    PathExt := ""
2976 |    RegKeys := "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment,HKCU\Environment"
2977 |    Loop Parse, RegKeys, CSV
2978 |    {
2979 |       Loop, Reg, %A_LoopField%, V
2980 |       {
2981 |          RegRead, Value
2982 |          If (A_LoopRegType == "REG_EXPAND_SZ" && !ExpandEnvironmentStrings(Value))
2983 |             Continue
2984 |          If (A_LoopRegName = "PATH")
2985 |             Path .= Value . ";"
2986 |          Else If (A_LoopRegName = "PATHEXT")
2987 |             PathExt .= Value . ";"
2988 |          Else
2989 |             EnvSet %A_LoopRegName%, %Value%
2990 |       }
2991 |    }
2992 |    EnvSet PATH, %Path%
2993 |    EnvSet PATHEXT, %PathExt%
2994 | }
2995 | 
2996 | ExpandEnvironmentStrings(ByRef vInputString)
2997 | {
2998 |    ; get the required size for the expanded string
2999 |    vSizeNeeded := DllCall("ExpandEnvironmentStrings", "Str", vInputString, "Int", 0, "Int", 0)
3000 |    If (vSizeNeeded == "" || vSizeNeeded <= 0)
3001 |       return False ; unable to get the size for the expanded string for some reason
3002 | 
3003 |    vByteSize := vSizeNeeded + 1
3004 |    If (A_IsUnicode) { ; Only 64-Bit builds of AHK_L will return 8, all others will be 4 or blank
3005 |       vByteSize *= 2 ; need to expand to wide character sizes
3006 |    }
3007 |    VarSetCapacity(vTempValue, vByteSize, 0)
3008 | 
3009 |    ; attempt to expand the environment string
3010 |    If (!DllCall("ExpandEnvironmentStrings", "Str", vInputString, "Str", vTempValue, "Int", vSizeNeeded))
3011 |       return False ; unable to expand the environment string
3012 |    vInputString := vTempValue
3013 | 
3014 |    ; return success
3015 |    Return True
3016 | }
3017 | 
3018 | GetFullPathName(path) {
3019 |     cc := DllCall("GetFullPathName", "str", path, "uint", 0, "ptr", 0, "ptr", 0, "uint")
3020 |     VarSetCapacity(buf, cc*(A_IsUnicode?2:1))
3021 |     DllCall("GetFullPathName", "str", path, "uint", cc, "str", buf, "ptr", 0, "uint")
3022 |     return buf
3023 | }
3024 | 


--------------------------------------------------------------------------------