AutoHotkey Community

;-------- saved at Montag, 3. November 2008 12:52:53 --------------
;-------- http://www.autohotkey.com/forum/topic37274.html ---

MODIFIED=20110725

/*
-first start shows desktop-tree
 ( add your own favorite tree-roots )
-some programs for gwbasic
-open ahk/basic/text files in editbox or start with doubleclick
-open pictures and use keys UP/DOWN or SPACE
*/



#NoEnv
#Persistent
#NoTrayIcon
#SingleInstance Force
setworkingdir,%A_scriptdir%

Sendmode,InputThenPlay

SetBatchLines -1
SetWinDelay -1
SetControlDelay -1
Process Priority , , High
transform,S,chr,32

PR=c:\gwbasic.exe

EXT2          =txt,ahk,csv,bat,bak,bas,css,ba,ini,hta,log       ;-- only show these extensions in EditBox
EXT3          =png,jpg,bmp,tif,gif                              ;-- pictures

;-- allow to start without asking:
EXT9          =pdf,mov,mp4,mp3,flv,txt,ahk,csv,ini,hta,png,jpg,bmp,tif,gif,txt,ahk,csv,bas,ini,hta


RSSINI=%A_scriptdir%\LV_TreeviewINI.txt
ifnotexist,%rssini%
  IniWrite,Desktop,%rssini%,Root1,KEY1
IniRead,RootX,%rssini%,Root1,KEY1
   gosub,aax2



   Menu,S1,add,MyTREE      ,MH1
   Menu,S1,add,DOCTXT      ,MH1
   Menu,S1,add,VIDEO       ,MH1
   Menu,S1,add,FOTO        ,MH1
   Menu,S1,add,MUSIC       ,MH1
   Menu,S1,add,Filme       ,MH1
   Menu,S1,add,csvtxt      ,MH1
   Menu,S1,add,Desktop     ,MH1


   ;----------------------------
   Menu,S2,add,Volume      ,MH2
   Menu,S2,add,Charmap     ,MH2
   ;Menu,S2,add,MySaPrograms,MH2
   ;Menu,S2,add,SaPrograms  ,MH2


   ;----------------------------
   menu,myMenuBar,Add,ROOT      ,:S1
   menu,myMenuBar,Add,Programme ,:S2

   ;----------------------------
   gui,2:menu,MyMenuBar
   ;----------------------------



WA=%A_screenwidth%
HA=%A_screenheight%
SHOWW:=(WA*99)/100  ;-- GUI width
SHOWH:=(HA*93)/100  ;-- GUI height
TRH:=(HA*72)/100
LWH:=(HA*72)/100
EDH:=(HA*86)/100
PIH:=(HA*65)/100    ;-- picture height
BT1:=(HA*83)/100    ;-- buttons
BT2:=(HA*86)/100    ;-- buttons
BT3:=(HA*88)/100    ;-- buttons

X1:=(WA*1 )/100
W1:=(WA*11 )/100
X2:=(WA*12.5)/100
W2:=(WA*13 )/100
X3:=(WA*26.5)/100
W3:=(WA*72)/100
W9:=(WA*97)/100

Gui,2:default
Gui,2: margin, 0, 0

Gui,2: Add, TreeView, vMyTree1 x%x1% y0 w%w1% h%trh% vMyTree1 gMyTree ImageList%ImageListID%
Gui,2: Add, ListView, vMyList1 x%x2% y0 w%w2% h%lwh% vMyList1 gMyList -hdr -multi AltSubmit, Name
Gui,2:Font,,FixedSys
Gui,2:Add, Edit     ,          x%x3% y0 w%w3% h%edh%  vA2x    ,


Gui,2: Add, Button , x10   y%bt1%  w100 h22    gOpen1    ,Text-File
Gui,2: Add, Button , x10   y%bt2%  w100 h22    gSave1    ,Text-SAVE
Gui,2: Add, Button , x120  y%bt1%  w100 h22    gOpen2    ,Folder

