//DDB-FileStart
//DDB-HeaderStart

// File Name : Settings.DD
// Class Name: Settings_DataDictionary
// Revision  : 70
// Version   : 2

Use  Windows           // Basic Definitions
Use  DataDict.pkg          // DataDictionary Class Definition
Use  DDvalTbl          // Validation Table Class Definitions

Open Settings

//DDB-HeaderEnd
//DDB-ValidationStart

Register_Object Settings_Language_Mode_VT
Register_Object Settings_Langmodeoutput_VT
Register_Object Settings_Tmpstartupmode_VT
Register_Object Settings_Toolbarbtnsize_VT
Register_Object Settings_Skin_VT
Register_Object Settings_Menuiconsize_VT
Register_Object Settings_Btncaptionbelow_VT
Register_Object Settings_Menuanimation_VT
Register_Object Settings_Capanddescr_VT
Register_Object Settings_Tooltipstyle_VT

Object Settings_Language_Mode_VT  is a DescriptionValidationTable
    Set Validate_State    To FALSE

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "0"  "One Language"
        Send Add_Table_Value  "1"  "Two Languages"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Settings_Language_Mode_VT

Object Settings_Langmodeoutput_VT  is a DescriptionValidationTable
    Set Validate_State    To FALSE

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "0"  "First Language"
        Send Add_Table_Value  "1"  "Second Language"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Settings_Langmodeoutput_VT

Object Settings_Tmpstartupmode_VT  is a DescriptionValidationTable
    Set Validate_State    To FALSE

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "0"  "Create New Quiz"
        Send Add_Table_Value  "1"  "Open a Quiz"
        Send Add_Table_Value  "2"  "Edit Questions"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Settings_Tmpstartupmode_VT

Object Settings_Toolbarbtnsize_VT  is a DescriptionValidationTable
    Set Validate_State    To FALSE

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "16"  "16x16 pixels"
        Send Add_Table_Value  "24"  "24x24 pixels"
        Send Add_Table_Value  "32"  "32x32 pixels"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Settings_Toolbarbtnsize_VT

Object Settings_Skin_VT  is a DescriptionValidationTable
    Set Validate_State    To FALSE

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "0"  "Office 2000"
        Send Add_Table_Value  "1"  "Office XP"
        Send Add_Table_Value  "2"  "Office 2003"
        Send Add_Table_Value  "3"  "Windows XP"
        Send Add_Table_Value  "4"  "Visual Studio 2005"
        Send Add_Table_Value  "5"  "Office 2007"
        Send Add_Table_Value  "6"  "Ribbon"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Settings_Skin_VT

Object Settings_Menuiconsize_VT  is a DescriptionValidationTable
    Set Validate_State    To FALSE

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "16"  "16x16 pixels"
        Send Add_Table_Value  "24"  "24x24 pixels"
        Send Add_Table_Value  "32"  "32x32 pixels"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Settings_Menuiconsize_VT

Object Settings_Btncaptionbelow_VT  is a DescriptionValidationTable
    Set Validate_State    To FALSE

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "1"  "Text only"
        Send Add_Table_Value  "2"  "Icon only"
        Send Add_Table_Value  "3"  "Icon and text to the right"
        Send Add_Table_Value  "4"  "Icon and text below it"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Settings_Btncaptionbelow_VT

Object Settings_Menuanimation_VT  is a DescriptionValidationTable
    Set Validate_State    To FALSE

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "0"  "Windows Default"
        Send Add_Table_Value  "1"  "Random"
        Send Add_Table_Value  "2"  "Unfold"
        Send Add_Table_Value  "3"  "Slide"
        Send Add_Table_Value  "4"  "Fade"
        Send Add_Table_Value  "5"  "None"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Settings_Menuanimation_VT

Object Settings_Capanddescr_VT  is a DescriptionValidationTable
    Set Validate_State    To FALSE

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "0"  "No"
        Send Add_Table_Value  "5"  "Yes"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Settings_Capanddescr_VT

Object Settings_Tooltipstyle_VT  is a DescriptionValidationTable

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "-1"  "Use Current Skin Tooltip Style"
        Send Add_Table_Value  "0"  "Standard"
        Send Add_Table_Value  "1"  "Balloon"
        Send Add_Table_Value  "2"  "Office"
        Send Add_Table_Value  "3"  "RTF (Rich Text Format)"
        Send Add_Table_Value  "4"  "Luna"
        Send Add_Table_Value  "5"  "Office 2007"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Settings_Tooltipstyle_VT
//DDB-ValidationEnd

