AutoHotkey Community

;2005-12-15  Nuwan :Simple desktop pad-Test
;-----------------------------------------------------------------------------
;Saving folder is WorkingDirectory (Place where the compiled exe file located)
;-----------------------------------------------------------------------------
;================================================Variables
R1=200
R2=400
R3=185
R4=147
N=0
P=0
Q=0
A=1
B=0
Pz=0
Az=1
;================================================GUI
Gui, font, cBlack
Gui, Add, edit,vMainEdit x200 y400 w185 h147 ,
Gui, font,, Times New Roman
Gui, font, wBold s10
Gui, Add, Button, x327 y546 w60 h30 gMess, Exit
Gui, Add, Button, x266 y546 w60 h30 gOpt, Options
Gui, Add, Button, x144 y546 w60 h30 gTrans, Trans
Gui, Add, Button, x22 y515 w60 h30 gHeightA, Height +
Gui, Add, Button, x83 y515 w60 h30 gWidthA, Width +
Gui, Add, Button, x22 y546 w60 h30 gHeightD, Height  -
Gui, Add, Button, x83 y546 w60 h30 gAppo, New
Gui, Add, Button, x144 y515 w60 h30 gWidthD, Width  -
Gui, Add, Button, x205 y546 w60 h30 gSave, Save
Gui, Color,  C0C0C0
Gui, +LastFound
WinSet, TransColor, C0C0C0
Gui, -Caption  +ToolWindow
Xp:= A_SCREENWidth - 400
Yp:= A_SCREENHeight - 604
Gui, Show,x%XP% y%Yp%, Desktop Pad
Control, Hide,, Height +,
Control, Hide,, Width +,
Control, Hide,, Height  -,
Control, Hide,, Width  -,
Control, Hide,, New,
Control, Hide,, Trans,
WinSet, AlwaysOnTop, on, Desktop Pad

Bak:
  {
    Gui, 2:font, cBlack
    Gui, 2:font,, Times New Roman
    Gui, 2:font, wBold s12
    Gui, 2:Add, Text, x10 y10 ,Prefix
    Gui, 2:Add, Text, x10 y10 ,Appointments
    Gui, 2:font, wBold s10
    Gui, 2:Add, Text, x10 y30 ,Abbreviation
    Gui, 2:Add, Text, x10 y30 ,Time (hhmm)
    Gui, 2:Add, Text, x120 y30 ,Appointment
    Gui, 2:Add, Text, x120 y30 ,Expand . . . . .
    Gui, 2:Add, edit,vpf1 x10 y50 w55 h30,
    Gui, 2:Add, edit,vEx1 x70 y50 w180 h30,
    Gui, 2:Add, Button, x260 y50 w40 h30 gplay1, Run1
    Gui, 2:Add, edit,vpf2 x10 y90 w55 h30,
    Gui, 2:Add, edit,vEx2 x70 y90 w180 h30,
    Gui, 2:Add, Button, x260 y90 w40 h30 gplay2, Run2
    Gui, 2:Add, edit,vpf3 x10 y130 w55 h30,
    Gui, 2:Add, edit,vEx3 x70 y130 w180 h30,
    Gui, 2:Add, Button, x260 y130 w40 h30 gplay3, Run3
    Gui, 2:Add, edit,vpf4 x10 y170 w55 h30,
    Gui, 2:Add, edit,vEx4 x70 y170 w180 h30,
    Gui, 2:Add, Button, x260 y170 w40 h30 gplay4, Run4
    Gui, 2:Add, edit,vpf5 x10 y210 w55 h30,
    Gui, 2:Add, edit,vEx5 x70 y210 w180 h30,
    Gui, 2:Add, Button, x260 y210 w40 h30 gplay5, Run5
    Gui, 2:font, wBold s10
    Gui, 2:Add, Button, x120 y246 w55 h30 gPfx, Prefix
    Gui, 2:Add, Button, x175 y246 w55 h30 gApp, Appoint
    Gui, 2:Add, Button, x230 y246 w54 h30 gSnd, Sound
    Gui, 2:Add, Button, x230 y246 w54 h30 gPref, Apply
    Gui, 2:+Resize
    Gui, 2:-Border -Caption +ToolWindow
    Xp:= A_SCREENWidth - 320
    Yp:= A_SCREENHeight - 337

    If pf1>%TM%
      {
        GuiControl, Focus, pf1
        Send, %pf1%
        GuiControl, Focus, Ex1
        Send, %Ex1%
      }

    If pf2>%TM%
      {
        GuiControl, Focus, pf2
        Send, %pf2%
        GuiControl, Focus, Ex2
        Send, %Ex2%
      }

    If pf3>%TM%
      {
        GuiControl, Focus, pf3
        Send, %pf3%
        GuiControl, Focus, Ex3
        Send, %Ex3%
      }

    If pf4>%TM%
      {
        GuiControl, Focus, pf4
        Send, %pf4%
        GuiControl, Focus, Ex4
        Send, %Ex4%
      }

    If pf5>%TM%
      {
        GuiControl, Focus, pf5
        Send, %pf5%
        GuiControl, Focus, Ex5
        Send, %Ex5%
      }

    GuiControl, Focus, pf1
    Gui, 2:Add, Text, x15 y246 ,%A_Hour%%A_Min% (Now)
    Gui, 2:Show,x%XP% y%Yp%, Second Pad
    Control, Hide,,Expand . . .,Second Pad
    Control, Hide,, Apply,Second Pad
    Gui, 2:Hide
    SetTimer,clock,1000
  }
