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 / frmMain.frm < prev    next >
Text File  |  1999-10-24  |  10KB  |  319 lines
  1. VERSION 5.00
  2. Object = "{5F697190-7457-11D3-930E-0000B4BDB148}#2.0#0"; "THBRes20.dll"
  3. Begin VB.Form frmMain 
  4.    Caption         =   "THBResize"
  5.    ClientHeight    =   1920
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   6792
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1920
  11.    ScaleWidth      =   6792
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton butNewToVer2 
  14.       BackColor       =   &H0080FFFF&
  15.       Caption         =   "New to Version 2.0"
  16.       BeginProperty Font 
  17.          Name            =   "Tahoma"
  18.          Size            =   9
  19.          Charset         =   0
  20.          Weight          =   400
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   492
  26.       Left            =   5040
  27.       Style           =   1  'Graphical
  28.       TabIndex        =   12
  29.       Top             =   1320
  30.       Width           =   1572
  31.    End
  32.    Begin VB.CommandButton butExclude 
  33.       BackColor       =   &H0080FFFF&
  34.       Caption         =   "Exclude"
  35.       BeginProperty Font 
  36.          Name            =   "Tahoma"
  37.          Size            =   9
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   492
  45.       Left            =   3360
  46.       Style           =   1  'Graphical
  47.       TabIndex        =   11
  48.       Top             =   1320
  49.       Width           =   1572
  50.    End
  51.    Begin VB.CommandButton butDemo 
  52.       BackColor       =   &H0080FFFF&
  53.       Caption         =   "Demo"
  54.       BeginProperty Font 
  55.          Name            =   "Tahoma"
  56.          Size            =   9
  57.          Charset         =   0
  58.          Weight          =   400
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   492
  64.       Left            =   5040
  65.       Style           =   1  'Graphical
  66.       TabIndex        =   9
  67.       Top             =   720
  68.       Width           =   1572
  69.    End
  70.    Begin VB.CommandButton butKeepAspect 
  71.       BackColor       =   &H0080FFFF&
  72.       Caption         =   "Keep Aspect"
  73.       BeginProperty Font 
  74.          Name            =   "Tahoma"
  75.          Size            =   9
  76.          Charset         =   0
  77.          Weight          =   400
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   492
  83.       Left            =   1680
  84.       Style           =   1  'Graphical
  85.       TabIndex        =   8
  86.       Top             =   1320
  87.       Width           =   1572
  88.    End
  89.    Begin VB.CommandButton butKeepHeight 
  90.       BackColor       =   &H0080FFFF&
  91.       Caption         =   "Keep Original Height"
  92.       BeginProperty Font 
  93.          Name            =   "Tahoma"
  94.          Size            =   9
  95.          Charset         =   0
  96.          Weight          =   400
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       Height          =   492
  102.       Left            =   1680
  103.       Style           =   1  'Graphical
  104.       TabIndex        =   7
  105.       Top             =   720
  106.       Width           =   1572
  107.    End
  108.    Begin VB.CommandButton butFrames 
  109.       BackColor       =   &H0080FFFF&
  110.       Caption         =   "Frames"
  111.       BeginProperty Font 
  112.          Name            =   "Tahoma"
  113.          Size            =   9
  114.          Charset         =   0
  115.          Weight          =   400
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       Height          =   492
  121.       Left            =   5040
  122.       Style           =   1  'Graphical
  123.       TabIndex        =   6
  124.       Top             =   120
  125.       Width           =   1572
  126.    End
  127.    Begin VB.CommandButton butFixVertBorders 
  128.       BackColor       =   &H0080FFFF&
  129.       Caption         =   "Fix Vert. Borders"
  130.       BeginProperty Font 
  131.          Name            =   "Tahoma"
  132.          Size            =   9
  133.          Charset         =   0
  134.          Weight          =   400
  135.          Underline       =   0   'False
  136.          Italic          =   0   'False
  137.          Strikethrough   =   0   'False
  138.       EndProperty
  139.       Height          =   492
  140.       Left            =   3360
  141.       Style           =   1  'Graphical
  142.       TabIndex        =   5
  143.       Top             =   720
  144.       Width           =   1572
  145.    End
  146.    Begin VB.CommandButton butFixHorzBorders 
  147.       BackColor       =   &H0080FFFF&
  148.       Caption         =   "Fix Horiz. Borders"
  149.       BeginProperty Font 
  150.          Name            =   "Tahoma"
  151.          Size            =   9
  152.          Charset         =   0
  153.          Weight          =   400
  154.          Underline       =   0   'False
  155.          Italic          =   0   'False
  156.          Strikethrough   =   0   'False
  157.       EndProperty
  158.       Height          =   492
  159.       Left            =   3360
  160.       Style           =   1  'Graphical
  161.       TabIndex        =   4
  162.       Top             =   120
  163.       Width           =   1572
  164.    End
  165.    Begin VB.CommandButton butKeepWidth 
  166.       BackColor       =   &H0080FFFF&
  167.       Caption         =   "Keep Original Width"
  168.       BeginProperty Font 
  169.          Name            =   "Tahoma"
  170.          Size            =   9
  171.          Charset         =   0
  172.          Weight          =   400
  173.          Underline       =   0   'False
  174.          Italic          =   0   'False
  175.          Strikethrough   =   0   'False
  176.       EndProperty
  177.       Height          =   492
  178.       Left            =   1680
  179.       Style           =   1  'Graphical
  180.       TabIndex        =   3
  181.       Top             =   120
  182.       Width           =   1572
  183.    End
  184.    Begin VB.CommandButton butResizeFont 
  185.       BackColor       =   &H0080FFFF&
  186.       Caption         =   "Resize Font"
  187.       BeginProperty Font 
  188.          Name            =   "Tahoma"
  189.          Size            =   9
  190.          Charset         =   0
  191.          Weight          =   400
  192.          Underline       =   0   'False
  193.          Italic          =   0   'False
  194.          Strikethrough   =   0   'False
  195.       EndProperty
  196.       Height          =   492
  197.       Left            =   120
  198.       Style           =   1  'Graphical
  199.       TabIndex        =   2
  200.       Top             =   1320
  201.       Width           =   1332
  202.    End
  203.    Begin VB.CommandButton butHideSmall 
  204.       BackColor       =   &H0080FFFF&
  205.       Caption         =   "Hide Small Controls"
  206.       BeginProperty Font 
  207.          Name            =   "Tahoma"
  208.          Size            =   9
  209.          Charset         =   0
  210.          Weight          =   400
  211.          Underline       =   0   'False
  212.          Italic          =   0   'False
  213.          Strikethrough   =   0   'False
  214.       EndProperty
  215.       Height          =   492
  216.       Left            =   120
  217.       Style           =   1  'Graphical
  218.       TabIndex        =   1
  219.       Top             =   720
  220.       Width           =   1332
  221.    End
  222.    Begin VB.CommandButton butLimitSize 
  223.       BackColor       =   &H0080FFFF&
  224.       Caption         =   "Limit Formsize"
  225.       BeginProperty Font 
  226.          Name            =   "Tahoma"
  227.          Size            =   9
  228.          Charset         =   0
  229.          Weight          =   400
  230.          Underline       =   0   'False
  231.          Italic          =   0   'False
  232.          Strikethrough   =   0   'False
  233.       EndProperty
  234.       Height          =   492
  235.       Left            =   120
  236.       Style           =   1  'Graphical
  237.       TabIndex        =   0
  238.       Top             =   120
  239.       Width           =   1332
  240.    End
  241.    Begin THBResizeLibCtl.THBResize THBResize1 
  242.       Height          =   252
  243.       Left            =   0
  244.       TabIndex        =   10
  245.       Top             =   1680
  246.       Width           =   372
  247.       _cx             =   656
  248.       _cy             =   444
  249.       NoFontResizeAll =   0   'False
  250.       ResizeOnlyDirectChilds=   -1  'True
  251.       LimitFormWidthMin=   0
  252.       LimitFormWidthMax=   0
  253.       LimitFormHeightMin=   0
  254.       LimitFormHeightMax=   0
  255.       HideControlsSmallerThanWidth=   0
  256.       HideControlsSmallerThanHeight=   0
  257.       FontSizeRelativeToWidthAndHeight=   0   'False
  258.       NumSpecialObjects=   0
  259.    End
  260. End
  261. Attribute VB_Name = "frmMain"
  262. Attribute VB_GlobalNameSpace = False
  263. Attribute VB_Creatable = False
  264. Attribute VB_PredeclaredId = True
  265. Attribute VB_Exposed = False
  266. Option Explicit
  267.  
  268. Private Sub butDemo_Click()
  269.     frmDemo2.Show vbModal, Me
  270. End Sub
  271.  
  272. Private Sub butExclude_Click()
  273.     frmExclude.Show vbModal, Me
  274. End Sub
  275.  
  276. Private Sub butFixHorzBorders_Click()
  277.     frmFixHorizBorders.Show vbModal, Me
  278. End Sub
  279.  
  280. Private Sub butFixVertBorders_Click()
  281.     frmFixVertBorders.Show vbModal, Me
  282. End Sub
  283.  
  284. Private Sub butFrames_Click()
  285.     frmFrames.Show vbModal, Me
  286. End Sub
  287.  
  288. Private Sub butHideSmall_Click()
  289.     frmHideSmallControls.Show vbModal, Me
  290. End Sub
  291.  
  292. Private Sub butKeepAspect_Click()
  293.     frmKeepAspect.Show vbModal, Me
  294. End Sub
  295.  
  296. Private Sub butKeepHeight_Click()
  297.     frmKeepHeight.Show vbModal, Me
  298. End Sub
  299.  
  300. Private Sub butKeepWidth_Click()
  301.     frmKeepWidth.Show vbModal, Me
  302. End Sub
  303.  
  304. Private Sub butLimitSize_Click()
  305.     frmLimitSize.Show vbModal, Me
  306. End Sub
  307.  
  308. Private Sub butNewToVer2_Click()
  309.     frmNewToVersion2.Show vbModal, Me
  310. End Sub
  311.  
  312. Private Sub butResizeFont_Click()
  313.     frmResizeFont.Show vbModal, Me
  314. End Sub
  315.  
  316. Private Sub Form_Load()
  317.     THBResize1.hWnd = Me.hWnd
  318. End Sub
  319.