home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / ActiveX / THBResize.ActiveX.v2.0.Win9xNT.Incl.Keymaker-CORE / data1.cab / Example_Files / VbDemo1 / frmDemo2.frm next >
Text File  |  1999-10-24  |  7KB  |  198 lines
  1. VERSION 5.00
  2. Object = "{5F697190-7457-11D3-930E-0000B4BDB148}#2.0#0"; "THBRes20.dll"
  3. Begin VB.Form frmDemo2 
  4.    Caption         =   "THBResize"
  5.    ClientHeight    =   2496
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   3600
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2496
  11.    ScaleWidth      =   3600
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.HScrollBar HScrollBottom 
  14.       Height          =   252
  15.       Left            =   480
  16.       TabIndex        =   4
  17.       Top             =   2160
  18.       Width           =   2652
  19.    End
  20.    Begin VB.HScrollBar HScrollTop 
  21.       Height          =   252
  22.       Left            =   480
  23.       TabIndex        =   3
  24.       Top             =   120
  25.       Width           =   2652
  26.    End
  27.    Begin VB.TextBox Text1 
  28.       BeginProperty Font 
  29.          Name            =   "Tahoma"
  30.          Size            =   7.8
  31.          Charset         =   0
  32.          Weight          =   400
  33.          Underline       =   0   'False
  34.          Italic          =   0   'False
  35.          Strikethrough   =   0   'False
  36.       EndProperty
  37.       Height          =   1572
  38.       Left            =   480
  39.       TabIndex        =   2
  40.       Text            =   "Text1"
  41.       Top             =   480
  42.       Width           =   2652
  43.    End
  44.    Begin VB.VScrollBar VScrollLeft 
  45.       Height          =   1572
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   480
  49.       Width           =   252
  50.    End
  51.    Begin VB.VScrollBar VScrollRight 
  52.       Height          =   1572
  53.       Left            =   3240
  54.       TabIndex        =   0
  55.       Top             =   480
  56.       Width           =   252
  57.    End
  58.    Begin THBResizeLibCtl.THBResize THBResize1 
  59.       Height          =   372
  60.       Left            =   0
  61.       TabIndex        =   5
  62.       Top             =   2040
  63.       Width           =   492
  64.       _cx             =   868
  65.       _cy             =   656
  66.       NoFontResizeAll =   0   'False
  67.       ResizeOnlyDirectChilds=   -1  'True
  68.       LimitFormWidthMin=   0
  69.       LimitFormWidthMax=   0
  70.       LimitFormHeightMin=   0
  71.       LimitFormHeightMax=   0
  72.       HideControlsSmallerThanWidth=   0
  73.       HideControlsSmallerThanHeight=   0
  74.       FontSizeRelativeToWidthAndHeight=   -1  'True
  75.       NumSpecialObjects=   5
  76.       BeginProperty SpecialObject0 {5F697192-7457-11D3-930E-0000B4BDB148} 
  77.          FixTop          =   1
  78.          FixBottom       =   2
  79.          FixLeft         =   1
  80.          FixRight        =   2
  81.          KeepWidth       =   0   'False
  82.          KeepHeight      =   0   'False
  83.          KeepAspect      =   0   'False
  84.          ControlName     =   "Text1"
  85.          NoFontResize    =   0   'False
  86.          Deactivate      =   0   'False
  87.          AddedAtDesignTime=   -1  'True
  88.          DeactivateAutoResize=   0   'False
  89.       EndProperty
  90.       BeginProperty SpecialObject1 {5F697192-7457-11D3-930E-0000B4BDB148} 
  91.          FixTop          =   1
  92.          FixBottom       =   2
  93.          FixLeft         =   2
  94.          FixRight        =   2
  95.          KeepWidth       =   0   'False
  96.          KeepHeight      =   0   'False
  97.          KeepAspect      =   0   'False
  98.          ControlName     =   "VScrollRight"
  99.          NoFontResize    =   0   'False
  100.          Deactivate      =   0   'False
  101.          AddedAtDesignTime=   -1  'True
  102.          DeactivateAutoResize=   0   'False
  103.       EndProperty
  104.       BeginProperty SpecialObject2 {5F697192-7457-11D3-930E-0000B4BDB148} 
  105.          FixTop          =   1
  106.          FixBottom       =   2
  107.          FixLeft         =   1
  108.          FixRight        =   1
  109.          KeepWidth       =   0   'False
  110.          KeepHeight      =   0   'False
  111.          KeepAspect      =   0   'False
  112.          ControlName     =   "VScrollLeft"
  113.          NoFontResize    =   0   'False
  114.          Deactivate      =   0   'False
  115.          AddedAtDesignTime=   -1  'True
  116.          DeactivateAutoResize=   0   'False
  117.       EndProperty
  118.       BeginProperty SpecialObject3 {5F697192-7457-11D3-930E-0000B4BDB148} 
  119.          FixTop          =   2
  120.          FixBottom       =   2
  121.          FixLeft         =   1
  122.          FixRight        =   2
  123.          KeepWidth       =   0   'False
  124.          KeepHeight      =   0   'False
  125.          KeepAspect      =   0   'False
  126.          ControlName     =   "HScrollBottom"
  127.          NoFontResize    =   0   'False
  128.          Deactivate      =   0   'False
  129.          AddedAtDesignTime=   -1  'True
  130.          DeactivateAutoResize=   0   'False
  131.       EndProperty
  132.       BeginProperty SpecialObject4 {5F697192-7457-11D3-930E-0000B4BDB148} 
  133.          FixTop          =   1
  134.          FixBottom       =   1
  135.          FixLeft         =   1
  136.          FixRight        =   2
  137.          KeepWidth       =   0   'False
  138.          KeepHeight      =   0   'False
  139.          KeepAspect      =   0   'False
  140.          ControlName     =   "HScrollTop"
  141.          NoFontResize    =   0   'False
  142.          Deactivate      =   0   'False
  143.          AddedAtDesignTime=   -1  'True
  144.          DeactivateAutoResize=   0   'False
  145.       EndProperty
  146.    End
  147. End
  148. Attribute VB_Name = "frmDemo2"
  149. Attribute VB_GlobalNameSpace = False
  150. Attribute VB_Creatable = False
  151. Attribute VB_PredeclaredId = True
  152. Attribute VB_Exposed = False
  153. Option Explicit
  154.  
  155. 'This example shows how to add Special Resize
  156. 'wishes manually
  157. Private Sub Form_Load()
  158.     Dim Extra As THBResizeSpecial
  159.     
  160.     Set Extra = New THBResizeSpecial
  161.     Extra.FixCompleteToLeft = True
  162.     Extra.FixTop = thbFixVertTop
  163.     Extra.FixBottom = thbFixVertBottom
  164.     Extra.hWnd = VScrollLeft.hWnd
  165.     THBResize1.AddResizeSpecial Extra
  166.     
  167.     Set Extra = New THBResizeSpecial
  168.     Extra.FixCompleteToRight = True
  169.     Extra.FixTop = thbFixVertTop
  170.     Extra.FixBottom = thbFixVertBottom
  171.     Extra.hWnd = VScrollRight.hWnd
  172.     THBResize1.AddResizeSpecial Extra
  173.     
  174.     Set Extra = New THBResizeSpecial
  175.     Extra.FixCompleteToTop = True
  176.     Extra.FixLeft = thbFixHorizLeft
  177.     Extra.FixRight = thbFixHorizRight
  178.     Extra.hWnd = HScrollTop.hWnd
  179.     THBResize1.AddResizeSpecial Extra
  180.     
  181.     Set Extra = New THBResizeSpecial
  182.     Extra.FixCompleteToBottom = True
  183.     Extra.FixLeft = thbFixHorizLeft
  184.     Extra.FixRight = thbFixHorizRight
  185.     Extra.hWnd = HScrollBottom.hWnd
  186.     THBResize1.AddResizeSpecial Extra
  187.     
  188.     Set Extra = New THBResizeSpecial
  189.     Extra.FixLeft = thbFixHorizLeft
  190.     Extra.FixRight = thbFixHorizRight
  191.     Extra.FixTop = thbFixVertTop
  192.     Extra.FixBottom = thbFixVertBottom
  193.     Extra.hWnd = Text1.hWnd
  194.     THBResize1.AddResizeSpecial Extra
  195.     
  196.     THBResize1.hWnd = Me.hWnd
  197. End Sub
  198.