:R:Nuwan::Nuwan
Return
;=================================================Appointments
App:
  If Az=0
    {
      Control, Hide,, Prefix,Second Pad
      Control, Hide,, Abbreviation,Second Pad
      Control, Hide,,Expand . . .,Second Pad
      Control, Hide,, Apply,Second Pad
      Control, Show,, Time (hhmm),Second Pad
      Control, Show,, Appointments,Second Pad
      Control, Show,, Sound,Second Pad
      GuiControl, 2:Enable,Run1
      GuiControl, 2:Enable,Run2
      GuiControl, 2:Enable,Run3
      GuiControl, 2:Enable,Run4
      GuiControl, 2:Enable,Run5
      AZ=1
      Pz=0
      Return
    }
  If AZ=1
    {
      Gui, 2:Submit
      Gui 2:Destroy
      Gui, 2:font, cBlack
      Gui, 2:font,, Times New Roman
      Gui, 2:font, wBold s10
      Gui, 2:Add, Button, x0 y0 w55 h30 gApp, Appoint
      Gui, 2:Add, Button, x55 y0 w54 h30 gMess, Exit
      Gui, Color,  8388736
      Gui, +LastFound +ToolWindow
      WinSet, TransColor, 8388736
      Gui, 2:-Caption
      Xp:= A_SCREENWidth - 120
      Yp:= A_SCREENHeight - 58
      Gui, 2:Show,x%XP% y%Yp%, Second Pad
      WinSet, AlwaysOnTop, on, Second Pad
      AZ=2
      Return
    }
  If Az=2
    {
      AZ=0
      Gui 2:Destroy
      Gosub Bak
    }
  Gosub To
  ;=================================================Prefix
Pfx:
  If Pz=0
    {
      Control, Hide,, Appointments,Second Pad
      Control, Hide,, Time (hhmm),Second Pad
      Control, Hide,, Sound,Second Pad
      Control, Show,, Apply,Second Pad
      Control, Show,, Prefix,Second Pad
      Control, Show,, Abbreviation,Second Pad
      Control, Show,,Expand . . .,Second Pad
      GuiControl, 2:Disable,Run1
      GuiControl, 2:Disable,Run2
      GuiControl, 2:Disable,Run3
      GuiControl, 2:Disable,Run4
      GuiControl, 2:Disable,Run5
      PZ=1
      Az=0
      Return
    }
  If Pz=1
    {
      FileDelete Prefix.ahk
      Gosub Pref
      Gui 2:Destroy
      Gui, 2:font, cBlack
      Gui, 2:font,, Times New Roman
      Gui, 2:font, wBold s10
      Gui, 2:Add, Button, x0 y0 w55 h30 gPfx, Prefix
      Gui, 2:Add, Button, x55 y0 w54 h30 gMess, Exit
      Gui, Color,  8388736
      Gui, +LastFound +ToolWindow
      WinSet, TransColor, 8388736
      Gui, 2:-Caption
      Xp:= A_SCREENWidth - 120
      Yp:= A_SCREENHeight - 58
      Gui, 2:Show,x%XP% y%Yp%, Second Pad
      WinSet, AlwaysOnTop, on, Second Pad
      PZ=2
      Return
    }
  If Pz=2
    {
      PZ=0
      Gui 2:Destroy
      Gosub Bak
    }

