Module Dfspnent.pkg

     1// PACKAGE: DFSpnEnt.pkg
     2// 07/23/96 JJT - New Class names
     3// 8/13/97  JJT - Changed auto_create_prompt_button to Prompt_Button_Mode
     4
     5// Make a DFEntry_Form into a Component by including the capabilities
     6// of a DFSpinButton. This is achieved by providing a "wrapper" to the
     7// public interface of the DFSpinButton.
     8Use Windows.pkg
     9USE SpnFrmMx.pkg // Mixin-Class to provide wrapper Methods
    10USE DFEntry.pkg  // Standard DataFlex DFEntry_Form
    11
    12{ ClassType=Abstract }
    13{ DesignerClass=cDtSpinForm }
    14{ HelpTopic=dbSpinFormDS }
    15Class dbSpinFormDS is a dbFormDS
    16    Procedure Construct_Object
    17        Forward Send Construct_Object
    18        Set Prompt_Button_Mode to PB_PromptOff
    19        Send Define_SpinForm_Mixin
    20    End_procedure
    21    IMPORT_CLASS_PROTOCOL SpinForm_Mixin
    22End_Class
    23
    24Use DD_Deomx.pkg // mixin support for dd classes
    25
    26Class Extended_DEO_Spin_Mixin is a mixin
    27
    28  { NoDoc=True }
    29  Procedure Activate returns integer
    30     integer iRVal
    31     integer iObj
    32     String  sValue
    33
    34     Forward Get MSG_Activate to iRVal
    35
    36     If Not (Extended_DEO_State(self)) ;
    37        Procedure_Return iRval
    38
    39     if not iRVal Begin
    40        Get Item_Field_Property GET_File_Field_Table_Object 0 to iObj
    41        If (iObj AND (Static_State(iObj)=0 OR Table_Loaded_State(iObj)=0)) ;
    42           Send Initialize_List
    43     End
    44     Procedure_Return iRval
    45  End_Procedure // Activate
    46
    47  { Visibility=Private }
    48  Procedure Spin_Fill_Item integer iItem string sValue string sDescription ;
    49                           integer iFile integer iRec
    50      If iItem eq 0 Set Minimum_Position to sValue
    51      Else          Set Maximum_Position to sValue
    52  End_Procedure
    53
    54  { Visibility=Private }
    55  Procedure Attach_Deo_To_Server
    56    Integer iSrvr
    57    Get Server to iSrvr
    58    If iSrvr ;
    59       Set Extended_DEO_State to (Extended_DSO_State(iSrvr))
    60    Forward Send Attach_deo_to_Server
    61
    62    If Not (Extended_DEO_State(Self)) ;
    63       Procedure_Return
    64
    65    Send Initialize_list
    66  End_Procedure
    67
    68  { MethodType=Event Visibility=Private }
    69  Procedure Initialize_List
    70    integer iObj
    71    integer iSrvr
    72    integer iFile
    73    integer iField
    74    Get Server to iSrvr
    75    Get Data_File  to iFile
    76    Get Data_Field to iField
    77    If (iSrvr AND iFile) ;
    78       Send File_Field_Fill_List to iSrvr iFile iField self msg_Spin_Fill_Item
    79  End_Procedure
    80End_Class
    81
    82
    83{ DataBindable=True }
    84{ HelpTopic=dbSpinForm }
    85Class dbSpinForm is a dbSpinFormDS
    86    Import_Class_Protocol Extended_DEO_Mixin
    87    Import_Class_Protocol Extended_DEO_Status_Help_Mixin
    88    //Import_Class_Protocol Extended_DEO_Single_Item_Mixin
    89    Import_Class_Protocol Extended_DEO_Spin_Mixin
    90    Import_Class_Protocol Extended_DEO_Status_Help_Tooltip_Mixin
    91End_Class
    92
    93