add and Alignment Buttons at Gui
Posted: 03 May 2018, 12:44
Welcome dear colleagues
I would add on this Gui a number of buttons in the right side as in the attached picture.
Please help.
Thank you very much
I would add on this Gui a number of buttons in the right side as in the attached picture.
Please help.
Thank you very much
Code: Select all
Gui Add, ListBox, w950 r20 vfiles1, % "Dir1 = " dir1 "| |" list1
Gui Add, ListBox, w950 r20 vfiles2, % "Dir2 = " dir2 "| |" list2
Gui Add, Button, w75 gGuiOK default, Exit
Gui,Add, Text, yp+5 x200,Dir1
Gui,Add, Edit, yp-3 x230 w300 vDir1,%dir1%
Gui,Add, Text, yp+2 x540,Dir2
Gui,Add, Edit, yp-3 x570 w300 vDir2,%dir2%
Gui,Add, Text, yp+2 x880,Mask
Gui,Add, Edit, yp-3 x910 w60 vFileMask,%fileMask%
Gui Add, Button, yp x980 w75 gGo, Go
Gui Show, w1070
Return
Go:
Gui, Submit, NoHide
gosub, DoTheWork
GuiControl,,files1,% "|Dir1 = " dir1 "| |" list1
GuiControl,,files2,% "|Dir2 = " dir2 "| |" list2
return
GuiOK:
GuiClose:
GuiEscape:
ExitApp
DoTheWork:
filelist1 := filelist2 := ""
list1 := list2 := ""
fnb1 := fnb2 := 0