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