AutoHotkey Community

Code: Select all

Gui +AlwaysOnTop +Resize
Gui, Add, ListView, sort -ReadOnly r10 w800 vMyListView gMyListview, Title 
| Year | Image
Gui, Add, Button, section gAddItem, Add Movie Title
Gui, Add, Text, w52 section , Movie Title
Gui, Add, Edit, w100 ys vAddr2, Title
Gui, Add, Text, ys, Year
Gui, Add, Edit, w150 ys vAddr1, Year

pathToPic := ""
GUI Add, Button, w65 ys vMyButton gpushPic, Add Image
GUI, Show, AutoSize

pushPic:
FileSelectFile, path, 3, % pathToPic, Select a picture, Pictures (*.png; *.svg; *.jpg) ; displays a standard dialog that allows the user to choose a picture
	return

Code: Select all

pathToPic := ""
GUI Add, Button, w65 ys vMyButton gpushPic, Add Image ; add a button and set its g-label to be 'pushPic' (https://www.autohotkey.com/docs/commands/Gui.htm#label)
Gui, Add, Edit, w100 ys, %path% 
GUI, Show, AutoSize

pushPic:
FileSelectFile, path, 3, % pathToPic, Select a picture, Pictures (*.png; *.jpeg; *.jpg) ; displays a standard dialog that allows the user to choose a picture
MsgBox, % path

Code: Select all

#warn
#noenv
Setworkingdir,%a_scriptdir%
Gui,2:default
Gui,2: -DPIScale
Gui,2: Font,s14 CBlack,Lucida Console
e4x=
(Ltrim Join`r`n
VOLUME;Sndvol.exe
CHARMAP;Charmap.exe
Black;myblack.ahk
Notepad;Notepad.exe
mozilla;%a_programfiles%\Mozilla Firefox\Firefox.exe
)
   Gui,2:Add, ListView, backgroundGray  grid x10 y5  h360 w600 +hscroll altsubmit vMLV1A gMLV1B      , Icon|Program
   gosub,lb
gui,2:show, x100 y10 h380 w630,LV-Icon / Click on column-2 to start
return
2Guiclose:
exitapp
lb:
Gui,2:Submit,nohide
Gui,2:ListView,mlv1a
t1:=280
t2:=300
   LV_ModifyCol(1,T1)
   LV_ModifyCol(2,T2)
  ;ILStatus := IL_Create(1,1,0)                ;small
   ILStatus := IL_Create(1,1,1)                ;bigger
   LV_SetImageList(ILStatus, 1)
LV_Delete()
GuiControl,2: -Redraw,MLV1a

;---  for test -----------
R3I=C:\M_ICO
XXA:=% R3I . "\black.ico"
;-------------------------

loop,parse,e4x,`n,`r
  {
  x:=a_loopfield
  c1=
  c2=
  IconNumber := IL_Add(ILSTATUS, "%pictxx05%" )      ;- clear with picture which not exist
  stringsplit,C,x,`;,
  SplitPath,c2, name, dir, ext, name_no_ext, drive
  IconNumber := IL_Add(ILSTATUS, C2 )

  if C1=black
    IconNumber := IL_Add(ILSTATUS, XXA )

  LV_Add("icon" . IconNumber ,C1,name_no_ext)
  }
GuiControl,2: +Redraw,MLV1a
LV_ModifyCol(1,"right")     ;- move text to right
return
;-----------------------------------------------------------------
mlv1b:
Gui,2:submit,nohide
Gui,2:ListView, mlv1a
t1a:=(t1+20)
If A_GuiEvent = Normal
   {
    MouseGetPos,x,y
       {
       if x<%T1%
          return
       if x>%T1a%
          {
          LV_GetText(C2,A_EventInfo,2)
          ;msgbox, 262208, C2,%c2%
          try 
          run,%c2%
          return
          }
       }
}
return
;==============================================

Code: Select all

pushPic:
Gui, Submit, NoHide		; <- GuiControlGet would work here too
FileSelectFile, path, 3, % pathToPic, Select a picture, Pictures (*.png; *.jpeg; *.jpg) ; displays a standard dialog that allows the user to choose a picture
NewVar := % path
GuiControl,, Newvar, %Newvar%
Gui, Add, Picture, x0 y0  w50 h50 hwndhWndPicControl, %Newvar%

Code: Select all

OnExit, UpdateFile

SelectedRow := 0

Gui +AlwaysOnTop +Resize
Gui, Add, ListView, sort -ReadOnly r10 w800 vMyListView gMyListview, Title 
| Year | Image
Gui, Add, Button, section gAddItem, Add Movie Title
Gui, Add, Text, w52 section , Movie Title
Gui, Add, Edit, w100 ys vAddr2 hwndOne
SetEditCueBanner(One, "Title")
Gui, Add, Text, ys, Year
Gui, Add, Edit, w150 ys vAddr1 hwndTwo
SetEditCueBanner(Two, "Year")

pathToPic := ""
GUI Add, Button, w65 ys gpushPic, Add Image ; add a button and set its g-label to be 'pushPic' (https://www.autohotkey.com/docs/commands/Gui.htm#label)
Gui, Add, Picture, w65 h100 ys vNewVar hwndThree, %Newvar%

Code: Select all

AddItem:                 ;Add new or update ListView row
  Gui, Submit, NoHide
  
If SelectedRow = 0
{
	LV_Add("", Trim(Addr2),Trim(Addr1),Trim(NewVar))
}
else
{
	LV_Modify(SelectedRow,"", Addr1,Addr2,NewVar)
	LV_ModifyCol(1,"Sort")
	SelectedRow := 0
	GuiControl, ,Button1, Add to list
}

SizeCols()
UpdateFile()
Return

UpdateFile:  ;When exiting
  DetectHiddenWindows On
  UpdateFile()
  ExitApp
Return