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 / frmKeepWidth.frm < prev    next >
Text File  |  1999-10-24  |  6KB  |  184 lines
  1. VERSION 5.00
  2. Object = "{5F697190-7457-11D3-930E-0000B4BDB148}#2.0#0"; "THBRes20.dll"
  3. Begin VB.Form frmKeepWidth 
  4.    Caption         =   "Keep Original Width"
  5.    ClientHeight    =   2724
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   3540
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2724
  11.    ScaleWidth      =   3540
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.TextBox Text4 
  14.       BeginProperty Font 
  15.          Name            =   "Tahoma"
  16.          Size            =   7.8
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   372
  24.       Left            =   1200
  25.       TabIndex        =   4
  26.       Text            =   "keep aspect"
  27.       Top             =   1560
  28.       Width           =   1092
  29.    End
  30.    Begin VB.TextBox Text3 
  31.       BeginProperty Font 
  32.          Name            =   "Tahoma"
  33.          Size            =   7.8
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   372
  41.       Left            =   2280
  42.       TabIndex        =   2
  43.       Text            =   "Text3"
  44.       Top             =   1080
  45.       Width           =   1092
  46.    End
  47.    Begin VB.TextBox Text2 
  48.       BeginProperty Font 
  49.          Name            =   "Tahoma"
  50.          Size            =   7.8
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   372
  58.       Left            =   1200
  59.       TabIndex        =   1
  60.       Text            =   "Text2"
  61.       Top             =   600
  62.       Width           =   1092
  63.    End
  64.    Begin VB.TextBox Text1 
  65.       BeginProperty Font 
  66.          Name            =   "Tahoma"
  67.          Size            =   7.8
  68.          Charset         =   0
  69.          Weight          =   400
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   372
  75.       Left            =   120
  76.       TabIndex        =   0
  77.       Text            =   "Text1"
  78.       Top             =   120
  79.       Width           =   1092
  80.    End
  81.    Begin THBResizeLibCtl.THBResize THBResize1 
  82.       Height          =   252
  83.       Left            =   3120
  84.       TabIndex        =   5
  85.       Top             =   2400
  86.       Width           =   372
  87.       _cx             =   656
  88.       _cy             =   444
  89.       NoFontResizeAll =   0   'False
  90.       ResizeOnlyDirectChilds=   -1  'True
  91.       LimitFormWidthMin=   0
  92.       LimitFormWidthMax=   0
  93.       LimitFormHeightMin=   0
  94.       LimitFormHeightMax=   0
  95.       HideControlsSmallerThanWidth=   0
  96.       HideControlsSmallerThanHeight=   0
  97.       FontSizeRelativeToWidthAndHeight=   -1  'True
  98.       NumSpecialObjects=   4
  99.       BeginProperty SpecialObject0 {5F697192-7457-11D3-930E-0000B4BDB148} 
  100.          FixTop          =   0
  101.          FixBottom       =   0
  102.          FixLeft         =   0
  103.          FixRight        =   0
  104.          KeepWidth       =   -1  'True
  105.          KeepHeight      =   0   'False
  106.          KeepAspect      =   0   'False
  107.          ControlName     =   "Text1"
  108.          NoFontResize    =   0   'False
  109.          Deactivate      =   0   'False
  110.          AddedAtDesignTime=   -1  'True
  111.          DeactivateAutoResize=   0   'False
  112.       EndProperty
  113.       BeginProperty SpecialObject1 {5F697192-7457-11D3-930E-0000B4BDB148} 
  114.          FixTop          =   0
  115.          FixBottom       =   0
  116.          FixLeft         =   0
  117.          FixRight        =   0
  118.          KeepWidth       =   -1  'True
  119.          KeepHeight      =   0   'False
  120.          KeepAspect      =   0   'False
  121.          ControlName     =   "Text2"
  122.          NoFontResize    =   0   'False
  123.          Deactivate      =   0   'False
  124.          AddedAtDesignTime=   -1  'True
  125.          DeactivateAutoResize=   0   'False
  126.       EndProperty
  127.       BeginProperty SpecialObject2 {5F697192-7457-11D3-930E-0000B4BDB148} 
  128.          FixTop          =   0
  129.          FixBottom       =   0
  130.          FixLeft         =   0
  131.          FixRight        =   0
  132.          KeepWidth       =   -1  'True
  133.          KeepHeight      =   0   'False
  134.          KeepAspect      =   0   'False
  135.          ControlName     =   "Text3"
  136.          NoFontResize    =   0   'False
  137.          Deactivate      =   0   'False
  138.          AddedAtDesignTime=   -1  'True
  139.          DeactivateAutoResize=   0   'False
  140.       EndProperty
  141.       BeginProperty SpecialObject3 {5F697192-7457-11D3-930E-0000B4BDB148} 
  142.          FixTop          =   0
  143.          FixBottom       =   0
  144.          FixLeft         =   0
  145.          FixRight        =   0
  146.          KeepWidth       =   -1  'True
  147.          KeepHeight      =   0   'False
  148.          KeepAspect      =   -1  'True
  149.          ControlName     =   "Text4"
  150.          NoFontResize    =   0   'False
  151.          Deactivate      =   0   'False
  152.          AddedAtDesignTime=   -1  'True
  153.          DeactivateAutoResize=   0   'False
  154.       EndProperty
  155.    End
  156.    Begin VB.Label Label1 
  157.       Caption         =   "They all keep their original widths"
  158.       BeginProperty Font 
  159.          Name            =   "Tahoma"
  160.          Size            =   7.8
  161.          Charset         =   0
  162.          Weight          =   400
  163.          Underline       =   0   'False
  164.          Italic          =   0   'False
  165.          Strikethrough   =   0   'False
  166.       EndProperty
  167.       Height          =   492
  168.       Left            =   120
  169.       TabIndex        =   3
  170.       Top             =   2040
  171.       Width           =   2292
  172.    End
  173. End
  174. Attribute VB_Name = "frmKeepWidth"
  175. Attribute VB_GlobalNameSpace = False
  176. Attribute VB_Creatable = False
  177. Attribute VB_PredeclaredId = True
  178. Attribute VB_Exposed = False
  179. Option Explicit
  180.  
  181. Private Sub Form_Load()
  182.     THBResize1.hWnd = Me.hWnd
  183. End Sub
  184.