//AB/ Project Rediger tekst
//AB/ Object oIDE_Project is a Dialog_Project
    //AB/ Set Size to 236 392
    //AB/ Set ProjectName to "Rediger tekst"
    //AB/ Set ProjectFileName to "Retxt.DG"
    //AB/ Set GenerateFileName to "NONAME24"

// Project Object Structure
//   retxt_dg is a dbModalPanel
//     cntTekst is a Container3d
//       oText is a cTextEdit
//     oOk_bn is a Button
//     oAnnuller_bn is a Button

// Register all objects
Register_Object cntTekst
Register_Object oAnnuller_bn
Register_Object oOk_bn
Register_Object oText
Register_Object retxt_dg

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



Object retxt_dg is a dbModalPanel

    //AB-StoreTopStart
    Property Integer pTekstGem Public False
    
    //AB-StoreTopEnd

    Set Label to "Edit text"
    Set Location to 26 79
    Set Size to 177 294
    Set piMinSize to 104 217

    //AB-DDOStart


    //AB-DDOEnd

    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

        //AB-StoreStart
                                                
        Procedure Onclick
            Set pTekstGem to TRUE
            Send Request_cancel
        End_procedure
        //AB-StoreEnd

    End_Object    // oOk_bn

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

        //AB-StoreStart
                                                
        Procedure OnClick
            Send Request_Cancel
        End_procedure
        //AB-StoreEnd

    End_Object    // oAnnuller_bn


    //AB-StoreStart
    
    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
    
    //AB-StoreEnd

End_Object    // retxt_dg

//AB/ End_Object    // oIDE_Project