Gui,2: Add, Button , section x%x3% y%bt3%  w130 h22    gGWBASIC1 ,GWBASIC-convert
Gui,2: Add, Button , xp+140        y%bt3%  w110 h22    gGWBASIC2 ,GWBASIC-RUN
Gui,2: Add, Button , xp+120        y%bt3%  w120 h22    gSystem1  ,GWBASIC-CLOSE
;Gui,2: Add, Button , xp+130        y%bt3%  w90  h22    g80Chars  ,80-Chars
;Gui,2: Add, Button , xp+100        y%bt3%  w90  h22    gREMARKS  ,Remarks
Gui,2: Add, Button , xp+200        y%bt3%  w90  h22    gReload1  ,Reload



ImageListID1 := IL_Create(10)
ImageListID2 := IL_Create(10, 10, true)

LV_SetImageList(ImageListID1)
LV_SetImageList(ImageListID2)

Gui,2: Add, StatusBar, gMyStatusBar
SB_SetParts(W1,W2,W3)

SplashTextOn, 200, 25, Explorer, Loading...
gosub,readtree
SplashTextOff

Gui,2: Show,x0 y0 w%showw% h%showh%,TREEVIEW Example
return
;--------------------------------------------------------



Readtree:
TV_Delete()
LV_Delete()

AddSubFoldersToTree(TreeRoot)
GuiControl,2: -Redraw, MyTree1
AddSubFoldersToTree(folder, ID = 0)
{
if ID = 0
ID := TV_Add(truc, truc , "Icon10 select expand")
    Loop %folder%\*.*, 2
        AddSubFoldersToTree(A_LoopFileFullPath, TV_Add(A_LoopFileName, ID , "Icon4"))
}
GuiControl,2: +Redraw, MyTree1

return
;--------------------------------------------------




3Guiclose:
gui,3:destroy
return
;--------------------------------------------------

2GuiClose:
gui,3:destroy
ExitApp
;--------------------------------------------------


Reload1:
reload
return



Open2:
Gui,2:submit,nohide
run,%SelectedFullPath%
return
;--------------------------------------------------




;---- textfile -----------
OPEN1:
Gui,2: Submit,nohide
;msgbox, 262208,Message,File=%f1%
SplitPath, F1, name, dir, ext, name_no_ext, drive
If Ext Not In %ext2%
      return
else
      run,notepad %f1%
return
;--------------------------------------------------







save1:
Gui,2: Submit,nohide
GuiControlGet,C,,A2x
if (F1="" or C="")
   return
;msgbox, 262208,Message,File=%f1%`n%c%
;return
SplitPath, F1, name, dir, ext, name_no_ext, drive
If Ext Not In %ext2%
    return
else
    {
    msgbox, 262436, ,Want you overwrite`n%F1% ?
    ifmsgbox,NO
      return
    ifmsgbox,Cancel
      return
    }

