Module cCJAboutMenuItem.pkg

     1Use cCJCommandBarSystem.pkg
     2Use LanguageText.pkg
     3
     4// It is expected that if you use this class that you provide an about object that is
     5// activated via activate_about such as DfAbout.pkg. We don't use this for you automatically
     6// because you may wish to create your own custom about package.
     7
     8{ OverrideProperty=psCaption InitialValue=C_$CaptionAbout }
     9{ OverrideProperty=psToolTip InitialValue=C_$ToolTipAbout }
    10{ OverrideProperty=psDescription InitialValue=C_$DescAbout }
    11{ OverrideProperty=psImage InitialValue="ActionAbout.ico" }
    12{ OverrideProperty=psCategory InitialValue=C_$CategoryHelp}
    13Class cCJAboutMenuItem is a cCJMenuItem    
    14
    15    Procedure Construct_Object
    16        Forward Send Construct_Object
    17        Set psCaption to C_$CaptionAbout
    18        Set psDescription to C_$ToolTipAbout
    19        Set psToolTip to C_$DescAbout
    20        Set psImage to "ActionAbout.ico"
    21        Set psCategory to C_$CategoryHelp
    22    End_Procedure
    23    
    24    Procedure OnExecute Variant vCommandBarControl
    25        Handle hoCommandBars hoClientArea
    26        Get CommandBarSystemObject to hoCommandBars
    27        Get ClientAreaObject of hoCommandBars to hoClientArea
    28        If hoClientArea Begin
    29            Send Activate_About of hoClientArea
    30        End
    31    End_Procedure
    32
    33End_Class
    34
    35
    36