-
Notifications
You must be signed in to change notification settings - Fork 1
/
convert2Resizer.ahk
286 lines (271 loc) · 11.2 KB
/
convert2Resizer.ahk
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
#Requires AutoHotkey v2.0
#SingleInstance Force
#Warn all, off
class Convert2Resizer
{
static GuiW := 0
static GuiH := 0
static GuiX := 0
static GuiY := 0
static Call(guiObj, path?)
{
guiObj.Show()
guiObj.GetPos(&x, &y, &w, &h)
Convert2Resizer.GuiW := w
Convert2Resizer.GuiH := h
Convert2Resizer.GuiX := x
Convert2Resizer.GuiY := y
ctrls := []
replacementCtrls := []
for hwnd, ctrl in guiObj
{
replacementCtrls.Push(Convert2Resizer.Mapify(ctrl, &ctrls))
}
if !IsSet(path)
path := A_ScriptFullPath
contents := FileOpen(path, "r").Read()
newScript := Convert2Resizer.GUify(replacementCtrls, contents)
SplitPath(path, , &dir, , &name)
FileOpen(dir "\" name "_converted.ahk", "w").Write(newScript)
Run("notepad.exe `"" dir "\" name "_converted.ahk`"")
exitapp()
}
static Mapify(ctrl, &ctrls)
{
m := Map()
ctrl.GetPos(&ctrlX, &ctrlY, &ctrlW, &ctrlH)
m["WP"] := Round(ctrlW / Convert2Resizer.GuiW, 3)
m["HP"] := Round(ctrlH / Convert2Resizer.GuiH, 3)
m["XP"] := Round(ctrlX / Convert2Resizer.GuiW, 3)
m["YP"] := Round(ctrlY / Convert2Resizer.GuiH, 3)
m['Text'] := ctrl.HasProp("Text") ? ctrl.text : false
m['Value'] := ctrl.HasProp("Value") ? ctrl.Value : false
m['Type'] := ctrl.HasProp("Type") ? ctrl.Type : false
for k, v in m
{
if (InStr(v, "0."))
{
temp := StrSplit(v, ".")
m[k] := (temp.Has(2)) ? "." temp[2] : v
}
}
return m
}
static GUify(replacementCtrls, contents)
{
contents := StrReplace(contents, "``t", ""), contents := StrReplace(contents, "``r", "")
splitLines := StrSplit(contents, "`n")
storage := "myCtrls"
guiname := "myGui"
newScript := "#Requires Autohotkey v2`n#SingleInstance force`n"
. "#Include <GuiReSizer>`n`n" storage " := {}`n"
. guiname " := Gui(), " guiname ".Opt(`"+Resize +MinSize250x150`")`n" guiname ".OnEvent(`"Size`", GuiReSizer)`n"
defaults := Map()
defaults := ctrlDefault()
for _map in replacementCtrls
{
line := (_map['Value'] != false && _map['Value'] != "") ? array_contains(splitLines,(_map['Value']))
: (_map['Text'] != false && _map['Text'] != "") ? array_contains(splitLines, (_map['Text'])) : false
if line
{
linestr := splitLines[line]
if InStr(linestr, "Add(") && InStr(linestr, ":=")
_map['Name'] := Trim(StrSplit(linestr, " := ")[1])
if _map.Has('Value')
try
_map['Value'] := BetweenStr(linestr, '"')[3]
if _map.Has('Text')
try
_map['Text'] := BetweenStr(linestr, '"')[3]
}
else {
_map['Name'] := Trim(_map["Type"]) A_Index
}
if !_map.Has('Name')
_map['Name'] := 'ctrl' A_Index
; Start building the AHK script by creating GUI controls based on the information in _map
newScript .= storage "." _map['Name'] " := " guiname ".Add(`"" _map['Type'] "`", `"`","
; Depending on the control 'Type', the generated script will configure it differently
; Depending on the control 'Type', the generated script will configure it differently
var := (_map.Has('Value') && _map['Value'] != false && _map['Value'] != "") ? _map['Value'] : ""
var := (_map.Has('Text') && _map['Text'] != false && _map['Text'] != "") ? _map['Text'] : ""
newScript .= (!InStr(_map['Type'], "List") && !InStr(_map['Type'], "DDL") && !InStr(_map['Type'], "dropdownlist"))
? (!InStr(_map['Type'], "ComboBox"))
? " `"" var "`")`n" : "[`" " var "`"])`n"
: "[`" " var "`"])`n"
; If there are default settings for the type of GUI control in _map,
; check if there's a function associated and it's not false, then add that configuration to the script
; t := _map['Type']
; d := defaults.Has(t) ? defaults[t] :
; defaults[_map['Type']]
; newScript .= defaults.Has(_map['Type'])
; ? (_map[defaults[_map['Type']]['function']] != false)
; ? storage "." _map['Name'] "." defaults[_map['Type']]['function'] " := `""
; . _map[defaults[_map['Type']]['function']] "`"`n"
; : ""
; : ""
newScript .= "pushToResizer(" storage "."
. _map['Name'] ", " _map['XP'] ", " _map['YP'] ", " _map['WP'] ", " _map['HP'] ")`n"
}
return newScript . Convert2Resizer.compressionFunc() . "`n" guiname ".Show()`n"
}
static compressionFunc() {
funcG := ""
return funcG .= "`n`npushToResizer(ctrl, xp, yp, wp, hp)`n{`n"
. "`tctrl.xp := xp `n"
. "`tctrl.yp := yp `n"
. "`tctrl.wp := wp `n"
. "`tctrl.hp := hp `n}`n"
}
}
array_contains(arr, search, case_sensitive := 0)
{
for index, value in arr {
if !IsSet(value)
continue
else if InStr(value, search, CaseSense := case_sensitive)
return index
}
return 0
}
/*
This function extracts substrings between two sets of delimiters
it takes the input string (`text`), the start delimiter (`startDelim`),
and the end delimiter (`endDelim`). It returns an array of all substrings found.
* Example usage:
* codeText :=
* "
* (
* This is some text with "quotes" and with < angled brackets > .
* There is "another quote" and < more brackets > .
* )"
* quotesContents := ExtractSubstringsBetween(codeText, '"') ; array
* bracketContents := ExtractSubstringsBetween(codeText, "<", ">") ; array
*
*/
BetweenStr(text, startDelim, endDelim?) {
if !IsSet(endDelim)
endDelim := startDelim
results := [] ; Initialize an empty array to store the results
startIndex := 1 ; Start search from the beginning of the string
while (startIndex := InStr(text, startDelim, true, startIndex + StrLen(startDelim)))
{
; Find the matching end delimiter from the found start delimiter
endIndex := InStr(text, endDelim, true, startIndex + StrLen(startDelim))
if (!endIndex) ; If no ending delimiter is found, break the loop
break
extracted := SubStr(text, startIndex + StrLen(startDelim), endIndex - (startIndex + StrLen(startDelim)))
results.Push(extracted)
startIndex := endIndex
}
return results
}
ctrlDefault()
{
return m := Map("Button", map("ctrl", "Button", "event", "Click", "function", "Text"),
"DropDownList", map("ctrl", "DropDownList", "event", "Change", "function", "Text"),
"DDL", map("ctrl", "DDL", "event", "Change", "function", "Text"),
"Edit", map("ctrl", "Edit", "event", "Change", "function", "Value"),
"DateTime", map("ctrl", "DateTime", "event", "Change", "function", "Value"),
"MonthCal", map("ctrl", "MonthCal", "event", "Change", "function", "Value"),
"Radio", map("ctrl", "Radio", "event", "Click", "function", "Value"),
"CheckBox", map("ctrl", "CheckBox", "event", "Click", "function", "Value"),
"GroupBox", map("ctrl", "CheckBox", "event", "Click", "function", "Text"),
"ComboBox", map("ctrl", "ComboBox", "event", "Change", "function", "Text"),
"ListView", map("ctrl", "ListView", "event", "Click", "function", "GetNext"),
"ListBox", Map("ctrl", "ListBox", "event", "Click", "function", "Value"))
}
if A_ScriptFullPath = A_LineFile
myGui := Constructor_()
Constructor_() {
myGui := Gui()
ButtonSelectGUIScript := myGui.Add("Button", "x24 y64 w174 h39", "Select GUI Script")
Edit1 := myGui.Add("Edit", "x24 y8 w432 h38")
ButtonConvert := myGui.Add("Button", "x208 y64 w154 h37", "Convert")
ButtonSelectGUIScript.OnEvent("Click", FS)
ButtonConvert.OnEvent("Click", Convert)
myGui.OnEvent('Close', (*) => ExitApp())
myGui.Title := "Window"
myGui.Show("w501 h122")
FS(*)
{
global F
F := FileSelect(, "C:\", "Select script for conversion")
if F != ""
if !FileExist(F)
F := false
else
Edit1.Value := F
}
Convert(*)
{
global F
if !F
{
Msgbox "File not Found"
return
}
contents := FileOpen(F, "r").Read()
Lib := FileOpen(A_ScriptFullPath, "r").Read()
script := ""
start := false
Loop parse, contents, "`n" "`r"
{
if !start
if InStr(A_LoopField, "Gui(")
{
start := true
if InStr(A_LoopField, ":=")
guiName := Trim(StrSplit(A_LoopField, ":=")[1])
} else
continue
if InStr(A_LoopField, ".Add") && InStr(A_LoopField, guiName)
{
script .= Trim(A_LoopField) "`n"
; e_ := ctrlDefault().__Enum(2)
; while e_(&k)
; if InStr(A_LoopField, k)
}
else if InStr(A_LoopField, "Show(")
{
tmp := StrSplit(Trim(A_LoopField), "Show(")[2]
tmp := StrSplit(tmp, ")")[1]
regexWidth := "w(\d+)"
regexHeight := "h(\d+)"
width := ""
height := ""
; Perform the regex search for width
if RegExMatch(tmp, regexWidth, &widthMatch) && width = "" {
width := widthMatch[0] ; The number after 'w'
}
; Perform the regex search for height
if RegExMatch(tmp, regexHeight, &heightMatch) && height = "" {
height := heightMatch[0] ; The number after 'h'
}
break
}
}
if !IsSet(guiName)
return
SplitPath(F, , &D)
tempFileContents := Lib "`n" guiName " := Gui()`n" script "`n" guiName . ".Show(`""
try tempFileContents .= (width != "") ? width : (height != "") ? height : "'w' A_ScreenWidth*.8 ' h' A_ScreenHeight"
tempFileContents .= "`")" "`nConvert2Resizer(" guiName ", `"" F "`")`n"
FileOpen(D "\tempFile.ahk", "w").Write(tempFileContents)
RunWait(A_AhkPath " `"" D "\tempFile.ahk" "`"", , ,&PID)
Sleep(100)
x := 0
While ProcessExist(PID)
{
x+=1
Sleep 100
if x > 500
break
}
try{
FileDelete(A_MyDocuments "\tempFile.ahk")
}
ExitApp()
}
return myGui
}