;-- or use filedelete --
filerecycle,%f1%
stringreplace,C,C,`n,`r`n,all
Fileappend,%c%`r`n,%f1%
;msgbox, 262208,Message,File %F1% is saved
;run,%f1%
run,%SelectedFullPath%      ;-- open folder
return
;--------------------------------------------------







;------------------------------------------------------------------
MH1:
IniRead,CC3,%rssini%,Root1,KEY1
if CC3<>%A_ThisMenuItem%
   {
   IniWrite,%A_ThisMenuItem%,%rssini%,Root1,KEY1
   ;IniRead,RootX,%rssini%,Root1,KEY1
   Rootx=%A_ThisMenuItem%
      gosub,AAX2
   return
   }


aax2:
if RootX=doctxt
   Treeroot=c:\M_doctxt
if RootX=csvtxt
   Treeroot=c:\M_csvtxt
if RootX=music
   Treeroot=c:\M_music
if RootX=Filme
   Treeroot=c:\M_Filme
if RootX=Video
   Treeroot=c:\M_VIDEO
if RootX=Foto
   Treeroot=c:\M_Foto
if RootX=MyTree
   Treeroot=C:\1A\_00_MAIN_AHK\1A_MyTreeview
if RootX=Desktop
   Treeroot=%A_desktop%

gosub,readtree
return


;------------------------------------------------------------------


;------------------------------------------------------------------
MH2:
if A_thisMenuItem=Volume
    {
    run,sndvol32
    run,sndvol32 /rec
    CN=RunDLL32.EXE shell32.dll,Control_RunDLL mmsys.cpl,,1
    run,%CN%
    }
if A_thisMenuItem=Charmap
    run,charmap

/*
if A_thisMenuItem=MySaPrograms
    run,C:\1A\_00_MAIN_AHK\1A_MySaPrograms

if A_thisMenuItem=SaPrograms
    run,C:\Programme_Standalone
*/

return
;------------------------------------------------------------------













;------------------------------
MyTree:
if A_GuiEvent <> S
  return

GuiControl,2:,A2x,
TV_GetText(SelectedItemText, A_EventInfo)
ParentID := A_EventInfo
Loop
    {
    ParentID := TV_GetParent(ParentID)
    if not ParentID
       break
    TV_GetText(ParentText, ParentID)
    SelectedItemText = %ParentText%\%SelectedItemText%
    }

SelectedFullPath = %TreeRoot%\%SelectedItemText%
StringReplace, SelectedFullPath, SelectedFullPath, \\ , \

StringRight, LastChar, SelectedFullPath, 1
if LastChar <> \
SelectedFullPath = %SelectedFullPath%\

FilenameforSB = Loading Files
SB_SetText(SelectedFullPath . FilenameforSB, 1)

LV_Delete()

VarSetCapacity(Filename, 260)
sfi_size = 352
VarSetCapacity(sfi, sfi_size)


if (SelectedItemText = %ParentText%)
rooticonlist= %treeroot%\
else
rooticonlist= %SelectedFullPath%

FileCount = 0
TotalSize = 0

GuiControl,2: -Redraw, MyList1

Loop %rooticonlist%*.*
{
    FileName := A_LoopFileFullPath
    SplitPath, FileName,,, FileExt


    if FileExt in EXE,ICO,ANI,CUR,LNK
      {
      ExtID := FileExt
      IconNumber = 0
      }

    else
      {
        ExtID = 0
        Loop 7
           {
            StringMid, ExtChar, FileExt, A_Index, 1
            if not ExtChar
                break

            ExtID := ExtID | (Asc(ExtChar) << (8 * (A_Index - 1)))
           }
        IconNumber := IconArray%ExtID%
     }

    if not IconNumber
    {
        if not DllCall("Shell32\SHGetFileInfoA", "str", FileName, "uint", 0, "str", sfi, "uint", sfi_size, "uint", 0x101)
            IconNumber = 9999999
        else
        {
            hIcon = 0
            Loop 4
                hIcon += *(&sfi + A_Index-1) << 8*(A_Index-1)
            IconNumber := DllCall("ImageList_ReplaceIcon", "uint", ImageListID1, "int", -1, "uint", hIcon) + 1
            DllCall("ImageList_ReplaceIcon", "uint", ImageListID2, "int", -1, "uint", hIcon)
            DllCall("DestroyIcon", "uint", hIcon)
            IconArray%ExtID% := IconNumber
        }
    }

FileCount += 1
TotalSize += A_LoopFileSize
LV_Add("Icon" . IconNumber, A_LoopFileName)
}

GuiControl,2: +Redraw, MyList1

SB_SetText(FileCount . " files", 1)
SB_SetText(Round(TotalSize / 1024, 1) . " KB", 2)
FilenameforSB =
SB_SetText(SelectedFullPath . FilenameforSB, 3)
return
;------------------------------




MyList:
Gui,2:submit,nohide
Gui,2:default
Gui,2:ListView,MyList1

    RN:=LV_GetNext("C")
    RF:=LV_GetNext("F")
    GC:=LV_GetCount()

if RN=0
   return


;gui,3:destroy
;GuiControl,2:Enable,A2x


if A_GuiEvent = Normal
    {
    GuiControl,2: ,A2x,
    LV_GetText(FileNameforSB, A_EventInfo, 1)
    StringRight, LastChar, SelectedFullPath, 1
    if LastChar <> \
       SelectedFullPath = %SelectedFullPath%\
    ;SB_SetText(FileNameforSB, 3)
    F1=%SelectedFullPath%%FilenameforSB%
    SB_SetText(F1, 3)
    SplitPath, F1, name, dir, ext, name_no_ext, drive
    ;----- if text -----------
    If Ext In %ext2%
      {
      GuiControl,2:Enable,A2x
      Fileread,a,%F1%
      GuiControl,2: ,A2x, %a%
      return
      }
    ;------ pictures ----------
    If Ext In %ext3%
       gosub,showpict

  }




if A_GuiEvent=K
{
LV_GetText(C1,RF,1)
F1=%SelectedFullPath%%C1%
SplitPath, F1, name, dir, ext, name_no_ext, drive

;- scroll Forward with SPACE-key or use UP/DOWN  ----------
GetKeyState, State,space
If (State = "D")
  {
  ;msgbox, 262208,SPACE,Pressed SPACE`n`nRow=%rn%`nC1=%c1%,2
  RF:=(RF+1)
  LV_Modify(RF, "+Select +Focus")    ;-- select focus
  LV_GetText(C1,RF,1)
  F1=%SelectedFullPath%%C1%
  SplitPath, F1, name, dir, ext, name_no_ext, drive
       if (RF=(GC))
         msgbox, 262208, Forward, Row=%rn%`nReached END`n%C1% , 2
       If Ext In %ext3%
         gosub, showpict
  }

  GetKeyState,state1,UP
  if (state1="D")
    {
    if RF=1
      msgbox, 262208, Backward, Row=%rn%`nReached FirstRow`n%C1% , 2
   If Ext In %ext3%
       gosub, showpict
    }


GetKeyState,state2,DOWN
  if (state2="D")
    {
       if (RF=(GC))
          msgbox, 262208, Forward, Row=%rn%`nReached END`n%C1% , 2
          If Ext In %ext3%
             gosub, showpict
    }
}
;------------




if A_GuiEvent = Doubleclick
    {
    LV_GetText(C1, A_EventInfo, 1)
    F1=%SelectedFullPath%%C1%
    SplitPath, F1, name, dir, ext, name_no_ext, drive
    If Ext In %Ext9%
       run,%f1%
    else
      {
      msgbox, 262180, , Want you RUN`n%f1% ?
      IfMsgBox,No
        return
      Else
       run,%f1%
       }
    }
;------------

if A_GuiEvent = Rightclick
    {
    LV_GetText(C1, A_EventInfo, 1)
    F1=%SelectedFullPath%%C1%
    SB_SetText(F1,3)
    If Ext In %Ext9%
       run,%f1%
    else
      {
      msgbox, 262180, , Want you RUN`n%f1% ?
      IfMsgBox,No
        return
      Else
       run,%f1%
       }
    }
return
;------------------------------





ShowPict:
      gui,3:destroy
      GuiControl,2:Disable,A2x
      ;Gui,2:Add,Picture,x220 y420 w200  h150 +0x4000000,%f1%  ;-- allow once a background behind GUI
      Gui,3: +Alwaysontop
      Gui,3:Add,Picture,x0 y0 w%w3%  h%pih%,%f1%
      Gui,3:Show,x%x3% y30 w%w3%  h%pih%
      Gui,2:Show
      WinActivate
return





MyStatusBar:
if A_GuiEvent = normal
  {
  if  a_eventinfo = 3
     Msgbox, %f1%
  }
return
;------------------------------




;------ replace 13 with 13/10 -----------
gwbasic1:
Gui,2:submit,nohide
GuiControlGet,C,,A2x
if (F1="" or C="")
   return
