Module cSigCJGlobalSettings.pkg

     1//==============================================================================
     2// Project      : SigCj - VDF Classes for Codejock
     3// File         : cSigCJGlobalSettings.pkg
     4// Description  : VDF Class for Codejock control
     5//
     6// Revision     : $Rev: 599 $
     7//                $Date: 2009-10-14 05:39:01 -0400 (Wed, 14 Oct 2009) $
     8//                $Author: pak $ Martin Pincott
     9// 
    10// Requirements : Visual DataFlex 12.1+
    11//                Codejock SuitePro - Version 12.0.0+
    12//
    13// Copyright    : (c) 2008 VDF SIG UK
    14//                Visual DataFlex Special Interest Group UK.
    15//                http://www.vdfsig.co.uk/
    16//                dev@vdfsig.co.uk
    17//
    18//                This file is part of SigCj.
    19//
    20//                SigCj is free software: you can redistribute it and/or modify
    21//                it under the terms of the GNU Lesser General Public License 
    22//                as published by the Free Software Foundation, either version 
    23//                2.1 of the License, or (at your option) any later version.
    24//
    25//                SigCj is distributed in the hope that it will be useful, but 
    26//                WITHOUT ANY WARRANTY; without even the implied warranty of
    27//                MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    28//                GNU Lesser General Public License for more details.
    29//
    30//                If you have the complete SigCj workspace then a copy of the  
    31//                GNU Lesser General Public License is in the Docs folder. If  
    32//                not, see <http://www.gnu.org/licenses/>.
    33//    
    34//==============================================================================
    35
    36Use SigCjW_Controls.pkg
    37Use cSigCJImage_Manager_Mixin.pkg
    38
    39Global_Variable Handle ghoSigCjGlobalSetting
    40Global_Variable Handle ghoSigCjPropEx
    41
    42Class cSigCjGlobalSetting is a cSigCjComSuiteControlsGlobalSettings
    43    Import_Class_Protocol cSigCJImage_Manager_Mixin 
    44    
    45    Procedure Construct_Object
    46        Forward Send Construct_Object
    47
    48        Set peAutoCreate to acAutoCreate
    49
    50        Send Initialise_Image_Manager_Mixin        
    51
    52        Move (Self) to ghoSigCjGlobalSetting
    53    End_Procedure  // Construct_Object
    54    
    55    { MethodType=Event }
    56    Procedure OnCreate
    57        Handle hoImageList 
    58        Variant vPropEx
    59
    60        //Handle hoGroups hoCollection hoImageList hoImageManager
    61        //Variant vGroups vImagelist
    62        
    63        Forward Send OnCreate
    64        
    65        // Connect to Imagelist
    66        Get phoImagelist to hoImageList
    67        If (hoImageList <> 0) Begin
    68            Send Create_Image_Manager // cSigCJImage_Manager_Mixin 
    69        End
    70        
    71        Send Load_Images        
    72
    73        //Create the Property Exchange Object
    74        Get Create U_cSigCjComPropExchange to ghoSigCjPropEx
    75        Get ComCreatePropExchange to vPropEx
    76        Set pvComObject of ghoSigCjPropEx to vPropEx
    77    End_Procedure  // OnCreate
    78
    79    Procedure AddItem 
    80    End_Procedure
    81
    82End_Class
    83
    84Object oSigCjGlobalSetting is a cSigCjGlobalSetting
    85End_Object
    86
    87//==============================================================================
    88//End of Package - cSigCJGlobalSettings.pkg
    89//==============================================================================
    90