Class Settings_DataDictionary  is a DataDictionary

    // Define_Fields:
    // This procedure is used to set up all data-dictionary rules.

    Procedure Define_Fields
        Forward Send Define_Fields
        //DDB-Generated-Code-Location
        //DDB-DefineFieldStart

        Set Main_File            To Settings.File_Number

        Set Foreign_Field_Options  DD_KEYFIELD   To DD_AUTOFIND    DD_NOPUT       DD_FINDREQ    
        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT       DD_FINDREQ    
        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY

        // Field-based properties.......................

        // Settings.Langmodeinput
        Set Field_Value_Table      Field Settings.Langmodeinput To (Settings_Language_Mode_VT(Self))

        // Settings.Langmodeoutput
        Set Field_Value_Table      Field Settings.Langmodeoutput To (Settings_Langmodeoutput_VT(Self))

        // Settings.Startupmode
        Set Field_Class_Name       Field Settings.Startupmode To "dbCheckBox"
        Set Field_Label_Long       Field Settings.Startupmode To "Display Welcome Screen"

        // Settings.Tmpstartupmode
        Set Field_Value_Table      Field Settings.Tmpstartupmode To (Settings_Tmpstartupmode_VT(Self))

        // Settings.Helpstartupmode
        Set Field_Class_Name       Field Settings.Helpstartupmode To "dbCheckBox"
        Set Field_Label_Long       Field Settings.Helpstartupmode To "Display Topic Help"

        // Settings.Toolbarbtnsize
        Set Field_Class_Name       Field Settings.Toolbarbtnsize To "dbComboForm"
        Set Field_Label_Long       Field Settings.Toolbarbtnsize To "Toolbar Icon Size"
        Set Field_Value_Table      Field Settings.Toolbarbtnsize To (Settings_Toolbarbtnsize_VT(Self))

        // Settings.Pevisualtheme
        Set Field_Class_Name       Field Settings.Pevisualtheme To "dbComboForm"
        Set Field_Value_Table      Field Settings.Pevisualtheme To (Settings_Skin_VT(Self))

        // Settings.Menuiconsize
        Set Field_Class_Name       Field Settings.Menuiconsize To "dbComboForm"
        Set Field_Label_Long       Field Settings.Menuiconsize To "Menu Icon Size"
        Set Field_Value_Table      Field Settings.Menuiconsize To (Settings_Menuiconsize_VT(Self))

        // Settings.Pecontrolstyle
        //DDB/ Comment_Short       Field Settings.Pecontrolstyle To "peControlStyle for Toolbar Buttons"
        Set Field_Class_Name       Field Settings.Pecontrolstyle To "dbComboForm"
        Set Field_Label_Long       Field Settings.Pecontrolstyle To "Toolbar Buttons"
        Set Field_Label_Short      Field Settings.Pecontrolstyle To "Captions"
        Set Field_Value_Table      Field Settings.Pecontrolstyle To (Settings_Btncaptionbelow_VT(Self))

        // Settings.Peanimation
        Set Field_Class_Name       Field Settings.Peanimation To "dbComboForm"
        Set Field_Label_Long       Field Settings.Peanimation To "Menu Opening"
        Set Field_Value_Table      Field Settings.Peanimation To (Settings_Menuanimation_VT(Self))

        // Settings.Tabpages
        Set Field_Class_Name       Field Settings.Tabpages To "dbCheckBox"
        Set Field_Label_Long       Field Settings.Tabpages To "Display a TabPage for Each Activated View"

        // Settings.Veryfirstrun

        // Settings.Capanddescr
        //DDB/ Comment_Short       Field Settings.Capanddescr To "peControlStyle for Popup Menu Items"
        Set Field_Class_Name       Field Settings.Capanddescr To "dbComboForm"
        Set Field_Label_Long       Field Settings.Capanddescr To "Caption and Description"
        Set Field_Value_Table      Field Settings.Capanddescr To (Settings_Capanddescr_VT(Self))

        // Settings.Noofmrufiles
        Set Field_Class_Name       Field Settings.Noofmrufiles To "dbSpinForm"
        Set Field_Label_Long       Field Settings.Noofmrufiles To "Most Recent Used Files (File Menu)"

        // Settings.Tooltipstyle
        Set Field_Class_Name       Field Settings.Tooltipstyle To "dbComboForm"
        Set Field_Label_Long       Field Settings.Tooltipstyle To "ToolTip Style"
        Set Field_Label_Short      Field Settings.Tooltipstyle To "ToolTip Style"
        Set Field_Value_Table      Field Settings.Tooltipstyle To (Settings_Tooltipstyle_VT(Self))

        //DDB-DefineFieldEnd
    End_Procedure    // Define_Fields

    // Field_Defaults:
    // This procedure is used to establish default field values.

    Procedure Field_Defaults
        Forward Send Field_Defaults
        //DDB-Generated-Code-Location
        //DDB-FieldDefaultStart
        //DDB-FieldDefaultEnd
    End_Procedure    // Field_Defaults

End_Class    // Settings_DataDictionary
//DDB-FileEnd