//AB/ Project Index Check
//AB/ Object prj is a View_Project
//AB/     Set ProjectName to "Index Check"
//AB/     Set ProjectFileName to "CheckIndex.VW"
//AB/     Set GenerateFileName to "NONAME2"

// Project Object Structure
//   oCheckIndex is a dbView
//     oFileEntry is a Form
//     oProcessBtn is a Button
//     oCancelBtn is a Button
//     oMessage is a Textbox

// Register all objects
Register_Object oCancelBtn
Register_Object oCheckIndex
Register_Object oFileEntry
Register_Object oMessage
Register_Object oProcessBtn


//AB/ AppBuild VIEW

//AB-IgnoreStart


//AB-IgnoreEnd

DEFERRED_VIEW Activate_oCheckIndex FOR ;
;
Object oCheckIndex is a dbView

    //AB-StoreTopStart
    Use CkIndex.pkg
    Use DFCursor.pkg
    //AB-StoreTopEnd

    Set Label to "Index Check"
    Set Size to 104 246
    Set Location to 6 6

    //AB-DDOStart


    //AB-DDOEnd

    Object oFileEntry is a Form
        Set Label to "Enter file number to check, blank for all:"
        Set Size to 13 32
        Set Location to 20 175
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to jMode_Right

        //AB-StoreStart
        //AB-StoreEnd

    End_Object    // oFileEntry

    Object oMessage is a Textbox
        Set Label to ""
        Set Location to 44 7
        Set Size to 10 194
        Set FontWeight to 600
        Set TypeFace to "MS Sans Serif"
        //AB-StoreStart
        set auto_size_state to false
        Set Justification_Mode to jmode_center
        //AB-StoreEnd
    End_Object    // oMessage

    Object oProcessBtn is a Button
        Set Label to "Process"
        Set Location to 69 123

        //AB-StoreStart
        Procedure OnClick
            Local Integer iFile iMsgObj iRC
            Move oMessage to iMsgObj
            Send Cursor_Wait to Cursor_control
            Get Value of oFileEntry to iFile
            Send File_Loop to oIndex_Check iFile iMsgObj
            Send Cursor_Ready to Cursor_control
            Get Show_Errors of oIndex_Check to iRC
        End_Procedure // OnClick
        //AB-StoreEnd

    End_Object    // oProcessBtn

    Object oCancelBtn is a Button
        Set Label to "Cancel"
        Set Location to 69 185

        //AB-StoreStart
        Procedure OnClick
            Send exit_application
        End_Procedure // OnClick
        //AB-StoreEnd

    End_Object    // oCancelBtn

CD_End_Object    // oCheckIndex

//AB/ End_Object    // prj