AutoHotkey Community

VideoList:
Gui +ToolWindow
gui, font, s26, Verdana
Gui, Color, 000050
Gui, Add, Picture, w298 h-1 x0 y0, gPoster
Gui, Add, ListView, Background000050 cWhite -E0x200 -Multi -hdr Sort x300 y2 r11 w700 gMyListView,Video Title


LV_ModifyCol(1,700)

Gui, Show, w1000 h540, Video Directory

Loop
{
ifnotexist, %DrvLtr%:\Portable
   {
   Gui,Destroy
   Goto DriveDetect
   }

Gui, Show, NA w1004 h540, Video Directory


; Gather a list of file names from a folder and put them into the ListView:



Loop, %DrvLtr%:\Portable\*.avi
    LV_Add("", A_LoopFileName)
Loop, %DrvLtr%:\Portable\*.wmv
    LV_Add("", A_LoopFileName)



Sleep, 60000
LV_Delete()


}

return

MyListView:

;If a title is selected by either using the arrow keys to scroll or by a SingleClick, show movie's poster
if A_GuiEvent = SingleClick
{
    LV_GetText(RowText, A_EventInfo)  ; Get the text from the row's first field.
    GuiControl,, Poster, %DrvLtr%:\Portable\Movie Posters\%RowText%.jpg

   ;Following is for troubleshooting purpose
   IfExist %DrvLtr%:\Portable\Movie Posters\%RowText%.jpg
      PosterIs = It's there
    TrayTip,Video Directory, Poster: %DrvLtr%:\Portable\Movie Posters\%RowText%.jpg`nIs it there? %PosterIs%
      PosterIs = It's NOT there

}

;if the ENTER Key is pressed, start a movie
if A_GuiEvent = ENTER
{
    LV_GetText(RowText, A_EventInfo)  ; Get the text from the row's first field.
    TrayTip,Video Directory, Starting: "%DrvLtr%:\Portable\%RowText%"
   Run, %DrvLtr%:\Portable\%RowText%, Max
}

 
;if a title is DoubleClicked, start a movie
if A_GuiEvent = DoubleClick
{
    LV_GetText(RowText, A_EventInfo)  ; Get the text from the row's first field.
    TrayTip,Video Directory, Starting: "%DrvLtr%:\Portable\%RowText%"
   Run, %DrvLtr%:\Portable\%RowText%, Max
}


Return



GuiClose:
ExitApp

Gui, Add, Picture, w298 h-1 x0 y0 vPoster  ;note the v

MyListView:
if (a_guievent = "K") OR (A_GuiEvent = "Normal")
{
   tmprw:=LV_GetNext("","F")
   LV_GetText(RowText, tmprw)  ; Get the text from the row's first field.
   run, %dfltfldr%\%RowText%, , Max
   StringTrimRight, RowText, RowText, 4
   GuiControl,, Poster, %dfltfldr%\Movie Posters\%RowText%.jpg
}
Return

if (a_guievent = "K" && (a_eventinfo = 33 || a_eventinfo = 34 || a_eventinfo = 35 || a_eventinfo = 36 || a_eventinfo = 38 || a_eventinfo = 40)) OR (A_GuiEvent = "Normal")

VideoList:
RowText = no file.jpg
Gui -Border
gui, font, s13, Verdana
Gui, Add, Button, w98 x600 y0, Re&fresh
Gui, Add, Button, w98 x700 y0, Re&Boot
Gui, Add, Button, w98 x800 y0, &Hibernate
Gui, Add, Button, w98 x900 y0, &Exit
gui, font, s30, Verdana
Gui, Color, 000050
Gui, Add, ListView, Background000050 cWhite -E0x200 AltSubmit -Multi -hdr Sort x300 y35 r9 w725 gMyListView,Video Title
gui, font, s8, Verdana
Gui, Add, Text, cGray w550 x2 y1 vSelectedFile,File: none
Gui, Add, Picture, x5 y35 vPoster



LV_ModifyCol(1,725)


Gui, Show, NA w1004 h450, Video Directory

AddTitles:
Loop, %DrvLtr%:\Portable\*.avi
    LV_Add("", A_LoopFileName)
Loop, %DrvLtr%:\Portable\*.wmv
    LV_Add("", A_LoopFileName)


Loop
{
ifnotexist, %DrvLtr%:\Portable
   {
   Gui,Destroy
   Goto DriveDetect
   }
}




return

MyListView:
TrayTip, Video Directory, Event type: %A_GuiEvent%

if (a_guievent = "K") OR (A_GuiEvent = "Normal")
{
   tmprw:=LV_GetNext("","F")
   LV_GetText(RowText, tmprw)  ; Get the text from the row's first field.
   ;StringTrimRight, RowText, RowText, 4
   ifexist %DrvLtr%:\Portable\Movie Posters\%RowText%.jpg
      IsIt = Does Exist
  ; TrayTip, Video Directory, File: %DrvLtr%:\Portable\Movie Posters\%RowText%.jpg`n%IsIt%
      IsIt =
   GuiControl,, Poster, %DrvLtr%:\Portable\Movie Posters\%RowText%.jpg
   GuiControl,, SelectedFIle, File: %DrvLtr%:\Portable\Movie Posters\%RowText%.jpg
}

if (a_guievent = 13) OR (A_GuiEvent = "DoubleClick")
   run, %DrvLtr%:\Portable\%RowText%, , Max


Return
ButtonRefresh:
LV_Delete()
Goto, AddTitles

ButtonReboot:
Shutdown, 2
MsgBox, Video Directory, Rebooting the system.
ExitApp

ButtonHibernate:
; Call the Windows API function "SetSuspendState" to have the system suspend or hibernate.
; Windows 95/NT4: Since this function does not exist, the following call would have no effect.
; Parameter #1: Pass 1 instead of 0 to hibernate rather than suspend.
; Parameter #2: Pass 1 instead of 0 to suspend immediately rather than asking each application for permission.
; Parameter #3: Pass 1 instead of 0 to disable all wake events.
DllCall("PowrProf\SetSuspendState", "int", 1, "int", 0, "int", 0)
MsgBox, Video Directory, Hibernating the system.
return


ButtonExit:
GuiClose:
ExitApp

Gui, Add, Button, Hidden Default, OK
...
ButtonOK:
GuiControlGet, FocusedControl, FocusV
if FocusedControl <> MyListView
    return
MsgBox % "Enter was pressed. The focused row number is " . LV_GetNext(0, "Focused")
return

ButtonOK:
ControlFocus, SysListView321, Video Directory
focusedrow := LV_GetNext(0, "Focused")
run, %DrvLtr%:\Portable\%focusedrow%, Max
return

Gui, Add, ListView, gMyListView, Thing 1|Thing 2|Thing 3
Gui,show
LV_Add("",1,2,3)
LV_Add("",4,5,6)
LV_Add("",7,8,9)
return

MyListView:
if A_GuiEvent = DoubleClick
  msgbox Double Click
else if (a_guievent = "K" && (a_eventinfo = 33 || a_eventinfo = 34 || a_eventinfo = 35 || a_eventinfo = 36 || a_eventinfo = 38 || a_eventinfo = 40)) OR (A_GuiEvent = "Normal")
  Msgbox Other Stuff
Return

Gui, Add, ListView, gMyListView altsubmit, Thing 1|Thing 2|Thing 3