EnglishРусский  

   ..

   addustr.g

   app.g

   btn.g

   btnpic.g

   comp.g

   ctrl.g

   ctrlci.g

   dialogs.g

   dlgbtns.g

   edit.g

   events.g

   fonts.g

   form.g

   gray.g

   grey.g

   header.g

   images.g

   label.g

   labeled.g

   locustr.g

   menu.g

   panel.g

   picture.g

   styles.g

   tab.g

   tabitem.g

   tabpage.g

   timer.g

   toolbar.g

   tray.g

   url.g

   vis.g

   viswin.g

The project is closed! You can look at a new scripting language. It is available on GitHub.
Also, try our open source cross-platform automation software.

Ads

Installer and installation software
Commercial and Freeware installers.

source\lib\vis\tabpage.g
  1 /******************************************************************************
  2 *
  3 * Copyright (C) 2004-2007, The Gentee Group. All rights reserved. 
  4 * This file is part of the Gentee open source project - http://www.gentee.com. 
  5 * 
  6 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT"). 
  7 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS 
  8 * ACCEPTANCE OF THE AGREEMENT.
  9 *
 10 * ID: vis.tabpage 24.07.07 0.0.A.
 11 *
 12 * Author: Alexander Krivonogov ( gentee )
 13 *
 14 ******************************************************************************/
 15 
 16 define {
 17 //TCM_FIRST               0x1300
 18 //TCM_INSERTITEMA  = 0x1307 //      (TCM_FIRST + 7)
 19 //TCM_INSERTITEMW  = 0x133E //      (TCM_FIRST + 62)
 20 }
 21 
 22 type vTabPage <inherit = vCtrl>
 23 {
 24    locustr pCaption
 25    uint    pPageIdx
 26 //   onevent onclick   
 27 }
 28 
 29 /*------------------------------------------------------------------------------
 30    Internal methods
 31 */
 32 method vTabPage.iUpdate()
 33 {
 34    if this.pOwner
 35    {
 36       eventuint eu
 37       eu.code = $e_update
 38       eu.val = &this
 39       //this.p_owner->vCtrl.event(eu)
 40    }
 41 }
 42 
 43 
 44 /*------------------------------------------------------------------------------
 45    Properties
 46 */
 47 /* Свойство ustr Caption - Get Set
 48 Устанавливает или получает заголовок закладки
 49 */
 50 property ustr vTabPage.Caption <result>
 51 {
 52    result = .pCaption.Value
 53 }
 54 
 55 property vTabPage.Caption( ustr val )
 56 {   
 57    .pCaption.Value = val
 58    .iUpdate()       
 59 }
 60 
 61 property uint vTabPage.Index
 62 {
 63    return this.TabOrder
 64 }
 65 
 66 property vTabPage.Index( uint val )
 67 {  
 68    if this.Owner && this.Owner->vCtrl.TypeIs( vTab )
 69    {
 70       uint i
 71       this.TabOrder = val      
 72       this.iUpdate()
 73       uint ctrls as this.Owner->vCtrl.ctrls    
 74       fornum i, *ctrls
 75       {
 76          if ctrls[i]->vCtrl.Visible : break
 77       }
 78       this.Owner->vTab.CurPage = i      
 79    }      
 80 }
 81 /*
 82 method uint vTabPage.defproc( eventn ev )
 83 {
 84    switch ev.code
 85    {
 86       case $e_poschanging
 87       {         
 88          if this.owner.typeis( vtab )
 89          {           
 90             uint evp as ev->eventpos         
 91             evp.loc = this.owner->vtab.adjloc                     
 92             if evp.move //&& evp.loc != this.loc
 93             {
 94                this.onposchanging.run( evp )            
 95                SetWindowPos( this.hwnd, 0, 
 96                      evp.loc.x, evp.loc.y, evp.loc.width, evp.loc.height, 
 97                      $SWP_NOACTIVATE | $SWP_NOZORDER )            
 98                RedrawWindow( this.hwnd, 0->RECT, 0, 0x507)
 99             }
100          }
101          return 0      
102       }
103    }  
104    return this->vctrl.defproc( ev )   
105 }*/
106 
107 
108 /*------------------------------------------------------------------------------
109    Virtual Methods
110 */
111 
112 method vTabPage vTabPage.mCreateWin <alias=vTabPage_mCreateWin>()
113 {
114    this.CreateWin( "GVForm".ustr(), 0, 
115                      $WS_CHILD | $WS_CLIPSIBLINGS | $WS_CLIPCHILDREN )
116    this->vCtrl.mCreateWin()
117    SendMessage( this.hwnd, $WM_SETFONT, GetStockObject( $DEFAULT_GUI_FONT ),0 )
118    return this
119 }
120 
121 
122 /*------------------------------------------------------------------------------
123    Registration
124 */
125 method vTabPage vTabPage.init( )
126 {    
127    this.pTypeId = vTabPage
128    
129    this.pCanContain = 1
130    this.pVisible = 0
131    return this 
132 }  
133 
134 method vTabPage.getprops( uint typeid, compMan cm )
135 {
136    this->vCtrl.getprops( typeid, cm)
137   /* cm.addprops( typeid, 
138 %{ "caption"     , str, 0})*/                         
139 }
140 /*
141 method vTabPage.getevents()
142 {
143    %{"onclick"}
144 }
145 */
146 
147 func init_vTabPage <entry>()
148 {
149    regcomp( vTabPage, "vTabPage", vCtrl, $vCtrl_last,
150       %{ %{$mCreateWin, vTabPage_mCreateWin }},
151       0->collection )
152 } 
153