Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; <COMPILER: v1.1.32.00>
- ;#Warn
- #NoEnv
- #SingleInstance, Force
- SendMode Input
- SetWorkingDir %A_Desktop%
- ;==========================
- Gui +Resize ;+MinSize200x100
- Gui Margin, 0, 0
- Gui, Font, S12 CDefault Bold, Times New Roman
- If FileExist("%A_Desktop%\AHKTest.ahk")
- {
- Loop, read, %A_Desktop%\AHKTest.ahk
- {
- FileReadLine, Lines, %A_Desktop%\AHKTest.ahk, %A_Index%
- }
- Gui, Add, Edit, vMainEdit WantTab W800 R10 gWrite, %Lines%
- }
- else
- {
- Gui, Add, Edit, vMainEdit WantTab W800 R10 gWrite, %MainEdit%
- }
- Gui, Show, w600 h600 Center, RealTime Najeeb AHK Code Tester
- Return
- GuiSize:
- if (ErrorLevel = 1)
- return
- NewWidth := A_GuiWidth
- NewHeight := A_GuiHeight
- GuiControl, Move, MainEdit, W%NewWidth% H%NewHeight%
- return
- Write:
- Gui, Submit, NoHide
- FileDelete, %A_Desktop%\AHKTest.ahk
- Fileappend, %MainEdit%, %A_Desktop%\AHKTest.ahk
- RUN, %A_Desktop%\AHKTest.ahk
- Return
- GuiEscape:
- GuiClose:
- ExitApp
- ;==========================
- #R::Reload ;<-- ~ Reload Script ~
- #S::Suspend ;<-- ~ Suspend Script ~
- #P::Pause ;<-- ~ Pause Script ~
- #M::WinMinimize, ;<-- ~ Minimize Script ~
- ESC::ExitApp ;<-- ~ Exit Script ~
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement