Module Codejock Order Sample.src

     1Use OrderPrecompile.pkg
     2Use cCJCommandBarSystem.pkg
     3
     4Define C_Pane_Property_Grid for 1
     5Define C_Pane_Task_Panel    for 2
     6Define C_Pane_Short_Cut_Bar for 3
     7
     8Object oHtmlHelp is a cHtmlHelp
     9End_Object
    10
    11Object oApplication is a cApplication
    12    Set psCompany to "Special Interest Group UK"
    13    Set psProduct to "Codejock Examples"
    14    Set psVersion to "15.1"
    15    Set psProgram to "Order"
    16    Set psHelpFile to "SigCj_Help.chm"
    17    Set peHelpType to htHtmlHelp  
    18End_Object
    19
    20#IF (!@ >= 150)
    21Use cToolTipController.pkg
    22Object oToolTip is a cToolTipController
    23    Set pbBalloonStyle to True 
    24    Move Self to ghoToolTipController
    25End_Object
    26#ENDIF
    27 
    28Object oSkin is a cCJSkinFramework
    29    Set psSkinFile to "Office2007.cjstyles"
    30    Set psSkinIni to "NormalBlue.ini"
    31End_Object
    32 
    33Use oEditContextMenu.pkg
    34Use oDEOEditContextMenu.pkg
    35
    36Object oMain is a Panel
    37    Set Label to "Codejock Order Entry Sample Application"
    38    Set Location to 6 11
    39    Set Size to 300 450
    40  
    41    //Include the desired CommandBarSystem (Style)  
    42    // #Include oCommandBarSystem_Ribbon.pkg
    43    #Include oCommandBarSystem_Standard.pkg
    44    
    45    Use oPropertyGrid_Container.pkg
    46    Use oTaskPanel_Container.pkg
    47    Use oShortCutBar_Container.pkg
    48    
    49    Object oDockingManager is a cSigCjDockingManager
    50        Set pbPX_Save_Layout to True
    51        Set psPX_Tag to "Docking Manager"
    52//        #IF (SigCj_Codejock_Version < 150001) 
    53//            Set peVisualTheme to OLEThemeOffice2007
    54//        #ELSE
    55//            Set peVisualTheme to OLEThemeResource
    56//        #ENDIF 
    57    
    58        Object oPropertyGrid_Pane is a cSigCjDockingPane
    59            Set psTitle         to "Property Grid"
    60            Set psImage         to "Configure_16.ico"
    61            Set phoClientObject to (oPropertyGrid_Container(Self))
    62            Set peLocation      to OLEDockRightOf
    63            Set piWidth         to 150
    64            Set piId            to C_Pane_Property_Grid
    65        End_Object
    66        
    67        Object oTaskPanel_Pane is a cSigCjDockingPane
    68            Set psTitle         to "Task Panel"
    69            Set psImage         to "ActionTileVertically.ico"
    70            Set phoCLientObject to (oTaskPanel_Container(Self))
    71            Set peClientType    to eDP_ActiveX
    72            Set piWidth         to 150
    73            Set piId            to C_Pane_Task_Panel
    74        End_Object
    75
    76        Object oShortCutBar_Pane is a cSigCjDockingPane
    77            Set psTitle         to "Short Cut Bar"
    78            Set psImage         to "WindowSidebar_16.ico"
    79            Set phoCLientObject to (oShortCutBar_Container(Self))
    80            Set piWidth         to 150
    81            Set piId            to C_Pane_Short_Cut_Bar
    82        End_Object
    83
    84    End_Object // oDockingPanel 
    85
    86    Object oClientArea is a ClientArea
    87        Set Color to clWhite
    88        Set Bitmap to "logo.bmp"
    89        Set Bitmap_Style to Bitmap_Center
    90        
    91        Use oSigCJTaskDialog.pkg
    92        
    93        Use Order\Customer.vw
    94        Use Order\Invt.vw
    95        Use Order\Order.vw
    96        Use Order\SalesP.vw
    97        Use Order\Vendor.vw
    98
    99        On_Key Key_Ctrl+Key_1 Send Activate_oCustomerView
   100        On_Key Key_Ctrl+Key_2 Send Activate_oInventoryView
   101        On_Key Key_Ctrl+Key_3 Send Activate_oOrderEntryView
   102        On_Key Key_Ctrl+Key_4 Send Activate_oSalesPersonView
   103        On_Key Key_Ctrl+Key_5 Send Activate_oVendorView
   104
   105        Use StdAbout.pkg
   106        Use SigCJPushButtonDemo.vw
   107        Use SigCJCheckBoxDemo.vw
   108        Use SigCJTaskDialogDemo.vw
   109        Use SigCJMonthCalendarDemo.vw
   110        Use SigCJPopupControlDemo.vw
   111        Use SigCJLabelControlDemo.vw
   112        Use "SigCJReportControlDemo - Text.vw"
   113        Use "SigCJReportControlDemo - Table.vw"
   114        Use "SigCJReportControlDemo - SQL.vw"
   115        Use "SigCJReportControlDemo - TreeView.vw"
   116        Use Calendar_Special_Dates.vw
   117        Use Calendar_Categories.vw
   118        Use Calendar_Resources.vw
   119        Use SigCJStandardCalendarDemo.vw
   120        Use SigCJBespokeCalendarDemo.vw
   121        Use SigCJResourceCalendarDemo.vw
   122        Use SigCJProgressBarDemo_View.vw
   123        Use "SigCJTreeViewDemo - Simple.vw"
   124        Use "SigCJTreeViewDemo - Sales Orders .vw"
   125    
   126        Procedure Activate_About
   127            Send DoAbout "Codejock Order Entry Sample Application" "15.1.0.0" "Copyright (c) 2010 Special Interest Group UK" "Special Interest Group UK" ""
   128        End_Procedure
   129    
   130    End_Object
   131
   132End_Object
   133
   134// open Order Entry view on application startup
   135// Send Activate_oOrderEntryView of (oClientArea(oMain))
   136Start_UI
   137