Module cSigCJTabWorkspace.pkg

     1//==============================================================================
     2// Project      : SigCj - VDF Classes for Codejock
     3// File         : cSigCJTabWorkspace.pkg
     4// Description  : VDF Class for Codejock control
     5//
     6// Revision     : $Rev: 599 $
     7//                $Date: 2009-10-14 10:39:01 +0100 (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 cCJCommandBars.pkg
    37Use cSigCJMethods_Mixin.pkg
    38
    39Class cSigCJTabWorkspace is a cCJTabWorkspace
    40    Import_Class_Protocol cSigCJMethods_Mixin
    41    
    42    Procedure OnComNewItem Variant llItem
    43        Handle hoClient hoFirstView
    44        Integer iSize
    45        
    46        Get Client_Id to hoClient 
    47        
    48        Get Next_Mdi_Dialog of hoClient True to hoFirstView  
    49        While (Object_Id(hoFirstView) and (ComItemCount(Self) = 1))
    50            If (Active_State(hoFirstView)) Begin
    51                Get Size of hoFirstView to iSize
    52                
    53                Send Page_Object to hoFirstView True
    54
    55                Set Size of hoFirstView to (Hi(iSize)) (Low(iSize))
    56                Send Adjust_Logicals of hoFirstView
    57            End
    58            Get Next_Mdi_Dialog of hoClient False to hoFirstView        
    59        Loop
    60    End_Procedure
    61
    62End_Class
    63
    64//==============================================================================
    65//End of Package - cSigCJTabWorkspace.pkg
    66//==============================================================================
    67