//AB/ Project DisabledFormDemo
//AB/ Object prj is a View_Project
    //AB/ Set Size to 230 325
    //AB/ Set ProjectName to "DisabledFormDemo"
    //AB/ Set ProjectFileName to "DisabledFormDemo.vw"
    //AB/ Set GenerateFileName to "NONAME"

// Project Object Structure
//   oNewView is a dbView
//     oNormalForm is a Form
//     oDisabledForm is a cDisabledForm
//     oNormal2Form is a Form
//     oLooksLikeTextBoxForm is a cDisabledForm
//     oExplanation is a Textbox

// Register all objects
Register_Object oDisabledForm
Register_Object oExplanation
Register_Object oLooksLikeTextBoxForm
Register_Object oNewView
Register_Object oNormal2Form
Register_Object oNormalForm

//AB-IgnoreStart
Use dfClient.pkg
Use Windows.pkg
Use cDisabledForm.Pkg
//AB-IgnoreEnd


DEFERRED_VIEW Activate_oNewView FOR ;
;
Object oNewView is a dbView
    Set Border_Style to Border_Thick
    Set Icon to "Default.Ico"
    Set Label to "Disabled Form Demo"
    Set Location to 2 2
    Set Size to 200 300

    //AB-DDOStart


    //AB-DDOEnd

    Object oNormalForm is a Form
        Set Label to "Normal:"
        Set Size to 13 244
        Set Location to 5 45
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to jMode_Right
    End_Object    // oNormalForm

    Object oDisabledForm is a cDisabledForm
        Set Label to "Disabled:"
        Set Size to 13 244
        Set Location to 20 45
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to jMode_Right

        //AB-StoreStart
        Procedure Activating
            Forward Send Activating
        
            Set Value To "Edit:No; Paste:No; Delete:No; Copy:Yes"
        End_Procedure // Activating
        //AB-StoreEnd

    End_Object    // oDisabledForm

    Object oNormal2Form is a Form
        Set Label to "Normal 2:"
        Set Size to 13 244
        Set Location to 34 45
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to jMode_Right
    End_Object    // oNormal2Form

    Object oLooksLikeTextBoxForm is a cDisabledForm
        Set Label to "Text?:"
        Set Size to 13 244
        Set Location to 49 45
        Set Form_Border Item 0 to Border_None
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to jMode_Right

        //AB-StoreStart
        Procedure Activating
            Forward Send Activating
        
            Set Value To "Visual DataFlex is the best tool around!"
        End_Procedure // Activating
        //AB-StoreEnd

    End_Object    // oLooksLikeTextBoxForm

    Object oExplanation is a Textbox
        Set Label to "The form in the middle can have a value, you can select the text, copy it but paste, delete and edit are not possible. The last form is the same as the 2nd but without a border it looks like a textbox"
        Set Auto_Size_State to FALSE
        Set TextColor to clRed
        Set FontSize to 18 0
        Set Location to 64 5
        Set Size to 53 211
        Set FontWeight to 700
        Set Justification_Mode to jMode_Left
        Set TypeFace to "MS Sans Serif"
    End_Object    // oExplanation

CD_End_Object    // oNewView

//AB/ End_Object    // prj