To:
  ;Return

  ;=================================================Gui Tab
NumpadPgUp::
  {
    Gui, 2:Hide
    Gui, Show
  }
Return

NumpadPgDn::
  {
    Gui, Hide
    Gui, 2:Show
  }
Return

NumpadDel::
  {
    Gui, Show
    Gui, 2:Show
  }
Return
;================================================Numbering
NumpadEnter::
  IfWinActive, Desktop Pad
    {
      B:=B+1
      Send {Enter} %B%.{Space}
    }
  Else
      Send {Enter}
Return
;================================================WinMove
#right::
  WinGetPos x, y,,, Desktop Pad
  x += 50
  WinMove, Desktop Pad,,%x%, %y%
Return

#left::
  WinGetPos x, y,,, Desktop Pad
  x -= 50
  WinMove, Desktop Pad,,%x%, %y%
Return

#Up::
  WinGetPos x, y,,, Desktop Pad
  y -= 50
  WinMove, Desktop Pad,,%x%, %y%
Return

#Down::
  WinGetPos x, y,,, Desktop Pad
  y += 50
  WinMove, Desktop Pad,,%x%, %y%
Return
;================================================Exit Message

Mess:
  MsgBox ,4,,  Do you want to Save before exit ?
  IfMsgBox, No
      ExitApp
  Else
    {
      Gosub, Save
      ExitApp
    }

Exit:
GuiClose:
  ExitApp

  ;================================================Dimensions
HeightA:
  If R4>526
    {
      Gosub Fix
    }
  Else
    {
      R2 -= 20
      R4 += 20
      Gosub Dimen
      Gosub Fix
    }
Return

HeightD:
  If R4<20
    {
      Gosub Fix
    }
  Else
    {
      R2 += 20
      R4 -= 20
      Gosub Dimen
      Gosub Fix
    }
Return

WidthA:
  If R3=185
    {
      R2 -= 30
    }
  If R3>364
    {
      Gosub Fix
    }
  Else
    {
      R1 -= 20
      R3 += 20
      Gosub Dimen
      Gosub Fix
    }
Return

WidthD:
  If R3=205
    {
      R2 += 30
    }
  If R3<20
    {
      Gosub Fix
    }
  Else
    {
      R1 += 20
      R3 -= 20
      Gosub Dimen
      Gosub Fix
    }
Return

Dimen:
  ControlMove, %MainEdit%, %R1%, %R2%, %R3% ,%R4%
Return
;================================================New Sheet
Appo:
  If N<>0
    {
      GuiControlGet, MainEdit
      FileDelete %CurrentFileName% - %A%.txt
      If ErrorLevel <> 0
        {
          MsgBox The attempt to overwrite "%CurrentFileName% - %A%.txt" failed.
          Return
        }
      FileAppend,
      (
      This is saved at:- %tsa%- -
      ------------------------------------------------------
      ), %CurrentFileName% - %A%.txt
      FileAppend, %MainEdit%, %CurrentFileName% - %A%.txt
      FileAppend, %S%, %CurrentFileName% - %A%.txt
    }
  GuiControl, Focus, MainEdit
  Send, ^{HOME}^+{END}{Delete}
  N=0
  B=0
  A += 1
