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 / frmFrames.frm < prev    next >
Text File  |  1999-10-24  |  14KB  |  417 lines
  1. VERSION 5.00
  2. Object = "{5F697190-7457-11D3-930E-0000B4BDB148}#2.0#0"; "THBRes20.dll"
  3. Begin VB.Form frmFrames 
  4.    Caption         =   "Frames"
  5.    ClientHeight    =   3756
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   5892
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3756
  11.    ScaleWidth      =   5892
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.Frame Frame1 
  14.       Caption         =   "Frame1"
  15.       BeginProperty Font 
  16.          Name            =   "Tahoma"
  17.          Size            =   7.8
  18.          Charset         =   0
  19.          Weight          =   700
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   1812
  25.       Left            =   120
  26.       TabIndex        =   0
  27.       Top             =   120
  28.       Width           =   2532
  29.       Begin THBResizeLibCtl.THBResize THBResize2 
  30.          Height          =   252
  31.          Left            =   0
  32.          TabIndex        =   16
  33.          Top             =   1560
  34.          Width           =   372
  35.          _cx             =   656
  36.          _cy             =   444
  37.          NoFontResizeAll =   0   'False
  38.          ResizeOnlyDirectChilds=   -1  'True
  39.          LimitFormWidthMin=   0
  40.          LimitFormWidthMax=   0
  41.          LimitFormHeightMin=   0
  42.          LimitFormHeightMax=   0
  43.          HideControlsSmallerThanWidth=   0
  44.          HideControlsSmallerThanHeight=   0
  45.          FontSizeRelativeToWidthAndHeight=   -1  'True
  46.          NumSpecialObjects=   0
  47.       End
  48.       Begin VB.Shape Shape6 
  49.          BorderColor     =   &H0000FF00&
  50.          BorderWidth     =   5
  51.          Height          =   612
  52.          Left            =   1800
  53.          Shape           =   4  'Rounded Rectangle
  54.          Top             =   1080
  55.          Width           =   612
  56.       End
  57.       Begin VB.Shape Shape5 
  58.          FillColor       =   &H00FFFF00&
  59.          FillStyle       =   0  'Solid
  60.          Height          =   612
  61.          Left            =   840
  62.          Top             =   1080
  63.          Width           =   852
  64.       End
  65.       Begin VB.Shape Shape4 
  66.          BorderStyle     =   0  'Transparent
  67.          FillColor       =   &H00FF00FF&
  68.          FillStyle       =   0  'Solid
  69.          Height          =   612
  70.          Left            =   120
  71.          Shape           =   3  'Circle
  72.          Top             =   1080
  73.          Width           =   612
  74.       End
  75.       Begin VB.Shape Shape3 
  76.          BorderWidth     =   2
  77.          FillColor       =   &H0000FF00&
  78.          FillStyle       =   0  'Solid
  79.          Height          =   612
  80.          Left            =   1800
  81.          Shape           =   5  'Rounded Square
  82.          Top             =   240
  83.          Width           =   612
  84.       End
  85.       Begin VB.Shape Shape2 
  86.          BorderWidth     =   4
  87.          FillColor       =   &H00FF0000&
  88.          FillStyle       =   7  'Diagonal Cross
  89.          Height          =   612
  90.          Left            =   840
  91.          Shape           =   2  'Oval
  92.          Top             =   240
  93.          Width           =   852
  94.       End
  95.       Begin VB.Shape Shape1 
  96.          BorderColor     =   &H80000002&
  97.          BorderWidth     =   4
  98.          FillColor       =   &H000000FF&
  99.          FillStyle       =   0  'Solid
  100.          Height          =   612
  101.          Left            =   120
  102.          Top             =   240
  103.          Width           =   612
  104.       End
  105.    End
  106.    Begin VB.Frame Frame3 
  107.       Caption         =   "Frame3"
  108.       BeginProperty Font 
  109.          Name            =   "Tahoma"
  110.          Size            =   7.8
  111.          Charset         =   0
  112.          Weight          =   700
  113.          Underline       =   0   'False
  114.          Italic          =   0   'False
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       Height          =   1452
  118.       Left            =   120
  119.       TabIndex        =   2
  120.       Top             =   2160
  121.       Width           =   5652
  122.       Begin VB.ListBox List1 
  123.          BeginProperty Font 
  124.             Name            =   "Tahoma"
  125.             Size            =   7.8
  126.             Charset         =   0
  127.             Weight          =   400
  128.             Underline       =   0   'False
  129.             Italic          =   0   'False
  130.             Strikethrough   =   0   'False
  131.          EndProperty
  132.          Height          =   1008
  133.          IntegralHeight  =   0   'False
  134.          ItemData        =   "frmFrames.frx":0000
  135.          Left            =   3000
  136.          List            =   "frmFrames.frx":0016
  137.          TabIndex        =   9
  138.          Top             =   360
  139.          Width           =   2532
  140.       End
  141.       Begin VB.TextBox Text3 
  142.          BeginProperty Font 
  143.             Name            =   "Tahoma"
  144.             Size            =   7.8
  145.             Charset         =   0
  146.             Weight          =   400
  147.             Underline       =   0   'False
  148.             Italic          =   0   'False
  149.             Strikethrough   =   0   'False
  150.          EndProperty
  151.          Height          =   288
  152.          Left            =   1200
  153.          TabIndex        =   8
  154.          Text            =   "Text3"
  155.          Top             =   1080
  156.          Width           =   1692
  157.       End
  158.       Begin VB.TextBox Text2 
  159.          BeginProperty Font 
  160.             Name            =   "Tahoma"
  161.             Size            =   7.8
  162.             Charset         =   0
  163.             Weight          =   400
  164.             Underline       =   0   'False
  165.             Italic          =   0   'False
  166.             Strikethrough   =   0   'False
  167.          EndProperty
  168.          Height          =   288
  169.          Left            =   1200
  170.          TabIndex        =   7
  171.          Text            =   "Text2"
  172.          Top             =   720
  173.          Width           =   1692
  174.       End
  175.       Begin VB.TextBox Text1 
  176.          BeginProperty Font 
  177.             Name            =   "Tahoma"
  178.             Size            =   7.8
  179.             Charset         =   0
  180.             Weight          =   400
  181.             Underline       =   0   'False
  182.             Italic          =   0   'False
  183.             Strikethrough   =   0   'False
  184.          EndProperty
  185.          Height          =   288
  186.          Left            =   1200
  187.          TabIndex        =   6
  188.          Text            =   "Text1"
  189.          Top             =   360
  190.          Width           =   1692
  191.       End
  192.       Begin VB.Label Label3 
  193.          Caption         =   "Comment3"
  194.          BeginProperty Font 
  195.             Name            =   "Tahoma"
  196.             Size            =   7.8
  197.             Charset         =   0
  198.             Weight          =   400
  199.             Underline       =   0   'False
  200.             Italic          =   0   'False
  201.             Strikethrough   =   0   'False
  202.          EndProperty
  203.          Height          =   252
  204.          Left            =   120
  205.          TabIndex        =   5
  206.          Top             =   1080
  207.          Width           =   852
  208.       End
  209.       Begin VB.Label Label2 
  210.          Caption         =   "Comment2"
  211.          BeginProperty Font 
  212.             Name            =   "Tahoma"
  213.             Size            =   7.8
  214.             Charset         =   0
  215.             Weight          =   400
  216.             Underline       =   0   'False
  217.             Italic          =   0   'False
  218.             Strikethrough   =   0   'False
  219.          EndProperty
  220.          Height          =   252
  221.          Left            =   120
  222.          TabIndex        =   4
  223.          Top             =   720
  224.          Width           =   852
  225.       End
  226.       Begin VB.Label Label1 
  227.          Caption         =   "Comment1"
  228.          BeginProperty Font 
  229.             Name            =   "Tahoma"
  230.             Size            =   7.8
  231.             Charset         =   0
  232.             Weight          =   400
  233.             Underline       =   0   'False
  234.             Italic          =   0   'False
  235.             Strikethrough   =   0   'False
  236.          EndProperty
  237.          Height          =   252
  238.          Left            =   120
  239.          TabIndex        =   3
  240.          Top             =   360
  241.          Width           =   852
  242.       End
  243.       Begin THBResizeLibCtl.THBResize THBResize4 
  244.          Height          =   252
  245.          Left            =   0
  246.          TabIndex        =   17
  247.          Top             =   1200
  248.          Width           =   372
  249.          _cx             =   656
  250.          _cy             =   444
  251.          NoFontResizeAll =   0   'False
  252.          ResizeOnlyDirectChilds=   -1  'True
  253.          LimitFormWidthMin=   0
  254.          LimitFormWidthMax=   0
  255.          LimitFormHeightMin=   0
  256.          LimitFormHeightMax=   0
  257.          HideControlsSmallerThanWidth=   0
  258.          HideControlsSmallerThanHeight=   0
  259.          FontSizeRelativeToWidthAndHeight=   -1  'True
  260.          NumSpecialObjects=   0
  261.       End
  262.    End
  263.    Begin VB.Frame Frame2 
  264.       Caption         =   "Frame2"
  265.       BeginProperty Font 
  266.          Name            =   "Tahoma"
  267.          Size            =   7.8
  268.          Charset         =   0
  269.          Weight          =   700
  270.          Underline       =   0   'False
  271.          Italic          =   0   'False
  272.          Strikethrough   =   0   'False
  273.       EndProperty
  274.       Height          =   1812
  275.       Left            =   2880
  276.       TabIndex        =   1
  277.       Top             =   120
  278.       Width           =   2892
  279.       Begin VB.CheckBox Check3 
  280.          Caption         =   "Check3"
  281.          BeginProperty Font 
  282.             Name            =   "Tahoma"
  283.             Size            =   7.8
  284.             Charset         =   0
  285.             Weight          =   400
  286.             Underline       =   0   'False
  287.             Italic          =   0   'False
  288.             Strikethrough   =   0   'False
  289.          EndProperty
  290.          Height          =   252
  291.          Left            =   120
  292.          TabIndex        =   13
  293.          Top             =   1440
  294.          Width           =   1932
  295.       End
  296.       Begin VB.CheckBox Check2 
  297.          Caption         =   "Check2"
  298.          BeginProperty Font 
  299.             Name            =   "Tahoma"
  300.             Size            =   7.8
  301.             Charset         =   0
  302.             Weight          =   400
  303.             Underline       =   0   'False
  304.             Italic          =   0   'False
  305.             Strikethrough   =   0   'False
  306.          EndProperty
  307.          Height          =   252
  308.          Left            =   120
  309.          TabIndex        =   12
  310.          Top             =   1080
  311.          Width           =   1812
  312.       End
  313.       Begin VB.CheckBox Check1 
  314.          Caption         =   "Check1"
  315.          BeginProperty Font 
  316.             Name            =   "Tahoma"
  317.             Size            =   7.8
  318.             Charset         =   0
  319.             Weight          =   400
  320.             Underline       =   0   'False
  321.             Italic          =   0   'False
  322.             Strikethrough   =   0   'False
  323.          EndProperty
  324.          Height          =   252
  325.          Left            =   120
  326.          TabIndex        =   11
  327.          Top             =   720
  328.          Width           =   2652
  329.       End
  330.       Begin VB.ComboBox Combo1 
  331.          BeginProperty Font 
  332.             Name            =   "Tahoma"
  333.             Size            =   7.8
  334.             Charset         =   0
  335.             Weight          =   400
  336.             Underline       =   0   'False
  337.             Italic          =   0   'False
  338.             Strikethrough   =   0   'False
  339.          EndProperty
  340.          Height          =   288
  341.          IntegralHeight  =   0   'False
  342.          ItemData        =   "frmFrames.frx":0086
  343.          Left            =   120
  344.          List            =   "frmFrames.frx":0099
  345.          TabIndex        =   10
  346.          Text            =   "Combo1"
  347.          Top             =   240
  348.          Width           =   2652
  349.       End
  350.       Begin THBResizeLibCtl.THBResize THBResize3 
  351.          Height          =   252
  352.          Left            =   2400
  353.          TabIndex        =   15
  354.          Top             =   1560
  355.          Width           =   492
  356.          _cx             =   868
  357.          _cy             =   444
  358.          NoFontResizeAll =   0   'False
  359.          ResizeOnlyDirectChilds=   -1  'True
  360.          LimitFormWidthMin=   0
  361.          LimitFormWidthMax=   0
  362.          LimitFormHeightMin=   0
  363.          LimitFormHeightMax=   0
  364.          HideControlsSmallerThanWidth=   0
  365.          HideControlsSmallerThanHeight=   0
  366.          FontSizeRelativeToWidthAndHeight=   -1  'True
  367.          NumSpecialObjects=   0
  368.       End
  369.    End
  370.    Begin THBResizeLibCtl.THBResize THBResize1 
  371.       Height          =   252
  372.       Left            =   0
  373.       TabIndex        =   14
  374.       Top             =   3480
  375.       Width           =   372
  376.       _cx             =   656
  377.       _cy             =   444
  378.       NoFontResizeAll =   0   'False
  379.       ResizeOnlyDirectChilds=   -1  'True
  380.       LimitFormWidthMin=   0
  381.       LimitFormWidthMax=   0
  382.       LimitFormHeightMin=   0
  383.       LimitFormHeightMax=   0
  384.       HideControlsSmallerThanWidth=   0
  385.       HideControlsSmallerThanHeight=   0
  386.       FontSizeRelativeToWidthAndHeight=   -1  'True
  387.       NumSpecialObjects=   0
  388.    End
  389. End
  390. Attribute VB_Name = "frmFrames"
  391. Attribute VB_GlobalNameSpace = False
  392. Attribute VB_Creatable = False
  393. Attribute VB_PredeclaredId = True
  394. Attribute VB_Exposed = False
  395. Option Explicit
  396.  
  397. Private Sub Form_Load()
  398.     THBResize1.hWnd = Me.hWnd
  399.     THBResize2.hWnd = Frame1.hWnd
  400.     THBResize4.hWnd = Frame3.hWnd
  401.     THBResize3.hWnd = Frame2.hWnd
  402. End Sub
  403.  
  404.  
  405. 'If there are more than one Resizer on the form,
  406. 'each one must be started if the outermost one
  407. 'starts.
  408. 'In this example THBResize1 is the outermost,
  409. 'because Frame1, Frame2, Frame3 are direct
  410. 'childs from THBResize1
  411. Private Sub THBResize1_BeforeStartResize()
  412.     THBResize1.StartResize
  413.     THBResize2.StartResize
  414.     THBResize3.StartResize
  415.     THBResize4.StartResize
  416. End Sub
  417.