Use Windows.pkg

Object FillValue_dg is a ModalPanel
    Set Label to "Fill value for current column"
    Set Location to 2 2
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:32
//    Set Size to 108 217
    Set Size to 89 210
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:32
//    Set piMinSize to 104 217
    Set piMinSize to 82 206

    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

    End_Object    // oForm1

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

        Procedure OnClick
            String sValue
            Get value Of oForm1 To sValue
            Set psFillValue To sValue
           Send Close_Panel
        End_Procedure // OnClick

    End_Object    // oOK_btn

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

        Procedure OnClick
           Send Close_Panel
        End_Procedure // OnClick

    End_Object    // oCancel_btn



    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

End_Object    // FillValue_dg