Module Dfabtbar.pkg

     1// DfAbtbar.pkg - DF Application Button bar
     2//
     3// This expects its parent to understand: (DfPanel.pkg provides this)
     4//    Set Toolbar_id
     5//    Get Client_Id
     6//    Send Add_Border_object to client_id
     7//    Send Remove_Border_object to client_id
     8
     9Register_Procedure Add_Border_Object
    10Register_Procedure Remove_Border_Object
    11
    12Use Windows.pkg
    13
    14{ Obsolete=True }
    15Class AppToolBar is a BasicToolBar
    16
    17    Procedure Construct_Object
    18        Forward Send Construct_Object
    19        Set Scope_State         To TRUE
    20        Set Attach_Parent_State To TRUE
    21        Set Popup_State         To TRUE
    22        Set Client_Area_State   To TRUE
    23        Delegate Set ToolBar_Id To self
    24    End_procedure // Construct_object
    25
    26    { MethodType=Event Visibility=Private }
    27    Procedure Page integer bState
    28        Integer hoClient
    29        Handle  hWnd
    30        Get Window_Handle to hWnd
    31        Forward Send Page bState
    32        If (bState=1 AND hWnd=0) Begin
    33           Delegate Get Client_Id To hoClient
    34           If hoClient ;
    35              Send Add_Border_Object to hoClient self amTOP
    36        End
    37    End_Procedure
    38
    39    { MethodType=Event  NoDoc=True }
    40    Procedure Deactivating
    41        Integer hoClient
    42        Forward Send DeActivating
    43        Delegate Get Client_Id To hoClient
    44        If hoClient Begin
    45            Send Remove_Border_Object to hoClient self amTOP
    46        End
    47    End_Procedure
    48
    49    { MethodType=Property Visibility=Private }
    50    Procedure Set GuiSize Integer cy Integer cx
    51        Forward Set GuiSize to cy cx
    52    End_Procedure
    53
    54    // Container_Handle:
    55    // JvH: 11/26/97 - This function was put in to allow support for combo-form & other
    56    // controls in the toolbar.
    57    { MethodType=Property Visibility=Private }
    58    Function Container_Handle returns integer
    59        function_return (window_handle(self))
    60    End_Function
    61End_class // DFApp_ButtonBar