Module cSigCJToolBar.pkg

     1//==============================================================================
     2// Project      : SigCj - VDF Classes for Codejock
     3// File         : cSigCJToolBar.pkg
     4// Description  : VDF Class for Codejock control
     5//
     6// Revision     : $Rev: 599 $
     7//                $Date: 2009-10-14 05:39:01 -0400 (Wed, 14 Oct 2009) $
     8//                $Author: pak $ Martin Pincott
     9//
    10// Requirements : Visual DataFlex 12.1+
    11//                Codejock SuitePro - Version 12.0.0+
    12//
    13// Copyright    : (c) 2008 VDF SIG UK
    14//                Visual DataFlex Special Interest Group UK.
    15//                http://www.vdfsig.co.uk/
    16//                dev@vdfsig.co.uk
    17//
    18//                This file is part of SigCj.
    19//
    20//                SigCj is free software: you can redistribute it and/or modify
    21//                it under the terms of the GNU Lesser General Public License 
    22//                as published by the Free Software Foundation, either version 
    23//                2.1 of the License, or (at your option) any later version.
    24//
    25//                SigCj is distributed in the hope that it will be useful, but 
    26//                WITHOUT ANY WARRANTY; without even the implied warranty of
    27//                MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    28//                GNU Lesser General Public License for more details.
    29//
    30//                If you have the complete SigCj workspace then a copy of the  
    31//                GNU Lesser General Public License is in the Docs folder. If  
    32//                not, see <http://www.gnu.org/licenses/>.
    33//    
    34//==============================================================================
    35
    36Use cCJCommandBarSystem.pkg
    37Use cSigCJMethods_Mixin.pkg
    38Use cSigCJMenuItem.pkg
    39
    40Class cSigCJToolBar is a cCJToolbar
    41    Import_Class_Protocol cSigCJMethods_Mixin
    42    
    43    Procedure Construct_Object
    44        Forward Send Construct_Object
    45    End_Procedure
    46
    47    Procedure End_Construct_Object
    48        Forward Send End_Construct_Object
    49
    50        // Add your code that needs to be executed at the end of the object construction here:
    51        Send Load_Menu_Items
    52    End_Procedure
    53    
    54    // Hook 
    55    { MethodType=Event }
    56    Procedure Load_Menu_Items
    57    End_Procedure
    58
    59    // Create and augment procedures and functions
    60    Procedure mCreate_Menu_Item String sLabel Integer iImage Integer iControl Integer iKey String sMessage String sToolTip String sStatusHelp 
    61        Handle hoMenuItem
    62        
    63        Get Create U_cSigCJMenuItem to hoMenuItem
    64        Set psCaption      of hoMenuItem to sLabel
    65        Set piIconId       of hoMenuItem to iImage
    66        Set piShortcutKey  of hoMenuItem to iControl iKey
    67        Set psMessage      of hoMenuItem to sMessage
    68        Set psTooltip      of hoMenuItem to sToolTip
    69        Set psDescription  of hoMenuItem to sStatusHelp
    70    End_Procedure
    71
    72End_Class
    73
    74//==============================================================================
    75//End of Package - cSigCJToolBar.pkg
    76//==============================================================================
    77