Module oCommandBarSystem_Standard.pkg
1Use SigCJLibraries.pkg
2Use Dftimer.pkg
3Register_Object oDockingManager
4
5Object oCommandBarSystem is a cSigCJCommandBarSystem
6
7 Set pbTimerUpdate to True
8
9 Procedure OnCreateCommandBars
10 Handle hoOptions
11 Get OptionsObject to hoOptions
12 Forward Send OnCreateCommandBars
13 End_Procedure
14
15 Object oMenuBar is a cCJMenuBar
16
17 Object oFileMenu is a cCJMenuItem
18
19 Set peControlType to xtpControlPopup
20 Set psCaption to "&File"
21 Set psDescription to "Find, Save, Delete, Clear information or quit this application."
22 Set psCategory to "Menus"
23
24 Object oClearMenuItem is a cCJClearMenuItem
25 Set pbAddToDesignerMenu to True
26 End_Object
27
28 Object oClearAllMenu is a cCJClearAllMenuItem
29 Set pbAddToDesignerMenu to True
30 End_Object
31
32 Object oPromptMenuItem is a cCJPromptMenuItem
33 Set pbAddToDesignerMenu to True
34 Set pbControlBeginGroup to True
35 End_Object
36
37 Object oFindMenuItem is a cCJFindMenuItem
38 Set pbAddToDesignerMenu to True
39 Set pbControlBeginGroup to True
40 End_Object
41
42 Object oFindNextMenu is a cCJFindNextMenuItem
43 Set pbAddToDesignerMenu to True
44 End_Object
45
46 Object oFindPreviousMenu is a cCJFindPreviousMenuItem
47 Set pbAddToDesignerMenu to True
48 End_Object
49
50 Object oFindFirstMenu is a cCJFindFirstMenuItem
51 Set pbAddToDesignerMenu to True
52 End_Object
53
54 Object oFindLastMenu is a cCJFindLastMenuItem
55 Set pbAddToDesignerMenu to True
56 End_Object
57
58 Object oSaveMenuItem is a cCJSaveMenuItem
59 Set pbAddToDesignerMenu to True
60 Set pbControlBeginGroup to True
61 End_Object
62
63 Object oDeleteMenuItem is a cCJDeleteMenuItem
64 Set pbAddToDesignerMenu to True
65 End_Object
66
67 Object oExitMenu is a cCJExitMenuItem
68 Set pbControlBeginGroup to True
69 End_Object
70
71 End_Object
72
73 Object oViewMenu is a cCJMenuItem
74
75 Set peControlType to xtpControlPopup
76 Set psCaption to "&View"
77 Set psToolTip to "View"
78 Set psDescription to "Available Views"
79
80 Object oOrdersMenuItem is a cCJMenuItem
81 Set psCaption to "Order Samples"
82 Set psTooltip to "Order Samples"
83 Set peControlType to xtpControlPopup
84
85 Object oInventoryItemViewMenuItem1 is a cCJMenuItem
86 Set psCaption to "Inventory Item View"
87 Set psTooltip to "Inventory Item View"
88
89 Procedure OnExecute Variant vCommandBarControl
90 Handle hoClient
91 Get Client_Id to hoClient
92 Send Activate_oInventoryView of hoClient
93 End_Procedure
94 End_Object
95
96 Object oVendorEntryViewMenuItem1 is a cCJMenuItem
97 Set psCaption to "Vendor Entry View"
98 Set psTooltip to "Vendor Entry View"
99
100 Procedure OnExecute Variant vCommandBarControl
101 Handle hoClient
102 Get Client_Id to hoClient
103 Send Activate_oVendorView of hoClient
104 End_Procedure
105 End_Object
106
107 Object oSalesPersonEntryViewMenuItem1 is a cCJMenuItem
108 Set psCaption to "Sales Person Entry View"
109 Set psTooltip to "Sales Person Entry View"
110
111 Procedure OnExecute Variant vCommandBarControl
112 Handle hoClient
113 Get Client_Id to hoClient
114 Send Activate_oSalesPersonView of hoClient
115 End_Procedure
116 End_Object
117
118 Object oCustomerEntryViewMenuItem1 is a cCJMenuItem
119 Set psCaption to "Customer Entry View"
120 Set psTooltip to "Customer Entry View"
121
122 Procedure OnExecute Variant vCommandBarControl
123 Handle hoClient
124 Get Client_Id to hoClient
125 Send Activate_oCustomerView of hoClient
126 End_Procedure
127 End_Object
128
129 Object oOrderEntryMenuItem1 is a cCJMenuItem
130 Set psCaption to "Order Entry"
131 Set psTooltip to "Order Entry"
132
133 Procedure OnExecute Variant vCommandBarControl
134 Handle hoClient
135 Get Client_Id to hoClient
136 Send Activate_oOrderEntryView of hoClient
137 End_Procedure
138 End_Object
139 End_Object
140
141 Object oGeneralCompontantsMenuItem is a cCJMenuItem
142 Set psCaption to "General Components"
143 Set psTooltip to "General Components"
144 Set peControlType to xtpControlPopup
145
146 Object oPushButtonsMenuItem is a cCJMenuItem
147 Set psCaption to "Push Buttons"
148 Set psTooltip to "Push Buttons"
149 Procedure OnExecute Variant vCommandBarControl
150 Handle hoClient
151 Get Client_Id to hoClient
152 Send Activate_oSigCJPushButtonDemo_View of hoClient
153 End_Procedure
154 End_Object
155
156 Object oTriStateCheckboxMenuItem is a cCJMenuItem
157 Set psCaption to "Tri-State Checkbox"
158 Set psTooltip to "Tri-State Checkbox"
159
160 Procedure OnExecute Variant vCommandBarControl
161 Handle hoClient
162 Get Client_Id to hoClient
163 Send Activate_oSigCJCheckBoxDemo_View of hoClient
164 End_Procedure
165 End_Object
166
167 Object oMessageDialogsMenuItem is a cCJMenuItem
168 Set psCaption to "Message Dialogs"
169 Set psTooltip to "Message Dialogs"
170
171 Procedure OnExecute Variant vCommandBarControl
172 Handle hoClient
173 Get Client_Id to hoClient
174 Send Activate_oSigCJTaskDialogDemo_View of hoClient
175 End_Procedure
176 End_Object
177
178 Object oMonthCalendarMenuItem is a cCJMenuItem
179 Set psCaption to "Popup Calendar"
180 Set psTooltip to "Popup Calendar"
181
182 Procedure OnExecute Variant vCommandBarControl
183 Handle hoClient
184 Get Client_Id to hoClient
185 Send Activate_oSigCJMonthCalendarDemo_View of hoClient
186 End_Procedure
187 End_Object
188
189 Object oPopupMessageControlMenuItem is a cCJMenuItem
190 Set psCaption to "Popup Message Control"
191 Set psTooltip to "Popup Message Control"
192
193 Procedure OnExecute Variant vCommandBarControl
194 Handle hoClient
195 Get Client_Id to hoClient
196 Send Activate_oSigCJPopupControlDemo_View of hoClient
197 End_Procedure
198 End_Object
199
200 Object oMarkupControlMenuItem is a cCJMenuItem
201 Set psCaption to "Markup Control"
202 Set psTooltip to "Markup Control"
203
204 Procedure OnExecute Variant vCommandBarControl
205 Handle hoClient
206 Get Client_Id to hoClient
207 Send Activate_oSIGCJLabelControlDemo_View of hoClient
208 End_Procedure
209 End_Object
210 End_Object
211
212 Object oReportControlMenuItem is a cCJMenuItem
213 Set psCaption to "Report Control"
214 Set psTooltip to "Report Control"
215 Set peControlType to xtpControlPopup
216
217 Object oTextFileMenuItem is a cCJMenuItem
218 Set psCaption to "Text File"
219 Set psTooltip to "Text File"
220
221 Procedure OnExecute Variant vCommandBarControl
222 Handle hoClient
223 Get Client_Id to hoClient
224 Send Activate_SigCjReportControlDemo_Text_View of hoClient
225 End_Procedure
226 End_Object
227
228 Object oStandardTableMenuItem is a cCJMenuItem
229 Set psCaption to "Standard Table"
230 Set psTooltip to "Standard Table"
231
232 Procedure OnExecute Variant vCommandBarControl
233 Handle hoClient
234 Get Client_Id to hoClient
235 Send Activate_SigCjReportControlDemo_Table_View of hoClient
236 End_Procedure
237 End_Object
238
239 Object oSQLTableMenuItem is a cCJMenuItem
240 Set psCaption to "SQL Table"
241 Set psTooltip to "SQL Table"
242
243 Procedure OnExecute Variant vCommandBarControl
244 Handle hoClient
245 Get Client_Id to hoClient
246 Send Activate_SigCjReportControlDemo_SQL_View of hoClient
247 End_Procedure
248 End_Object
249 End_Object
250
251 Object oCalendarControlMenuItem is a cCJMenuItem
252 Set psCaption to "Calendar Control"
253 Set psTooltip to "Calendar Control"
254 Set peControlType to xtpControlPopup
255
256 Object oSpecialDatesMenuItem is a cCJMenuItem
257 Set psCaption to "Special Dates"
258 Set psTooltip to "Calender Special Dates"
259
260 Procedure OnExecute Variant vCommandBarControl
261 Handle hoClient
262 Get Client_Id to hoClient
263 Send Activate_oSigCJCalendarDemo_Special_Dates_View of hoClient
264 End_Procedure
265 End_Object
266
267 Object oCategoriesMenuItem is a cCJMenuItem
268 Set psCaption to "Categories"
269 Set psTooltip to "Calender Categories"
270
271 Procedure OnExecute Variant vCommandBarControl
272 Handle hoClient
273 Get Client_Id to hoClient
274 Send Activate_oSigCjCalendarDemo_Categories_View of hoClient
275 End_Procedure
276 End_Object
277
278 Object oResource is a cCJMenuItem
279 Set psCaption to "Calendar Resources"
280 Set psTooltip to "Calendar Resources"
281
282 Procedure OnExecute Variant vCommandBarControl
283 Handle hoClient
284 Get Client_Id to hoClient
285 Send Activate_oCalendar_Resources of hoClient
286 End_Procedure
287 End_Object
288
289
290 Object oStandardCalendarMenuItem is a cCJMenuItem
291 Set psCaption to "Standard Calendar"
292 Set psTooltip to "Standard Calendar"
293
294 Procedure OnExecute Variant vCommandBarControl
295 Handle hoClient
296 Get Client_Id to hoClient
297 Send Activate_oSigCJCalendarDemo_Standard_View of hoClient
298 End_Procedure
299 End_Object
300
301 Object oBespokeCalendarMenuItem is a cCJMenuItem
302 Set psCaption to "Bespoke Calendar"
303 Set psTooltip to "Bespoke Calendar"
304
305 Procedure OnExecute Variant vCommandBarControl
306 Handle hoClient
307 Get Client_Id to hoClient
308 Send Activate_oSigCJCalendarDemo_Bespoke_View of hoClient
309 End_Procedure
310 End_Object
311
312 Object oResource is a cCJMenuItem
313 Set psCaption to "Resource Calendar"
314 Set psTooltip to "Resource Calendar"
315
316 Procedure OnExecute Variant vCommandBarControl
317 Handle hoClient
318 Get Client_Id to hoClient
319 Send Activate_oSigCJCalendarDemo_Resource_View of hoClient
320 End_Procedure
321 End_Object
322
323
324 End_Object
325
326 Object oTreeViewMenuItem is a cCJMenuItem
327 Set psCaption to "TreeView Control"
328 Set psTooltip to "TreeView Control"
329 Set peControlType to xtpControlPopup
330
331 Object oSimpleTreeViewMenuItem is a cCJMenuItem
332 Set psCaption to "Simple TreeView"
333 Set psTooltip to "Simple TreeView"
334
335 Procedure OnExecute Variant vCommandBarControl
336 Handle hoClient
337 Get Client_Id to hoClient
338 Send Activate_oSigCJTreeViewDemo_Simple_View of hoClient
339 End_Procedure
340 End_Object
341
342 Object oSalesOrdersTreeViewMenuItem is a cCJMenuItem
343 Set psCaption to "Sales Orders TreeView"
344 Set psTooltip to "Sales Orders TreeView"
345
346 Procedure OnExecute Variant vCommandBarControl
347 Handle hoClient
348 Get Client_Id to hoClient
349 Send Activate_oSigCJTreeViewDemo_SalesOrders_View of hoClient
350 End_Procedure
351 End_Object
352 End_Object // oTreeViewMenuItem
353
354 End_Object
355
356 Object oNavigateMenu is a cCJMenuItem
357 Set peControlType to xtpControlPopup
358 Set psCaption to "&Navigate"
359 Set psTooltip to "Navigate"
360 Set psDescription to "Move to different areas of the application"
361
362 Object oNextAreaMenu is a cCJNextAreaMenu
363 End_Object
364
365 Object oPriorAreaMenu is a cCJPriorAreaMenu
366 End_Object
367
368 Object oNextViewMenu is a cCJNextViewMenu
369 End_Object
370
371 Object oPriorViewMenu is a cCJPriorViewMenu
372 End_Object
373
374 Object oPromptMenu is a cCJPromptMenuItem
375 Set pbControlBeginGroup to True
376 End_Object
377
378 Object oZoomMenu is a cCJZoomMenuItem
379 End_Object
380
381 End_Object
382
383 Object oWindowMenu is a cCJMDIWindowsMenuItem
384 Set peControlType to xtpControlPopup
385 Set psCaption to "&Window"
386 Set psToolTip to "Window"
387 Set psDescription to "Display Current Views and set other display options."
388
389 // These are the static windows items. More will be created in onInitPopup
390 Object oDisplayOptionsMenu is a cCJMenuItem
391 Set peControlType to xtpControlPopup
392 Set psCaption to "&Display Options"
393 Set psToolTip to "Display Options"
394 Set psDescription to "Set display options"
395
396 Object oStatusbarMenu is a cCJStatusbarMenuItem
397 End_Object
398
399 Object oAutoArrangeIconsMenu is a cCJAutoArrangeIconsMenuItem
400 End_Object
401
402 Object oRestoreMenusMenu is a cCJRestoreMenusMenuItem
403 Set pbControlBeginGroup to True
404 End_Object
405
406 End_Object
407
408 Object oCascadeMenu is a cCJCascadeMenuItem
409 Set pbControlBeginGroup to True
410 End_Object
411
412 Object oHorizTile is a cCJTileHorizontally
413 End_Object
414
415 Object oVertTile is a cCJTileVertically
416 End_Object
417
418 Object oMinimizeMenuItem is a cCJMinimizeWindowsMenuItem
419 Set pbControlBeginGroup to True
420 End_Object
421
422 Object oRestoreMenuItem is a cCJRestoreWindowsMenuItem
423 End_Object
424
425 Object oArrangeIconsMenuItem is a cCJAutoArrangeIconsMenuItem
426 Set pbControlBeginGroup to True
427 End_Object
428
429 End_Object
430
431 Object oHelpMenu is a cCJMenuItem
432 Set peControlType to xtpControlPopup
433 Set psCaption to "&Help"
434 Set psDescription to "Access Information for learning and using this DataFlex application."
435 Set psToolTip to "Help"
436
437 Object oHelpMenuItem is a cCJHelpMenuItem
438 End_Object
439
440 Object oAboutMenuItem is a cCJAboutMenuItem
441 End_Object
442
443 End_Object
444
445 End_Object
446
447 Object oFindToolBar is a cCJToolbar
448 Set psTitle to "Finding Toolbar"
449
450 Object oFindFirstTool is a cCJFindFirstMenuItem
451 End_Object
452
453 Object oFindPreviousTool is a cCJFindPreviousMenuItem
454 End_Object
455
456 Object oFindMenuTool is a cCJFindMenuItem
457 End_Object
458
459 Object oFindNextTool is a cCJFindNextMenuItem
460 End_Object
461
462 Object oFindLastTool is a cCJFindLastMenuItem
463 End_Object
464
465 Object oPromptToolItem is a cCJPromptMenuItem
466 Set pbControlBeginGroup to True
467 End_Object
468
469 End_Object
470
471 Object oFileToolBar is a cCJToolbar
472 Set psTitle to "Data Entry Toolbar"
473
474 Object oClearToolItem is a cCJClearMenuItem
475 Set peControlStyle to xtpButtonIconAndCaption
476 End_Object
477
478 Object oClearAllToolItem2 is a cCJClearAllMenuItem
479 Set peControlStyle to xtpButtonIconAndCaption
480 End_Object
481
482 Object oSaveToolItem is a cCJSaveMenuItem
483 Set peControlStyle to xtpButtonIconAndCaption
484 Set pbControlBeginGroup to True
485 End_Object
486
487 Object oDeleteToolItem is a cCJDeleteMenuItem
488 Set peControlStyle to xtpButtonIconAndCaption
489 End_Object
490
491 End_Object
492
493 Object oEditToolBar is a cCJToolbar
494 Set psTitle to "Edit Toolbar"
495
496 Object oCutToolbarItem is a cCJCutMenuItem
497 End_Object
498
499 Object oCopyToolbarItem is a cCJCopyMenuItem
500 End_Object
501
502 Object oPasteToolbarItem is a cCJPasteMenuItem
503 End_Object
504
505 Object oDeleteEditToolbarItem is a cCJDeleteEditMenuItem
506 Set pbControlBeginGroup to True
507 End_Object
508
509 End_Object
510
511 Object oDockingPaneBar is a cCJToolbar
512 Set psTitle to "Docking Pane Toolbar"
513
514 Object oPropertyGrid_Menu is a cCJMenuItem
515 Set psCaption to "Property Grid"
516 Set psToolTip to "Property Grid"
517 Set psDescription to "Property Grid"
518 Set psImage to "Configure_16.ico"
519 Set pbActiveUpdate to True
520
521 Procedure OnExecute Variant vCommandBarControl
522 Send ShowPane of oDockingManager C_Pane_Property_Grid
523 End_Procedure
524
525 Function IsEnabled Returns Boolean
526 Boolean bStatus
527 Get IsPaneClosed of oDockingManager C_Pane_Property_Grid to bStatus
528 Function_Return bStatus
529 End_Function
530
531 End_Object
532
533 Object oTaskPanel_Menu is a cCJMenuItem
534 Set psCaption to "Task Panel"
535 Set psToolTip to "Task Panel"
536 Set psDescription to "Task Panel"
537 Set psImage to "ActionTileVertically.ico"
538 Set pbActiveUpdate to True
539
540 Procedure OnExecute Variant vCommandBarControl
541 Send ShowPane of oDockingManager C_Pane_Task_Panel
542 End_Procedure
543
544 Function IsEnabled Returns Boolean
545 Boolean bStatus
546
547 Get IsPaneClosed of oDockingManager C_Pane_Task_Panel to bStatus
548
549 Function_Return bStatus
550 End_Function
551 End_Object
552
553 Object oShortCutBar_Menu is a cCJMenuItem
554 Set psCaption to "Short Cut Bar"
555 Set psToolTip to "Short Cut Bar"
556 Set psDescription to "Short Cut Bar"
557 Set psImage to "WindowSidebar_16.ico"
558 Set pbActiveUpdate to True
559
560 Procedure OnExecute Variant vCommandBarControl
561 Send ShowPane of oDockingManager C_Pane_Short_Cut_Bar
562 End_Procedure
563
564 Function IsEnabled Returns Boolean
565 Boolean bStatus
566
567 Get IsPaneClosed of oDockingManager C_Pane_Short_Cut_Bar to bStatus
568
569 Function_Return bStatus
570 End_Function
571 End_Object
572
573 End_Object
574
575 Object oStatusBar is a cCJStatusBar
576
577 Object oStatusTime is a cCJStatusBarPane
578 Set piWidth to 120
579 Set pbStyleNoBorders to True
580 End_Object
581
582 Object oStatusPane1 is a cCJStatusBarPane
583 Set piID to sbpIDIdlePane
584 Set pbStyleStretch to True
585 End_Object
586
587 Object oStatusPane2 is a cCJStatusBarPane
588 Set phoViewPane to Self
589 Set pbStyleStretch to True
590 End_Object
591
592 Object oStatusCapslockState is a cCJStatusBarPane
593 Set piId to sbpIDCapslock
594 End_Object
595
596 Object oStatusNumlockState is a cCJStatusBarPane
597 Set piId to sbpIDNumLock
598 End_Object
599
600 Object oTimer is a DFTimer
601 Set Timer_Active_State to True
602 Procedure OnTimer
603 Set psText of oStatusTime to (Mid(CurrentDateTime(),19,1))
604 End_Procedure
605
606 End_Object // oTimer
607
608 End_Object // oStatusBar
609
610End_Object