#NoEnv
IniRead, OutputVarSectionNames, settings.ini
Loop, Parse, OutputVarSectionNames,`n
{
IniRead,sx,settings.ini,%A_LoopField%,sx
IniRead,sy,settings.ini,%A_LoopField%,sy
IniRead,sw,settings.ini,%A_LoopField%,sw
IniRead,sh,settings.ini,%A_LoopField%,sh
IniRead,x,settings.ini,%A_LoopField%,x
gui,gui1:add,Picture,x%sx% y%sy% w%sh% h%sw% v%A_LoopField% gPic,%x%
}
x=%A_ScriptDir%\+2.bmp
h:=A_ScreenHeight+3
rw:=A_ScreenWidth//25-2
rh:=A_ScreenHeight//25-2
gui,gui1:color,0x464646,
gui,gui1:show, w%A_ScreenWidth% h%h%
gui,gui1:add,Picture,x0 y5 h50 w50 vPT gPic,+2.bmp
GuiControl,gui1:hide,PT
gui,gui3:+AlwaysOnTop -Resize
gui,gui3:add,Slider,vsx gsx x1 y1 Range0-%rw% ToolTiptop h25 page1,0
gui,gui3:add,Slider,vsy gsy x1 y26 Range0-%rh% ToolTiptop h25 page1,0
gui,gui3:add,Slider,vsw gsw x1 y51 Range1-6 ToolTiptop h25 page1,2
gui,gui3:add,Slider,vsh gsh x1 y76 Range1-6 ToolTiptop h25 page1,2
gui,gui3:add,Edit,vE1 y1 x130 w100
gui,gui3:add,Button,vB1 gB1 w35 h25 y26 x130,+
gui,gui3:add,Button,vB2 gB2 w35 h25 y26 x165,Save
gui,gui3:add,Button,vB3 gB3 w35 h25 y26 x165,Save
return
gui3guiclose:
GuiControl,gui1:hide,PT
gui,gui3:hide
GuiControl,gui3:Show,b2
GuiControl,gui3:hide,b3
return
gui1GuiClose:
gui1GuiEscape:
Esc::
ExitApp
b1:
FileSelectFile,x ;,35
GuiControl,gui1:,PT,%x%
c:=RegExReplace(x,".*\\","")
c:=RegExReplace(c,"\..*","")
GuiControl,text,e1,%c%
return
b2:
if x=+2.bmp or x=1
{
MsgBox, 16, Error, файл не выбран
return
}
gosub,3subm
gosub iniwrite
gui,gui1:add,Picture,x%sx% y%sy% w%sw% h%sh% v%e1% gPic,%x%
GuiControl,gui1:,PT,%A_ScriptDir%\+2.bmp
x=%A_ScriptDir%\+2.bmp
gui,gui3:hide
return
b3:
gosub 3subm
gosub iniwrite
GuiControl,gui1:move,%f3%,x%sx% y%sy% w%sw% h%sh%
GuiControl,gui1:,%f3%,%x%
GuiControl,gui1:show,%f3%
GuiControl,text,e1,
GuiControl,gui1:,PT,%A_ScriptDir%\+2.bmp
GuiControl,gui3:Show,b2
GuiControl,gui3:hide,b3
gui,gui3:hide
GuiControl,gui1:hide,pt
x=%A_ScriptDir%\+2.bmp
return
iniwrite:
IniWrite,%sx%,settings.ini,%e1%,sx
IniWrite,%sy%,settings.ini,%e1%,sy
IniWrite,%sw%,settings.ini,%e1%,sw
IniWrite,%sh%,settings.ini,%e1%,sh
IniWrite,%x%,settings.ini,%e1%,x
return
f1::
GuiControl,gui1:show,PT
gui,gui3:show,,3
return
sx:
sy:
sw:
sh:
gosub,3subm
GuiControl,gui1:move,PT,x%sx% y%sy% w%sw% h%sh%
GuiControl,gui1:,PT,%x%
return
3subm:
gui,gui3:submit,nohide
sx:=sx*25
sy:=sy*25+5
sw:=sw*25
sh:=sh*25
return
Pic:
GetKeyState,f2,f2
GetKeyState,f3,f3
if f2=d
{
IniDelete,settings.ini,%A_GuiControl%
GuiControl,gui1:hide,%A_GuiControl%
return
}
if f3=d
{
f3:=A_GuiControl
IniRead,sx,settings.ini,%A_GuiControl%,sx
IniRead,sy,settings.ini,%A_GuiControl%,sy
IniRead,sw,settings.ini,%A_GuiControl%,sw
IniRead,sh,settings.ini,%A_GuiControl%,sh
GuiControl,gui3:text,sx,% sx//25
GuiControl,gui3:text,sy,% sy//25
GuiControl,gui3:text,sw,% sw//25
GuiControl,gui3:text,sh,% sh//25
IniRead,x,settings.ini,%A_GuiControl%,x
GuiControl,gui3:text,e1,%A_GuiControl%
GuiControl,gui3:hide,b2
GuiControl,gui3:show,b3
gui,gui3:show,,3
GuiControl,gui1:hide,%A_GuiControl%
GuiControl,gui1:move,PT,x%sx% y%sy% w%sw% h%sh%
GuiControl,gui1:,PT,%x%
GuiControl,gui1:show,PT
return
}
IniRead,x,settings.ini,%A_GuiControl%,x
run,%x%
return
Я там немного намудрил с именами контролов , надеюсь что то да подскажете.
За помощь спасибо , неплохо бы еще мне по полочкам разложить что значат эти строки и зачем они там.