addPhrase1.ahk

; Generated by AutoGUI 2.6.2  启动显示窗口
#SingleInstance Force
#NoEnv
#NoTrayIcon
#Include phrase.ahk
#Include, function.ahk
;#Include sogou.ahk
;

fatherTVMap := {}
;sonTVMap := {}
;phrase := {}
;import("phrase.ahk",fatherTVMap,sonTVMap,phrase)

for key, element in fatherMap{
    if(!fatherTVMap.HasKey(element)){
        p1 := TV_Add(element)
        fatherTVMap[element] := p1
    }
    TV_Add(key,fatherTVMap[element])
}

Gui Main1: New, +LabelMain +hWndhMainWnd +Resize -MinimizeBox
Menu, tray, noicon
Menu ContextMenu, Add, &Open...`tCtrl+O, import
Menu ContextMenu, Icon, &Open...`tCtrl+O, shell32.dll, 4

Gui Add, Text, x10 y10 w350 h25, %abbreL%

Gui Add, Edit, hWndhEdtValue vabbre x10 y35 w250 h25



IniRead, fatherText, setting.ini, folder, default
if(fatherText == ""){
	fatherText := myPhraseL
}
Gui Add, Text, hWndhTxtText2 vTxtText1 x10 y65 w80 h25, %folderL%
;Gui Add, Edit, hWndhEdtValue vfather x80 y65 w120 h25, self
Gui Add, ComboBox, vfather x80 y65 w120, %fatherText%||

Gui Add, Text, hWndhTxtText2 vTxtText2 x10 y100 w80 h25, %descriptionL%
Gui Add, Edit, hWndhEdtValue vdescription x80 y100 w120 h25
Gui Add, Text, hWndhTxtText2 vTxtText4 x10 y130 w120 h25, %shortCutL%
Gui Add, DropDownList, vColorChoice x80 y130 w120, ]||
Gui Add, Text, hWndhTxtText3 vTxtText3 x10 y155 w250 h25, %supportL%
Gui Add, Edit, vvalue x10 y180 w600 h200,%Clipboard%
Gui Add, Button, gaddPhraseHandle1 x440 y390 w80 h25, %addL%
Gui Add, Button, x530 y390 w80 h25 gcancel1, %cancelL%

for key, value in fatherTVMap{
	GuiControl, , father, %key%
}

Menu sogou, Add, Sogou, MenuHandler
Menu FileMenu, Add, import, :sogou
;Menu MenuBar, Add, &File, :FileMenu


Menu help, Add, %documentL%, HelpMenuHandler
Menu help, Add, %sysShortcutL%, SysShortcutLMenuHandler
Menu MenuBar, Add, &%helpL%, :help

Gui Menu, MenuBar
Gui Show, w620 h420, %addPhraseL%

import:
Return

MenuHandler:
    importSogo()
Return


HelpMenuHandler:
	runDocument()
Return

SysShortcutLMenuHandler:
	runSysShortcut()
Return

addPhraseHandle1(CtrlHwnd, GuiEvent, EventInfo, ErrLevel := "") {
    GuiControlGet abbre
    GuiControlGet value
    GuiControlGet description

    GuiControlGet father
	father := Trim(father)
	if(father == ""){
		father := myPhraseL
	}
	
    result := add(abbre,value,father,description)
	
	IniWrite, %father%, setting.ini, folder, default
    if(result == 0){
        reload
        sendcmd("重启","start.ahk")
        Sleep 200 ; 如果加载成功, reload 会在 Sleep 期间关闭当前实例, 所以永远不会执行到下面的语句.
        MsgBox, 4,, The hotstring just added appears to be improperly formatted. Would you like to open the script for editing? Note that the bad hotstring is at the bottom of the script.
        IfMsgBox, Yes, Edit
        return

        MoveCaret:
        IfWinNotActive, New Hotstring
            return
        ; 否则移动 InputBox 中的光标到用户输入缩写的位置.
        Send {Home}{Right 3}
        SetTimer, MoveCaret, Off
        return
    }  
}


cancel1(CtrlHwnd, GuiEvent, EventInfo, ErrLevel := "") { 
    Gui hide
}

Main1Size:
    If (A_EventInfo == 1) {
        Return
    }
Return

Main1ContextMenu:
    Menu ContextMenu, Show
Return

Main1Escape:
Main1Close:
    Gui hide
    ;ExitApp
;#Include send.ahk