Return
;================================================GUI Button Show/Hide
opt:
  Gosub Fix
  If Q=0
    {
      If R2+R4=547 and If R3>185
        {
          ;msgbox, %R2%-%R4%
          R2 -= 30
          Gosub Dimen
        }
      Control, Show,, Trans,
      Control, Show,, New,
      Control, Show,, Width  -,
      Control, Show,, Height  -,
      Control, Show,, Width +,
      Control, Show,, Height +,
      Q=1
      Return
    }

  If Q=1
    {
      If R2+R4=517 and If R3>185
        {
          R2 += 30
          Gosub Dimen
        }
      Control, Hide,, Height +,
      Control, Hide,, Width +,
      Control, Hide,, Height  -,
      Control, Hide,, Width  -,
      Control, Hide,, New,
      Control, Hide,, Trans,
      Q=0
    }
Return
;================================================Transparent
Trans:
  Gosub Fix
  If P=0
    {
      P=1
      Gui, Color,  White
      WinSet, TransColor, White
      Return
    }

  If P=1
    {
      P=0
      Gui, Color, C0C0C0
      WinSet, TransColor, C0C0C0
    }
Return
;================================================Save
Save:
  {
    FormatTime, cfn,,yyyy_MM_dd
    FormatTime, tsa,,HH:mm' on 'dd-MM-yyyy
    CurrentFileName = %cfn%
    If N=0
      {
        GuiControl, Focus, MainEdit
        ;------------------------------------Write Begin
        Send, ^{HOME}{Enter}
        Send, ^{END}{Enter 3}
        Send, ------------------------------------------------------
        Send, {Enter}/ DesktopPad %A% \ -{Space}{UP 4}{END}
        ;------------------------------------Write End
        IfExist  %CurrentFileName% - %A%.txt
          {
            FileRead , S,%CurrentFileName% - %A%.txt
            GuiControlGet, MainEdit
            FileDelete %CurrentFileName% - %A%.txt
            If ErrorLevel <> 0
              {
                MsgBox The attempt to overwrite "%CurrentFileName% - %A%.txt " failed.
                Return
              }
            FileAppend,
            (
            This is saved at:- %tsa%- -
            ------------------------------------------------------
            ), %CurrentFileName% - %A%.txt
            FileAppend, %MainEdit%, %CurrentFileName% - %A%.txt
            FileAppend, %S%, %CurrentFileName% - %A%.txt
            MsgBox, Saved as %CurrentFileName% - %A%.txt
          }
        Else
          {
            GuiControlGet, MainEdit
            FileAppend,
            (
            This is saved at:- %tsa%- -
            ------------------------------------------------------
            ), %CurrentFileName% - %A%.txt
            FileAppend, %MainEdit%, %CurrentFileName% - %A%.txt
            MsgBox, %CurrentFileName% - %A%.txt  Created
          }
      }
    IfExist  %CurrentFileName% - %A%.txt
        If N<>0
          {
            GuiControl, Focus, MainEdit
            Send, ^{END}{UP 4}{END}
            GuiControlGet, MainEdit
            FileDelete %CurrentFileName% - %A%.txt
            If ErrorLevel <> 0
              {
                MsgBox The attempt to overwrite "%CurrentFileName% - %A%.txt " failed.
                Return
              }
            FileAppend,
            (
            This is saved at:- %tsa%- -
            ------------------------------------------------------
            ), %CurrentFileName% - %A%.txt
            FileAppend, %MainEdit%, %CurrentFileName% - %A%.txt
            FileAppend, %S%, %CurrentFileName% - %A%.txt
            MsgBox, Saved as %CurrentFileName% - %A%.txt
          }
    N += 1
  }
Return
;================================================Cursor position
Fix:
  If N=0
    {
      GuiControl, Focus, MainEdit
      Send, ^{END}
      GuiControl, +Redraw, MainEdit
      Return
    }

  If N<>0
    {
      GuiControl, Focus, MainEdit
      Send, ^{END}{UP 4}{END}
      GuiControl, +Redraw, MainEdit
    }
