//AB/ Project Fill value for current column
//AB/ Object prj is a Dialog_Project
    //AB/ Set ProjectName to "Fill value for current column"
    //AB/ Set ProjectFileName to "FillValue.dg"
    //AB/ Set GenerateFileName to "NONAME"
    //AB/ Set Size to 140 235

// Project Object Structure
//   FillValue_dg is a ModalPanel
//     oForm1 is a Form
//     oOK_btn is a Button
//     oCancel_btn is a Button

// Register all objects
Register_Object FillValue_dg
Register_Object oCancel_btn
Register_Object oForm1
Register_Object oOK_btn


//AB-StoreTopStart

//AB-StoreTopEnd

//AB-IgnoreStart
Use Windows.pkg
//AB-IgnoreEnd



Object FillValue_dg is a ModalPanel
    Set Border_Style to Border_Thick
    Set Label to "Fill value for current column"
    Set Location to 2 2
    Set Size to 108 217
    Set piMinSize to 104 217

    //AB-DDOStart


    //AB-DDOEnd

    Object oForm1 is a Form
        Set Label to "Fill value:"
        Set Size to 13 137
        Set Location to 26 53
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to jMode_Right

        //AB-StoreStart
        //OnChange will be called on every changed character
        //Procedure OnChange
        //    String sValue
        //
        //    Get Value To sValue
        //End_Procedure // OnChange
        //AB-StoreEnd

    End_Object    // oForm1

    Object oOK_btn is a Button
        Set Label to "&OK"
        Set Location to 71 98
        Set peAnchors to anBottomRight

        //AB-StoreStart
        Procedure OnClick
            String sValue
            Get value Of oForm1 To sValue
            Set psFillValue To sValue
           Send Close_Panel
        End_Procedure // OnClick
        //AB-StoreEnd

    End_Object    // oOK_btn

    Object oCancel_btn is a Button
        Set Label to "&Cancel"
        Set Location to 71 157
        Set peAnchors to anBottomRight

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

    End_Object    // oCancel_btn


    //AB-StoreStart
    
    On_Key kCancel Send close_panel
    On_Key kEnter Send keyaction Of oOK_btn
    
    Procedure Activate_Group
        Forward Send Activate_group
        Set psFillValue To "*FILLANYFLEX*"
    End_Procedure
    //AB-StoreEnd

End_Object    // FillValue_dg

//AB/ End_Object    // prj