home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / 3CTRLS / 3CTRLS.ZIP / FPROP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-10-05  |  2.1 KB  |  62 lines
  1. VERSION 2.00
  2. Begin Form fProp 
  3.    Caption         =   "Proportional Resizing : Resize the form"
  4.    Height          =   3810
  5.    Left            =   1155
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   3345
  8.    ScaleWidth      =   5100
  9.    Top             =   1230
  10.    Width           =   5280
  11.    Begin VideoSoftElastic VSElastic1 
  12.       Align           =   5  'Fill Container
  13.       AutoSizeChildren=   7  'Proportional
  14.       BackColor       =   &H00C0C0C0&
  15.       BevelOuter      =   1  'Raised
  16.       BevelOuterWidth =   1
  17.       Height          =   3345
  18.       Left            =   0
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   5100
  22.       Begin CommandButton Command1 
  23.          BackColor       =   &H00C0C0C0&
  24.          Caption         =   "&Help"
  25.          Height          =   555
  26.          Left            =   1440
  27.          TabIndex        =   2
  28.          Top             =   2565
  29.          Width           =   1995
  30.       End
  31.       Begin TextBox Text1 
  32.          BackColor       =   &H00FFFFFF&
  33.          FontBold        =   -1  'True
  34.          FontItalic      =   0   'False
  35.          FontName        =   "MS Sans Serif"
  36.          FontSize        =   12
  37.          FontStrikethru  =   0   'False
  38.          FontUnderline   =   0   'False
  39.          ForeColor       =   &H00FF0000&
  40.          Height          =   1725
  41.          Left            =   1845
  42.          MultiLine       =   -1  'True
  43.          ScrollBars      =   2  'Vertical
  44.          TabIndex        =   1
  45.          Text            =   "Proportional Resizing locks the controls in place at design time"
  46.          Top             =   405
  47.          Width           =   2895
  48.       End
  49.       Begin Image Image1 
  50.          Height          =   1095
  51.          Left            =   405
  52.          Picture         =   FPROP.FRX:0000
  53.          Stretch         =   -1  'True
  54.          Top             =   360
  55.          Width           =   1140
  56.       End
  57.    End
  58. Option Explicit
  59. Sub Command1_Click ()
  60.   MsgBox "This is done with only one elastic that fills the container and its AutoSizeChildren property set to proportional"
  61. End Sub
  62.