Outlinker-setup-form-code.bas

From ActivityOwnerWiki
Jump to: navigation, search
Option Explicit
Const SettingsFormVersion = "20090418"
Private Sub cancelButton_Click()
 Unload OutLinkerSettings
End Sub


Private Sub resetdefaultsButton_Click()
    With OutLinkerSettings
        .mindreadernlpmacroTextBox.value = getdefaultsetting("mindreadernlpmacro")
        .mindreaderopenmacroTextBox.value = getdefaultsetting("mindreaderopenmacro")
        .gyroqpathTextBox.value = getdefaultsetting("gyroqpath")
        .usegyroqCheckBox.value = getdefaultsetting("usegyroq") = "1"
        .usemindreaderCheckBox.value = getdefaultsetting("usemindreader") = "1"
        .deletedprocessedCheckBox.value = getdefaultsetting("deletedprocessedtasks") = "1"
        .showstatsCheckBox.value = getdefaultsetting("showstats") = "1"
        .trackskipsCheckBox.value = getdefaultsetting("trackskips") = "1"
    End With
End Sub
Private Sub saveButton_Click()
        If Not archivefolder1 Is Nothing Then
            sset "ArchiveFolderID", archivefolder1.EntryID
            sset "ArchiveStoreID", archivefolder1.StoreID
        End If
        
        If Not archivefolder2 Is Nothing Then
            sset "ArchiveFolder2ID", archivefolder2.EntryID
            sset "ArchiveStore2ID", archivefolder2.StoreID
        End If
        
    
    With OutLinkerSettings
        sset "mindreadernlpmacro", .mindreadernlpmacroTextBox.value
        sset "mindreaderopenmacro", .mindreaderopenmacroTextBox.value
        setboolean "usemindreader", .usemindreaderCheckBox.value
        setboolean "usegyroq", .usegyroqCheckBox.value
        sset "gyroqpath", .gyroqpathTextBox.value
        sset "context1", .context1TextBox.value
        sset "context2", .context2TextBox.value
        sset "context3", .context3TextBox.value
        sset "context4", .context4TextBox.value
        sset "context5", .context5TextBox.value
        sset "context6", .Context6TextBox.value
        sset "context7", .Context7TextBox.value
        sset "context8", .Context8TextBox.value
        sset "context9", .Context9TextBox.value
        OutLinkerForm.context1Button.Caption = gset("context1")
        OutLinkerForm.context2button.Caption = gset("context2")
        OutLinkerForm.context3Button.Caption = gset("context3")
        OutLinkerForm.context4Button.Caption = gset("context4")
        OutLinkerForm.context5Button.Caption = gset("context5")
        OutLinkerForm.Context6Button.Caption = gset("context6")
        OutLinkerForm.Context7Button.Caption = gset("context7")
        OutLinkerForm.Context8Button.Caption = gset("context8")
        OutLinkerForm.Context9Button.Caption = gset("context9")
        
        setboolean "trimsubject", .TrimSubjectCheckBox.value
        sset "tag1", .tagTextBox1.value
        sset "tag2", .tagTextBox2.value
        sset "tag3", .tagTextBox3.value
        sset "tag4", .tagTextBox4.value
        sset "tag5", .tagTextBox5.value
        sset "tag6", .tagTextBox6.value
        sset "tag7", .TagTextBox7.value
        sset "tag8", .TagTextBox8.value
        sset "tag9", .TagTextBox9.value
        sset "tag10", .TagTextBox10.value
        sset "tag11", .TagTextBox11.value
        sset "tag12", .TagTextBox12.value
        sset "tag13", .TagTextBox13.value
        sset "tag14", .TagTextBox14.value
        sset "tag15", .TagTextBox15.value
        sset "tag16", .TagTextBox16.value
        sset "tag17", .TagTextBox17.value
        sset "tag18", .TagTextBox18.value
        sset "tag19", .TagTextBox19.value
        sset "tag20", .TagTextBox20.value
        
        OutLinkerForm.tag1CheckBox.Caption = gset("tag1")
        OutLinkerForm.tag2CheckBox.Caption = gset("tag2")
        OutLinkerForm.tag3CheckBox.Caption = gset("tag3")
        OutLinkerForm.tag4CheckBox.Caption = gset("tag4")
        OutLinkerForm.tag5CheckBox.Caption = gset("tag5")
        OutLinkerForm.tag6CheckBox.Caption = gset("tag6")
        OutLinkerForm.Tag7CheckBox.Caption = gset("tag7")
        OutLinkerForm.tag8CheckBox.Caption = gset("tag8")
        OutLinkerForm.Tag9CheckBox.Caption = gset("tag9")
        OutLinkerForm.Tag10CheckBox.Caption = gset("tag10")
        OutLinkerForm.Tag11CheckBox.Caption = gset("tag11")
        OutLinkerForm.Tag12CheckBox.Caption = gset("tag12")
        OutLinkerForm.tag13CheckBox.Caption = gset("tag13")
        OutLinkerForm.tag14CheckBox.Caption = gset("tag14")
        OutLinkerForm.Tag15CheckBox.Caption = gset("tag15")
        OutLinkerForm.Tag16CheckBox.Caption = gset("tag16")
        OutLinkerForm.Tag17CheckBox.Caption = gset("tag17")
        OutLinkerForm.Tag18CheckBox.Caption = gset("tag18")
        OutLinkerForm.tag19CheckBox.Caption = gset("tag19")
        OutLinkerForm.Tag20CheckBox.Caption = gset("tag20")
                
                
        setboolean "showstats", .showstatsCheckBox.value
        setboolean "trackskips", .trackskipsCheckBox.value
        setboolean "deleteprocessedtasks", .deletedprocessedCheckBox.value
    End With
    Unload OutLinkerSettings
End Sub



Private Sub UserForm_Click()

End Sub

Private Sub versioncheckButton_Click()
    olversioncheck True
End Sub
End Sub