SplitPath, F1, name, dir, ext, name_no_ext, drive
if (ext="bas" or ext="ba")
  {
  msgbox, 262436, ,This converts 13 to 13/10`nOriginal file is in RecycleBin`n%F1% ?
   ifmsgbox,NO
      return
   ifmsgbox,Cancel
      return
  filerecycle,%f1%
  stringreplace,C,C,`r,`r`n,all
  ;F2=%dir%\%name_no_ext%_%A_now%.%ext%
  ;Fileappend,%c%`r`n,%f2%
  Fileappend,%c%`r`n,%f1%
  ;msgbox, 262208,Message,File %F1% is saved
  ;run,%f2%
  GuiControl,2:,A2x,
  ;Fileread,a,%F2%
  Fileread,a,%F1%
  GuiControl,2: ,A2x, %a%
  run,%SelectedFullPath%      ;-- open folder
  }
return
;-------------------------------------------------------------





;-- run gwbasic --------
GWBASIC2:
Gui,2:submit,nohide
GuiControlGet,C,,A2x
if (F1="" or C="")
   return
SplitPath, F1, name, dir, ext, name_no_ext, drive
if (ext="bas")
  {
  SplitPath, F1, name, dir, ext, name_no_ext, drive
  Loop, %F1%                              ;-- create shortpath
        SP1= %A_loopFileShortPath%
     Run,%ComSpec% /k %PR% %SP1%,,,PID1
  }
return
;-------------------------------------------------------------






80CHARS:
Gui,2:submit,nohide
GuiControlGet,C,,A2x
if (F1="" or C="")
   return
SplitPath, F1, name, dir, ext, name_no_ext, drive
F2=%dir%\%name_no_ext%_%A_now%.%ext%

if (ext="txt")
{
L2:=(81)
 Loop,Read,%F1%
   {
   LR=%A_LoopReadLine%
   LR=%LR%                      ;remove leading spaces
   if LR=
      continue
   stringlen,L1,LR
    if (L1<L2)
       {
       Fileappend,%LR%`r`n,%F2%
       continue
       }
    E=
    StringSplit,A,LR,%S%
     loop,%A0%
       {
       D:=A%A_Index%
       E=%E%%S%%D%
       stringlen,L1,E
       if (L1<L2)
          continue
       else
         {
         Fileappend,%E%`r`n,%F2%
         E=
         continue
         }
       }
   ;Fileappend,%S%%E%`r`n,%F2%          ;write rest
   Fileappend,%E%`r`n,%F2%          ;write rest
   }
  GuiControl,2:,A2x,
  Fileread,a,%F2%
  GuiControl,2: ,A2x, %a%
  run,%SelectedFullPath%      ;-- open folder
  ifexist,%f2%
    run,%f2%
}
return
;-------------------------------------------------------------




;-------------- move remarks in ahk-script ----------
remarks:
Gui,2:submit,nohide
GuiControlGet,C,,A2x
if (F1="" or C="")
   return
SplitPath, F1, name, dir, ext, name_no_ext, drive
F2=%dir%\%name_no_ext%_%A_now%.%ext%

Autotrim,off
TAB1=81

if (ext="ahk")
  {
  Loop,Read,%F1%
    {
    LR=
    C1=
    C2=
    LR=%A_LoopReadLine%
    stringreplace,LR,LR,%s%;,?,all
    StringSplit,C,LR,?,
    C1 := LP(C1,TAB1,S,"L")
    if C2=
       e4=%e4%%c1%%s%%c2%`r`n
    else
       e4=%e4%%c1%%s%;-- %c2%`r`n
    }
  Fileappend,%e4%,%f2%
  e4=
  LR=
  C1=
  C2=
  GuiControl,2:,A2x,
  Fileread,a,%F2%
  GuiControl,2: ,A2x, %a%
  run,%SelectedFullPath%      ;-- open folder
  ifexist,%f2%
    run, notepad %f2%
 }
return
;-------------------------------------------------------------





SYSTEM1:
Settitlematchmode,2
SetKeyDelay,25,5

;dd=C:\WINDOWS\system32\cmd.exe
dd=cmd.exe

;IfWinExist, cmd.exe
;  ifwinexist, %V2%
;    winactivate, %V2%
;#IfWinActive ahk_class ConsoleWindowClass


WinWait,%dd%
IfWinNotActive ,%dd%,,WinActivate,%dd%
  WinWaitActive,%dd%
  {
  sleep,1300
  ControlSend,,^{CtrlBreak}`r`n,ahk_pid %PID1% ;--
  sleep,1100
  ControlSend,,system`r`n,ahk_pid %PID1%       ;-- quit GWBASIC
  sleep,1100
  ControlSend,,exit`r`n,ahk_pid %PID1%         ;-- quit DOS
  }
return
;-------------------------------------------------------------




;----------- LinePadding BoBo --------------
LP(String,FieldLen,ToAppend,Justification)
 {
   StringLen, StringLen, String
   LCnt := FieldLen-StringLen
   Loop, % LCnt
     Appended := (Appended . ToAppend)
   If Justification = R
      Return (Appended . String)
   If Justification = L
         Return (String . Appended)
 }
;=========== END script LinePadding ===============



;======================== END PROGRAM ==================================================================