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 / frmResizeFont.frm < prev    next >
Text File  |  1999-10-24  |  6KB  |  190 lines
  1. VERSION 5.00
  2. Object = "{5F697190-7457-11D3-930E-0000B4BDB148}#2.0#0"; "THBRes20.dll"
  3. Begin VB.Form frmResizeFont 
  4.    Caption         =   "Resize Font"
  5.    ClientHeight    =   1920
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   3456
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1920
  11.    ScaleWidth      =   3456
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.TextBox Text6 
  14.       BeginProperty Font 
  15.          Name            =   "Arial"
  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            =   2280
  25.       TabIndex        =   5
  26.       Text            =   "Resize me"
  27.       Top             =   720
  28.       Width           =   972
  29.    End
  30.    Begin VB.TextBox Text5 
  31.       BeginProperty Font 
  32.          Name            =   "Arial"
  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        =   4
  43.       Text            =   "Resize me"
  44.       Top             =   240
  45.       Width           =   972
  46.    End
  47.    Begin VB.TextBox Text4 
  48.       BeginProperty Font 
  49.          Name            =   "Arial"
  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        =   3
  60.       Text            =   "Don't touch my font"
  61.       Top             =   720
  62.       Width           =   972
  63.    End
  64.    Begin VB.TextBox Text3 
  65.       BeginProperty Font 
  66.          Name            =   "Arial"
  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            =   1200
  76.       TabIndex        =   2
  77.       Text            =   "Don't touch my font"
  78.       Top             =   240
  79.       Width           =   972
  80.    End
  81.    Begin VB.TextBox Text2 
  82.       BeginProperty Font 
  83.          Name            =   "Arial"
  84.          Size            =   7.8
  85.          Charset         =   0
  86.          Weight          =   400
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       Height          =   372
  92.       Left            =   120
  93.       TabIndex        =   1
  94.       Text            =   "Resize me"
  95.       Top             =   720
  96.       Width           =   972
  97.    End
  98.    Begin VB.TextBox Text1 
  99.       BeginProperty Font 
  100.          Name            =   "Arial"
  101.          Size            =   7.8
  102.          Charset         =   0
  103.          Weight          =   400
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   372
  109.       Left            =   120
  110.       TabIndex        =   0
  111.       Text            =   "Resize me"
  112.       Top             =   240
  113.       Width           =   972
  114.    End
  115.    Begin THBResizeLibCtl.THBResize THBResize1 
  116.       Height          =   372
  117.       Left            =   120
  118.       TabIndex        =   7
  119.       Top             =   1200
  120.       Width           =   372
  121.       _cx             =   656
  122.       _cy             =   656
  123.       NoFontResizeAll =   0   'False
  124.       ResizeOnlyDirectChilds=   -1  'True
  125.       LimitFormWidthMin=   0
  126.       LimitFormWidthMax=   0
  127.       LimitFormHeightMin=   0
  128.       LimitFormHeightMax=   0
  129.       HideControlsSmallerThanWidth=   0
  130.       HideControlsSmallerThanHeight=   0
  131.       FontSizeRelativeToWidthAndHeight=   -1  'True
  132.       NumSpecialObjects=   2
  133.       BeginProperty SpecialObject0 {5F697192-7457-11D3-930E-0000B4BDB148} 
  134.          FixTop          =   0
  135.          FixBottom       =   0
  136.          FixLeft         =   0
  137.          FixRight        =   0
  138.          KeepWidth       =   0   'False
  139.          KeepHeight      =   0   'False
  140.          KeepAspect      =   0   'False
  141.          ControlName     =   "Text3"
  142.          NoFontResize    =   -1  'True
  143.          Deactivate      =   0   'False
  144.          AddedAtDesignTime=   -1  'True
  145.          DeactivateAutoResize=   0   'False
  146.       EndProperty
  147.       BeginProperty SpecialObject1 {5F697192-7457-11D3-930E-0000B4BDB148} 
  148.          FixTop          =   0
  149.          FixBottom       =   0
  150.          FixLeft         =   0
  151.          FixRight        =   0
  152.          KeepWidth       =   0   'False
  153.          KeepHeight      =   0   'False
  154.          KeepAspect      =   0   'False
  155.          ControlName     =   "Text4"
  156.          NoFontResize    =   -1  'True
  157.          Deactivate      =   0   'False
  158.          AddedAtDesignTime=   -1  'True
  159.          DeactivateAutoResize=   0   'False
  160.       EndProperty
  161.    End
  162.    Begin VB.Label Label1 
  163.       Caption         =   "Some controls change their font size and some do not"
  164.       BeginProperty Font 
  165.          Name            =   "Tahoma"
  166.          Size            =   9
  167.          Charset         =   0
  168.          Weight          =   400
  169.          Underline       =   0   'False
  170.          Italic          =   0   'False
  171.          Strikethrough   =   0   'False
  172.       EndProperty
  173.       Height          =   732
  174.       Left            =   600
  175.       TabIndex        =   6
  176.       Top             =   1200
  177.       Width           =   2652
  178.    End
  179. End
  180. Attribute VB_Name = "frmResizeFont"
  181. Attribute VB_GlobalNameSpace = False
  182. Attribute VB_Creatable = False
  183. Attribute VB_PredeclaredId = True
  184. Attribute VB_Exposed = False
  185. Option Explicit
  186.  
  187. Private Sub Form_Load()
  188.     THBResize1.hWnd = Me.hWnd
  189. End Sub
  190.