Dynamic codejock menus from a database

From DataFlex Wiki
Jump to navigationJump to search

Dynamic codejock menus from a database

Class of menu:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
Use cBgCjMenuItem.pkg
 
// cBgCjMenuItemDynamic
Class cBgCjMenuItemDynamic is a cBgCjMenuItem
  
  // Construct_Object
  {OverrideProperty=psCaption InitialValue="&Some caption"}
  {OverrideProperty=psImage InitialValue="Icon.ico"}
  Procedure Construct_Object
     Forward Send Construct_Object
 
     Set pbActiveUpdate to True
 
     Property Handle phoDDO
     Property Handle[] phoArrayofItems
 
     Set psCaption to "&Some caption"
     Set psImage to "Icon.ico"
     Set psDescription  to 'Bla bla'
     Set psToolTip      to 'Bla bla'
     Set peControlStyle to xtpButtonIconAndCAption
     Set peControlType  to xtpControlPopup
  End_Procedure  // Construct_Object
  
  // OnItemClicked
  // This event will be sent when a user clicks on a dynamically added menuitem.
  {MethodType=Event}
  Procedure OnItemClicked Integer iTableID Integer iExtraParameter
  End_Procedure
  
  // OnPopupInit
  Procedure OnPopupInit Variant vCommandBarControl Handle hCommandBarControls
     Forward Send OnPopupInit vCommandBarControl hCommandBarControls
 
     Send DoFillDynamicMenu hCommandBarControls
  End_Procedure
  
  // Add all dynamic menu items.
  {Visibility=Private}
  Procedure DoFillDynamicMenu Handle hCommandBarControls
     Integer iCommaPos iAantal iType
     String sCommaSepValues sEnkelvoud sMeervoud
     Handle hMessage
     Handle[] hoArrayOfItems
     Handle hoNewItem hoDDO
     Integer iItems iteller iExtraParameter
 
     // First delete all items that were added before.
     Get phoArrayofItems to hoArrayOfItems
     Move (SizeOfArray(hoArrayOfItems)) to iItems
     For iTeller from 0 to (iItems-1)
        Send Destroy of hoArrayOfItems[iTeller]
     Loop
     Move (ResizeArray(hoArrayOfItems,0)) to hoArrayOfItems
     Move 0 to iTeller
 
     Get phoDDO to hoDDO
     If (hoDDO <> 0) Begin
        // With this you can query some field value in a ddo.
        // This value will be sent with the OnItemClicked event as an extra parameter.
        Get Field_Current_Value of hoDDO Field Table.SomeField to iExtraParameter
     End
 
     Move Msg_OnItemClicked to hMessage
     Open SomeTable
     Clear SomeTable
     Move "V" to SomeTable.Type
     Find ge SomeTable.Type
     While ((Found) and (SomeTable.Type = "V"))
        Get GetAddItem U_cBgCjMenuItem hCommandBarControls (Trim(SomeTable.Description)) False hMessage (Self) SomeTable.TableId iExtraParameter to hoNewItem
        Move hoNewItem to hoArrayOfItems[iTeller]
        Add 1 to iTeller
 
        Find gt SomeTable.Type
     Loop
     If (iCounter = 0) Begin
        Get GetAddItem U_cBgCjMenuItem hCommandBarControls "<No menuitems found!>" False Msg_None (Self) to hoNewItem
        Move hoNewItem to hoArrayOfItems[iCounter]
        Add 1 to iCounter
     End        
 
     Set phoArrayofItems to hoArrayOfItems
 
  End_Procedure // DoFillDynamicMenu
 
  // IsEnabled
  Function IsEnabled Returns Boolean
     Handle hoDDO
     Boolean bEnabled
 
     Get phoDDO to hoDDO
     If (hoDDO <> 0) Begin
        // Only enable menu items when a record has been selected.
        Move (HasRecord(hoDDO)) to bEnabled
     End
     Function_Return bEnabled
  End_Function
End_Class // cBgCjMenuItemStatusAanpassen

