Module cCJStandardMenuItemClasses.pkg
1Use Dfpanel.pkg
2Use cCJCommandBarSystem.pkg
3Use LanguageText.pkg
4
5{ OverrideProperty=psCaption InitialValue=C_$CaptionUndo }
6{ OverrideProperty=psToolTip InitialValue=C_$ToolTipUndo }
7{ OverrideProperty=psDescription InitialValue=C_$DescUndo }
8{ OverrideProperty=psImage InitialValue="ActionUndo.ico" }
9{ OverrideProperty=pbActiveUpdate InitialValue=True }
10{ OverrideProperty=psCategory InitialValue=C_$CategoryEdit}
11{ OverrideProperty=psShortcut InitialValue=C_$Key_Ctrl_Z }
12
13Class cCJUndoMenuItem is a cCJMenuItem
14
15 Procedure Construct_Object
16 Forward Send Construct_Object
17 Set psCaption to C_$CaptionUndo
18 Set psToolTip to C_$ToolTipUndo
19 Set psDescription to C_$DescUndo
20 Set psImage to "ActionUndo.ico"
21 Set pbActiveUpdate to True
22 Set psCategory to C_$CategoryEdit
23 Set psShortcut to C_$Key_Ctrl_Z
24 End_Procedure
25
26 Procedure OnExecute Variant vCommandBarControl
27 Send Undo of (focus(Self))
28 End_Procedure
29
30 Function IsEnabled Returns Boolean
31 Boolean bEnabled
32 Get CanUndo of (Focus(Self)) to bEnabled
33 Function_Return bEnabled
34 End_Function
35
36End_Class
37
38{ OverrideProperty=psCaption InitialValue=C_$CaptionDelete }
39{ OverrideProperty=psToolTip InitialValue=C_$ToolTipDelete }
40{ OverrideProperty=psDescription InitialValue=C_$DescDelete }
41{ OverrideProperty=psImage InitialValue="ActionDelete.ico" }
42{ OverrideProperty=psShortcut InitialValue=C_$Key_Delete }
43{ OverrideProperty=pbActiveUpdate InitialValue=True }
44{ OverrideProperty=psCategory InitialValue=C_$CategoryEdit}
45
46Class cCJDeleteEditMenuItem is a cCJMenuItem
47
48 Procedure Construct_Object
49 Forward Send Construct_Object
50 Set psCaption to C_$CaptionDelete
51 Set psToolTip to C_$ToolTipDelete
52 Set psDescription to C_$DescDelete
53 Set psImage to "actionDelete.ico"
54 Set psShortcut to C_$Key_Delete
55 Set pbActiveUpdate to True
56 Set psCategory to C_$CategoryEdit
57 End_Procedure
58
59
60 Procedure OnExecute Variant vCommandBarControl
61 Send Delete of (focus(Self))
62 End_Procedure
63
64 Function IsEnabled Returns Boolean
65 Boolean bEnabled
66 Get CanDelete of (Focus(Self)) to bEnabled
67 Function_Return bEnabled
68 End_Function
69
70End_Class
71
72{ OverrideProperty=psCaption InitialValue=C_$CaptionCut }
73{ OverrideProperty=psToolTip InitialValue=C_$ToolTipCut }
74{ OverrideProperty=psDescription InitialValue=C_$DescCut }
75{ OverrideProperty=psImage InitialValue="ActionCut.ico" }
76{ OverrideProperty=psShortcut InitialValue=C_$Key_Ctrl_X }
77{ OverrideProperty=pbActiveUpdate InitialValue=True }
78{ OverrideProperty=psCategory InitialValue=C_$CategoryEdit}
79
80Class cCJCutMenuItem is a cCJMenuItem
81
82 Procedure Construct_Object
83 Forward Send Construct_Object
84 Set psCaption to C_$CaptionCut
85 Set psToolTip to C_$TooltipCut
86 Set psDescription to C_$DescCut
87 Set psImage to "actionCut.ico"
88 Set psShortcut to C_$Key_Ctrl_X
89 Set pbActiveUpdate to True
90 Set psCategory to C_$CategoryEdit
91 End_Procedure
92
93
94 Procedure OnExecute Variant vCommandBarControl
95 Send Cut of (focus(Self))
96 End_Procedure
97
98 Function IsEnabled Returns Boolean
99 Boolean bEnabled
100 Get CanCut of (Focus(Self)) to bEnabled
101 Function_Return bEnabled
102 End_Function
103
104End_Class
105
106{ OverrideProperty=psCaption InitialValue=C_$CaptionCopy }
107{ OverrideProperty=psToolTip InitialValue=C_$ToolTipCopy }
108{ OverrideProperty=psDescription InitialValue=C_$DescCopy }
109{ OverrideProperty=psImage InitialValue="ActionCopy.ico" }
110{ OverrideProperty=psShortcut InitialValue=C_$Key_Ctrl_C }
111{ OverrideProperty=pbActiveUpdate InitialValue=True }
112{ OverrideProperty=psCategory InitialValue=C_$CategoryEdit}
113
114Class cCJCopyMenuItem is a cCJMenuItem
115
116 Procedure Construct_Object
117 Forward Send Construct_Object
118 Set psCaption to C_$CaptionCopy
119 Set psToolTip to C_$ToolTipCopy
120 Set psDescription to C_$DescCopy
121 Set psImage to "actionCopy.ico"
122 Set psShortcut to C_$Key_Ctrl_C
123 Set pbActiveUpdate to True
124 Set psCategory to C_$CategoryEdit
125 End_Procedure
126
127
128 Procedure OnExecute Variant vCommandBarControl
129 Send Copy of (focus(Self))
130 End_Procedure
131
132 Function IsEnabled Returns Boolean
133 Boolean bEnabled
134 Get CanCopy of (Focus(Self)) to bEnabled
135 Function_Return bEnabled
136 End_Function
137
138End_Class
139
140{ OverrideProperty=psCaption InitialValue=C_$CaptionPaste }
141{ OverrideProperty=psToolTip InitialValue=C_$ToolTipPaste }
142{ OverrideProperty=psDescription InitialValue=C_$DescPaste }
143{ OverrideProperty=psImage InitialValue="ActionPaste.ico" }
144{ OverrideProperty=psShortcut InitialValue=C_$Key_Ctrl_V }
145{ OverrideProperty=pbActiveUpdate InitialValue=True }
146{ OverrideProperty=psCategory InitialValue=C_$CategoryEdit}
147
148Class cCJPasteMenuItem is a cCJMenuItem
149
150 Procedure Construct_Object
151 Forward Send Construct_Object
152 Set psCaption to C_$CaptionPaste
153 Set psToolTip to C_$ToolTipPaste
154 Set psDescription to C_$DescPaste
155 Set psImage to "actionPaste.ico"
156 Set pbActiveUpdate to True
157 Set psShortcut to C_$Key_Ctrl_V
158 Set psCategory to C_$CategoryEdit
159 End_Procedure
160
161
162 Procedure OnExecute Variant vCommandBarControl
163 Send Paste of (focus(Self))
164 End_Procedure
165
166 Function IsEnabled Returns Boolean
167 Boolean bEnabled
168 Get CanPaste of (Focus(Self)) to bEnabled
169 Function_Return bEnabled
170 End_Function
171
172End_Class
173
174{ OverrideProperty=psCaption InitialValue=C_$CaptionSelectAll }
175{ OverrideProperty=psToolTip InitialValue=C_$ToolTipSelectAll }
176{ OverrideProperty=psDescription InitialValue=C_$DescSelectAll }
177{ OverrideProperty=psShortcut InitialValue=C_$Key_Ctrl_A }
178{ OverrideProperty=pbActiveUpdate InitialValue=True }
179{ OverrideProperty=psCategory InitialValue=C_$CategoryEdit}
180Class cCJSelectAllMenuItem is a cCJMenuItem
181
182 Procedure Construct_Object
183 Forward Send Construct_Object
184 Set psCaption to C_$CaptionSelectAll
185 Set psToolTip to C_$ToolTipSelectAll
186 Set psDescription to C_$DescSelectAll
187 Set pbActiveUpdate to True
188 Set psShortcut to C_$Key_Ctrl_A
189 Set psCategory to C_$CategoryEdit
190 End_Procedure
191
192
193 Procedure OnExecute Variant vCommandBarControl
194 Send Select_All of (focus(Self))
195 End_Procedure
196
197 Function IsEnabled Returns Boolean
198 Boolean bEnabled
199 Get CanSelect of (Focus(Self)) to bEnabled
200 Function_Return bEnabled
201 End_Function
202
203End_Class
204
205
206{ OverrideProperty=psCaption InitialValue=C_$CaptionExit }
207{ OverrideProperty=psToolTip InitialValue=C_$ToolTipExit }
208{ OverrideProperty=psDescription InitialValue=C_$ToolTipExit }
209{ OverrideProperty=psShortcut InitialValue=C_$Key_Alt_F4 }
210{ OverrideProperty=psCategory InitialValue=C_$CategoryFile}
211Class cCJExitMenuItem is a cCJMenuItem
212
213 Procedure Construct_Object
214 Forward Send Construct_Object
215 Set psCaption to C_$CaptionExit
216 Set psToolTip to C_$ToolTipExit
217 Set psDescription to C_$ToolTipExit
218 Set psShortcut to C_$Key_Alt_F4
219 Set psCategory to C_$CategoryFile
220 End_Procedure
221
222 Procedure OnExecute Variant vCommandBarControl
223 Send Exit_Application of Desktop
224 End_Procedure
225
226End_Class
227
228{ OverrideProperty=psCaption InitialValue=C_$CaptionHelp }
229{ OverrideProperty=psToolTip InitialValue=C_$ToolTipHelp }
230{ OverrideProperty=psDescription InitialValue=C_$DescHelp }
231{ OverrideProperty=psShortcut InitialValue="F1" }
232{ OverrideProperty=psImage InitialValue="ActionHelp.ico" }
233{ OverrideProperty=psCategory InitialValue=C_$CategoryHelp}
234Class cCJHelpMenuItem is a cCJMenuItem
235
236 Procedure Construct_Object
237 Forward Send Construct_Object
238 Set psCaption to C_$CaptionHelp
239 Set psDescription to C_$ToolTipHelp
240 Set psToolTip to C_$DescHelp
241 Set psImage to "ActionHelp.ico"
242 Set psShortcut to "F1"
243 Set psCategory to C_$CategoryHelp
244 End_Procedure
245
246 Procedure OnExecute Variant vCommandBarControl
247 Send Help of (Focus(Self))
248 End_Procedure
249
250End_Class
251
252{ OverrideProperty=psCaption InitialValue=C_$CaptionAddStatusbar }
253{ OverrideProperty=psToolTip InitialValue=C_$ToolTipAddStatusbar }
254{ OverrideProperty=psDescription InitialValue=C_$DescAddStatusbar }
255{ OverrideProperty=psCategory InitialValue=C_$CategoryWindow}
256Class cCJStatusbarMenuItem is a cCJMenuItem
257
258 Procedure Construct_Object
259 Forward Send Construct_Object
260 Set psCaption to C_$CaptionAddStatusbar
261 Set psToolTip to C_$ToolTipAddStatusbar
262 Set psDescription to C_$DescAddStatusbar
263 Set psCategory to C_$CategoryWindow
264 End_Procedure
265
266 Procedure OnExecute Variant vCommandBarControl
267 Handle hoCommandBars hoClientArea
268 Get CommandBarSystemObject to hoCommandBars
269 Get ClientAreaObject of hoCommandBars to hoClientArea
270 If hoClientArea Begin
271 // the clientarea's parent panel has message
272 Send Toggle_StatusBar of (Parent(hoClientArea))
273 End
274 End_Procedure
275
276 Function IsChecked Returns Boolean
277 Boolean bOn
278 Handle hoCommandBars hoClientArea
279 Get CommandBarSystemObject to hoCommandBars
280 Get ClientAreaObject of hoCommandBars to hoClientArea
281 If hoClientArea Begin
282 // the clientarea's parent panel has message
283 Get StatusBar_State of (Parent(hoClientArea)) to bOn
284 End
285 Function_Return bOn
286 End_Function
287End_Class
288
289{ OverrideProperty=psCaption InitialValue=C_$CaptionAutoArrangeIcons }
290{ OverrideProperty=psToolTip InitialValue=C_$ToolTipAutoArrangeIcons }
291{ OverrideProperty=psDescription InitialValue=C_$DescAutoArrangeIcons }
292{ OverrideProperty=psCategory InitialValue=C_$CategoryWindow}
293Class cCJAutoArrangeIconsMenuItem is a cCJMenuItem
294
295 Procedure Construct_Object
296 Forward Send Construct_Object
297 Set psCaption to C_$CaptionAutoArrangeIcons
298 Set psToolTip to C_$ToolTipAutoArrangeIcons
299 Set psDescription to C_$DescAutoArrangeIcons
300 Set psCategory to C_$CategoryWindow
301 End_Procedure
302
303 Procedure OnExecute Variant vCommandBarControl
304 Handle hoCommandBars hoClientArea
305 Get CommandBarSystemObject to hoCommandBars
306 Get ClientAreaObject of hoCommandBars to hoClientArea
307 If hoClientArea Begin
308 // the clientarea's parent panel has message
309 Send Toggle_Auto_Arrange_Icons of (Parent(hoClientArea))
310 End
311 End_Procedure
312
313 Function IsChecked Returns Boolean
314 Boolean bOn
315 Handle hoCommandBars hoClientArea
316 Get CommandBarSystemObject to hoCommandBars
317 Get ClientAreaObject of hoCommandBars to hoClientArea
318 If hoClientArea Begin
319 // the clientarea's parent panel has message
320 Get Auto_Arrange_Icons_State of (Parent(hoClientArea)) to bOn
321 End
322 Function_Return bOn
323 End_Function
324End_Class
325
326{ OverrideProperty=psCaption InitialValue=C_$CaptionRestoreMenus }
327{ OverrideProperty=psToolTip InitialValue=C_$ToolTipRestoreMenus }
328{ OverrideProperty=psDescription InitialValue=C_$DescRestoreMenus }
329{ OverrideProperty=psCategory InitialValue=C_$CategoryWindow}
330Class cCJRestoreMenusMenuItem is a cCJMenuItem
331
332 Procedure Construct_Object
333 Forward Send Construct_Object
334 Set psCaption to C_$CaptionRestoreMenus
335 Set psToolTip to C_$ToolTipRestoreMenus
336 Set psDescription to C_$DescRestoreMenus
337 Set psCategory to C_$CategoryWindow
338 End_Procedure
339
340 Procedure OnExecute Variant vCommandBarControl
341 Handle hoCommandBars
342 Get CommandBarSystemObject to hoCommandBars
343 Send RestoreLayout of hoCommandBars
344 End_Procedure
345
346End_Class
347
348{ OverrideProperty=psCaption InitialValue=C_$CaptionCascade }
349{ OverrideProperty=psToolTip InitialValue=C_$ToolTipCascade }
350{ OverrideProperty=psDescription InitialValue=C_$DescCascade }
351{ OverrideProperty=psImage InitialValue="ActionCascade.ico" }
352{ OverrideProperty=psCategory InitialValue=C_$CategoryWindow}
353Class cCJCascadeMenuItem is a cCJMenuItem
354
355 Procedure Construct_Object
356 Forward Send Construct_Object
357 Set psCaption to C_$CaptionCascade
358 Set psToolTip to C_$ToolTipCascade
359 Set psDescription to C_$DescCascade
360 Set psImage to "ActionCascade.ico"
361 Set psCategory to C_$CategoryWindow
362 End_Procedure
363
364 Procedure OnExecute Variant vCommandBarControl
365 Handle hoCommandBars hoClientArea
366 Get CommandBarSystemObject to hoCommandBars
367 Get ClientAreaObject of hoCommandBars to hoClientArea
368 If hoClientArea Begin
369 Send Cascade_Windows of hoClientArea
370 End
371 End_Procedure
372End_Class
373
374{ OverrideProperty=psCaption InitialValue=C_$CaptionTileHorizontally }
375{ OverrideProperty=psToolTip InitialValue=C_$ToolTipTileHorizontally }
376{ OverrideProperty=psDescription InitialValue=C_$DescTileHorizontally }
377{ OverrideProperty=psImage InitialValue="ActionTileHorizontally.ico" }
378{ OverrideProperty=psCategory InitialValue=C_$CategoryWindow}
379Class cCJTileHorizontally is a cCJMenuItem
380
381 Procedure Construct_Object
382 Forward Send Construct_Object
383 Set psCaption to C_$CaptionTileHorizontally
384 Set psToolTip to C_$ToolTipTileHorizontally
385 Set psDescription to C_$DescTileHorizontally
386 Set psImage to "ActionTileHorizontally.ico"
387 Set psCategory to C_$CategoryWindow
388 End_Procedure
389
390 Procedure OnExecute Variant vCommandBarControl
391 Handle hoCommandBars hoClientArea
392 Get CommandBarSystemObject to hoCommandBars
393 Get ClientAreaObject of hoCommandBars to hoClientArea
394 If hoClientArea Begin
395 Send Tile_Windows_Horizontal of hoClientArea
396 End
397 End_Procedure
398End_Class
399
400{ OverrideProperty=psCaption InitialValue=C_$CaptionTileVertically }
401{ OverrideProperty=psToolTip InitialValue=C_$ToolTipTileVertically }
402{ OverrideProperty=psDescription InitialValue=C_$DescTileVertically }
403{ OverrideProperty=psImage InitialValue="ActionTileVertically.ico" }
404{ OverrideProperty=psCategory InitialValue=C_$CategoryWindow}
405Class cCJTileVertically is a cCJMenuItem
406
407 Procedure Construct_Object
408 Forward Send Construct_Object
409 Set psCaption to C_$CaptionTileVertically
410 Set psToolTip to C_$ToolTipTileVertically
411 Set psDescription to C_$DescTileVertically
412 Set psImage to "ActionTileVertically.ico"
413 Set psCategory to C_$CategoryWindow
414 End_Procedure
415
416 Procedure OnExecute Variant vCommandBarControl
417 Handle hoCommandBars hoClientArea
418 Get CommandBarSystemObject to hoCommandBars
419 Get ClientAreaObject of hoCommandBars to hoClientArea
420 If hoClientArea Begin
421 Send Tile_Windows_Vertical of hoClientArea
422 End
423 End_Procedure
424End_Class
425
426{ OverrideProperty=psCaption InitialValue=C_$CaptionMinimizeWindows }
427{ OverrideProperty=psToolTip InitialValue=C_$ToolTipMinimizeWindows }
428{ OverrideProperty=psDescription InitialValue=C_$DescMinimizeWindows }
429{ OverrideProperty=psCategory InitialValue=C_$CategoryWindow}
430Class cCJMinimizeWindowsMenuItem is a cCJMenuItem
431
432 Procedure Construct_Object
433 Forward Send Construct_Object
434 Set psCaption to C_$CaptionMinimizeWindows
435 Set psToolTip to C_$ToolTipMinimizeWindows
436 Set psDescription to C_$DescMinimizeWindows
437 Set psCategory to C_$CategoryWindow
438 End_Procedure
439
440 Procedure OnExecute Variant vCommandBarControl
441 Handle hoCommandBars hoClientArea
442 Get CommandBarSystemObject to hoCommandBars
443 Get ClientAreaObject of hoCommandBars to hoClientArea
444 If hoClientArea Begin
445 // the clientarea's parent panel has message
446 Send Minimize_all_Windows of (Parent(hoClientArea))
447 End
448 End_Procedure
449End_Class
450
451
452{ OverrideProperty=psCaption InitialValue=C_$CaptionRestoreWindows }
453{ OverrideProperty=psToolTip InitialValue=C_$ToolTipRestoreWindows }
454{ OverrideProperty=psDescription InitialValue=C_$DescRestoreWindows }
455{ OverrideProperty=psCategory InitialValue=C_$CategoryWindow}
456Class cCJRestoreWindowsMenuItem is a cCJMenuItem
457
458 Procedure Construct_Object
459 Forward Send Construct_Object
460 Set psCaption to C_$CaptionRestoreWindows
461 Set psToolTip to C_$ToolTipRestoreWindows
462 Set psDescription to C_$DescRestoreWindows
463 Set psCategory to C_$CategoryWindow
464 End_Procedure
465
466 Procedure OnExecute Variant vCommandBarControl
467 Handle hoCommandBars hoClientArea
468 Get CommandBarSystemObject to hoCommandBars
469 Get ClientAreaObject of hoCommandBars to hoClientArea
470 If hoClientArea Begin
471 // the clientarea's parent panel has message
472 Send Restore_all_Windows of (Parent(hoClientArea))
473 End
474 End_Procedure
475End_Class
476
477{ OverrideProperty=psCaption InitialValue=C_$CaptionArrangeIcons }
478{ OverrideProperty=psToolTip InitialValue=C_$ToolTipArrangeIcons }
479{ OverrideProperty=psDescription InitialValue=C_$DescArrangeIcons }
480{ OverrideProperty=psCategory InitialValue=C_$CategoryWindow}
481Class cCJArrangeIconsMenuItem is a cCJMenuItem
482
483 Procedure Construct_Object
484 Forward Send Construct_Object
485 Set psCaption to C_$CaptionArrangeIcons
486 Set psToolTip to C_$ToolTipArrangeIcons
487 Set psDescription to C_$DescArrangeIcons
488 Set psCategory to C_$CategoryWindow
489 End_Procedure
490
491 Procedure OnExecute Variant vCommandBarControl
492 Handle hoCommandBars hoClientArea
493 Get CommandBarSystemObject to hoCommandBars
494 Get ClientAreaObject of hoCommandBars to hoClientArea
495 If hoClientArea Begin
496 Send Arrange_Icons of hoClientArea
497 End
498 End_Procedure
499
500End_Class
501
502