Use dfdbmdpn.pkg
Use Windows.pkg
Use cTextEdit.pkg

Object retxt_dg is a dbModalPanel

    Property Integer pTekstGem Public False


    Set Label to "Edit text"
    Set Location to 26 79
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:33
//    Set Size to 177 294
    Set Size to 160 291
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:33
//    Set piMinSize to 104 217
    Set piMinSize to 82 206




    Object cntTekst is a Container3d
        Set Size to 137 285
        Set Location to 2 2
        Set peAnchors to anAll
        Object oText is a cTextEdit
            Set Size to 128 276
            Set Location to 2 2
            Set Color to clWhite
            Set TextColor to clBlack
            Set peAnchors to anAll
        End_Object    // oText

    End_Object    // cntTekst

    Object oOk_bn is a Button
        Set Label to "&Ok"
        Set Location to 143 177
        Set peAnchors to anBottomRight


        Procedure Onclick
            Set pTekstGem to TRUE
            Send Request_cancel
        End_procedure

    End_Object    // oOk_bn

    Object oAnnuller_bn is a Button
        Set Label to "&Cancel"
        Set Location to 143 235
        Set peAnchors to anBottomRight


        Procedure OnClick
            Send Request_Cancel
        End_procedure

    End_Object    // oAnnuller_bn



    On_Key Key_Alt+Key_O Send KeyAction to oOk_bn
    On_Key Key_Alt+Key_C Send KeyAction to oAnnuller_bn
    On_Key Key_F2 Send KeyAction to oOk_bn
    On_Key KCancel Send KeyAction to oAnnuller_bn

    Procedure Activate_group
        Forward Send Activate_group
        Set pTekstGem to False
    End_Procedure


End_Object    // retxt_dg