The class uses a special subclass for the menu item:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Class cBgCjMenuItem is a cCJMenuItem
 
  // Construct_Object
  Procedure Construct_Object
     Forward Send Construct_Object
 
     Property Handle phMessage
     Property Handle phoMessageObject
     Property String psMessageParameter
     Property String psMessageParameter2
     Property String psMessageParameter3
 
     Set peControlType to xtpControlButton
  End_Procedure
 
  // End_Construct_Object
  Procedure End_Construct_Object
     Forward Send End_Construct_Object
  End_Procedure
 
  // OnExecute
  Procedure OnExecute Variant vCommandBarControl
     Handle hMessage hoMessageObject
     String sMessageParameter sMessageParameter2 sMessageParameter3
 
     Get phMessage to hMessage
     If (hMessage <> 0) Begin
        Get phoMessageObject to hoMessageObject
        If (hoMessageObject = 0) Begin
           Get Client_Id to hoMessageObject
        End
        Get psMessageParameter  to sMessageParameter
        Get psMessageParameter2 to sMessageParameter2
        Get psMessageParameter3 to sMessageParameter3
        Send hMessage of hoMessageObject sMessageParameter sMessageParameter2 sMessageParameter3
     End
     Else Forward Send OnExecute vCommandBarControl
  End_Procedure
 
  // GetAddItem
  // Adds item dynamically
  Function GetAddItem Handle hClass Handle hCommandBarControls String sCaption Boolean bDivider Handle hOptMessage Handle hoOptMessageObject ;
                      String sOptMessageParameter String sOptMessageParameter2 String sOptMessageParameter3 Returns Handle
     Handle hoNewItem hMessage hoMessageObject
     Variant vItem
     Handle[] hoArrayOfItems
     Integer iItems
     String sMessageParameter sMessageParameter2 sMessageParameter3
 
     If (Num_Arguments >= 5) Move hOptMessage to hMessage
     If (Num_Arguments >= 6) Move hoOptMessageObject to hoMessageObject
     If (num_arguments >= 7) Move sOptMessageParameter  to sMessageParameter
     If (num_arguments >= 8) Move sOptMessageParameter2 to sMessageParameter2
     If (num_arguments >= 9) Move sOptMessageParameter3 to sMessageParameter3
 
     // Dynamisch object aanmaken.
     Get Create hClass to hoNewItem
     If (hoNewItem <> 0) Begin
        // Label maken
        Set psCaption of hoNewItem to sCaption
        If (bDivider) Set pbControlBeginGroup of hoNewItem to True
 
        If (hMessage <> 0)            Set phMessage           of hoNewItem to hMessage
        If (hoMessageObject <> 0)     Set phoMessageObject    of hoNewItem to hoMessageObject
        If (sMessageParameter <> "")  Set psMessageParameter  of hoNewItem to sMessageParameter
        If (sMessageParameter2 <> "") Set psMessageParameter2 of hoNewItem to sMessageParameter2
        If (sMessageParameter3 <> "") Set psMessageParameter3 of hoNewItem to sMessageParameter3
 
        // Dynamically add the menu as a child of the current popup.
        Get AddDynamicControl of hoNewItem hCommandBarControls to vItem
     End
     Else Begin
        Error 300 ("Menu item" * sCaption * "can not be added!")
     End
     Function_Return hoNewItem
  End_Function // GetAddItem
End_Class

And finally to use it in your programs menu:

?
1
2
3
4
5
6
7
8
9
10
11
Object oDynamicMenuItems_itm is a cBgCjMenuItemDynamic
  // OnCreateAction
  Procedure OnCreateAction
     Forward Send OnCreateAction
     Set phoDDO to (SomeTable_DD(Self)) // This is an option...
  End_Procedure
 
  Procedure OnItemClicked Integer iTableID Integer iExtraParameterFromDDO
     Send DoThis iTableID iExtraParameterFromDDO
  End_Procedure
End_Object // oDynamicMenuItems_itm


External links

VDF14 Dynamic Menu from Database

Retrieved from "https://dataflex.wiki/index.php?title=Dynamic_codejock_menus_from_a_database&oldid=2881"