Return
;================================================Clock
clock:
  CN:=A_Now
  StringMid,YMD,CN,1,8
  StringMid,TM,CN,9,4
  StringMid,SN,CN,13,2

  C=0
  Loop, 5
    {
      C++
      If pf%C%=%TM%
        {
          If SN=00
            {
              If Ex%C%<>
                {
                  Gosub Clk
                  Gosub Ex
                  Send, {Enter 2}*************************************
                }
              Gosub SF
              SoundPlay, %Wav1%
              Sleep, 2000
            }
        }
    }
Return

SF:
  {
    If C=1
        Run, %SF1%
    If C=2
        Run, %SF2%
    If C=3
        Run, %SF3%
    If C=4
        Run, %SF4%
    If C=5
        Run, %SF5%
  }
Return
Ex:
  {
    If C=1
        Send, %Ex1%
    If C=2
        Send, %Ex2%
    If C=3
        Send, %Ex3%
    If C=4
        Send, %Ex4%
    If C=5
        Send, %Ex5%
  }
Return
Clk:
  {
    Gui, 2:Hide
    Gui, Show
    Gosub Fix
    Send, {Enter}*************************************
    Send, {Enter}/Message from Appointments\{Enter}
  }
Return
;================================================Play


play1:
  {
    FileSelectFile, SelectedFile, 3, , Open a file,
    If SelectedFile =
        MsgBox, You didn't select anything.
    Else
        SF1=%SelectedFile%
  }
Return

play2:
  {
    FileSelectFile, SelectedFile, 3, , Open a file,
    If SelectedFile =
        MsgBox, You didn't select anything.
    Else
        SF2=%SelectedFile%
  }
Return

play3:
  {
    FileSelectFile, SelectedFile, 3, , Open a file,
    If SelectedFile =
        MsgBox, You didn't select anything.
    Else
        SF3=%SelectedFile%
  }
Return

play4:
  {
    FileSelectFile, SelectedFile, 3, , Open a file,
    If SelectedFile =
        MsgBox, You didn't select anything.
    Else
        SF4=%SelectedFile%
  }
Return

play5:
  {
    FileSelectFile, SelectedFile, 3, , Open a file,
    If SelectedFile =
        MsgBox, You didn't select anything.
    Else
        SF5=%SelectedFile%
  }
Return

;================================================Sound
Snd:
  {
    FileSelectFile, SelectedFile, 3, , Open a file,Wave Files (*.Wav)
    If SelectedFile =
        MsgBox, You didn't select any wave sound file.
    Else
        Wav1=%SelectedFile%
  }
Return
;================================================Prefix Apply
Pref:
  D=0
  Loop, 5
    {
      D++
      AutoTrim Off
      ClipboardOld = %ClipboardAll%
      GuiControl, Focus, Ex%D%
      Send ^{Home}+{End}
      Clipboard =
      Send ^c
      ClipWait 1
      If ErrorLevel
        {
          If D>1
            {
              Run, Prefix.ahk
            }
          Return
        }
      ;=========================================================
      StringReplace, Hotstring, Clipboard, ``, ````, All  ; Do this replacement first to avoid interfering with the others below.
      StringReplace, Hotstring, Hotstring, `r`n, ``r, All  ; Using `r works better than `n in MS Word, etc.
      StringReplace, Hotstring, Hotstring, `n, ``r, All
      StringReplace, Hotstring, Hotstring, %A_Tab%, ``t, All
      StringReplace, Hotstring, Hotstring, `;, ```;, All
      Hotstring= :R:`::%Hotstring%
      Clipboard = %Hotstring%  ; Send to Clipboard.
      ;=========================================================
      Send ^v
      GuiControl, Focus, pf%D%
      Send ^{Home}+{End}
      Clipboard =
      Send ^c
      Send {Delete}
      ClipWait 1
      If ErrorLevel
        {
          If D>1
            {
              Run, Prefix.ahk
            }
          Return
        }
      GuiControl, Focus, Ex%D%
      Send {Home}{Right 3}^v^{Home}+{End}^c
      StringReplace, Hotstring, Clipboard, ``, ````, All

      FileAppend, `n%Hotstring%, Prefix.ahk
      GuiControl, Focus, Ex%D%
      Send {Delete}
    }
  Run, Prefix.ahk
  Clipboard = %ClipboardOld%
Return