QBasic & Borland Pascal & C/Delphi5.iso/Runimage/Delphi50/Help/Examples/Scrollba/SCROLDEM.DFM/SCROLDEM.txt

Text File | 1999-08-11 | 5.3 KB | 296 lines

object ScrollForm1: TScrollForm1
  Left = 200
  Top = 108
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ScrollDemo'
  ClientHeight = 194
  ClientWidth = 436
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 436
    Height = 9
    Align = alTop
    Shape = bsTopLine
  end
  object Label3: TLabel
    Left = 238
    Top = 42
    Width = 24
    Height = 13
    Caption = 'Units'
  end
  object Label4: TLabel
    Left = 198
    Top = 78
    Width = 64
    Height = 13
    Caption = 'LargeChange'
  end
  object Label5: TLabel
    Left = 242
    Top = 117
    Width = 20
    Height = 13
    Caption = 'Max'
  end
  object Label1: TLabel
    Left = 280
    Top = 16
    Width = 47
    Height = 13
    Caption = 'Horizontal'
  end
  object Vertical: TLabel
    Left = 376
    Top = 16
    Width = 35
    Height = 13
    Caption = 'Vertical'
  end
  object HScrollb: TScrollBar
    Left = 9
    Top = 169
    Width = 159
    Height = 16
    Max = 32767
    TabOrder = 1
    OnScroll = HScrollbScroll
  end
  object VScrollb: TScrollBar
    Left = 169
    Top = 9
    Width = 16
    Height = 157
    Kind = sbVertical
    TabOrder = 2
    OnChange = VScrollbChange
  end
  object HUnits: TEdit
    Left = 275
    Top = 38
    Width = 48
    Height = 21
    ReadOnly = True
    TabOrder = 3
    Text = '0'
  end
  object HPage: TEdit
    Left = 275
    Top = 74
    Width = 48
    Height = 21
    ReadOnly = True
    TabOrder = 4
    Text = '0'
  end
  object HMax: TEdit
    Left = 276
    Top = 113
    Width = 48
    Height = 21
    ReadOnly = True
    TabOrder = 5
    Text = '0'
  end
  object VUnits: TEdit
    Left = 363
    Top = 38
    Width = 48
    Height = 21
    ReadOnly = True
    TabOrder = 6
    Text = '0'
  end
  object VPage: TEdit
    Left = 363
    Top = 74
    Width = 48
    Height = 21
    ReadOnly = True
    TabOrder = 7
    Text = '0'
  end
  object VMax: TEdit
    Left = 363
    Top = 113
    Width = 48
    Height = 21
    ReadOnly = True
    TabOrder = 8
    Text = '0'
  end
  object HUnitsUpDown: TUpDown
    Left = 323
    Top = 38
    Width = 15
    Height = 21
    Associate = HUnits
    Min = 1
    Max = 32767
    Position = 1
    TabOrder = 9
    Wrap = False
    OnClick = UpDownClick
  end
  object HPageUpDown: TUpDown
    Left = 323
    Top = 74
    Width = 15
    Height = 21
    Associate = HPage
    Min = 0
    Max = 32767
    Position = 0
    TabOrder = 10
    Wrap = False
    OnClick = UpDownClick
  end
  object HMaxUpDown: TUpDown
    Left = 324
    Top = 113
    Width = 15
    Height = 21
    Associate = HMax
    Min = 0
    Max = 32767
    Position = 0
    TabOrder = 11
    Wrap = False
    OnClick = UpDownClick
  end
  object VUnitsUpDown: TUpDown
    Left = 411
    Top = 38
    Width = 15
    Height = 21
    Associate = VUnits
    Min = 1
    Max = 32767
    Position = 1
    TabOrder = 12
    Wrap = False
    OnClick = UpDownClick
  end
  object VMaxUpDown: TUpDown
    Left = 411
    Top = 113
    Width = 15
    Height = 21
    Associate = VMax
    Min = 0
    Max = 32767
    Position = 0
    TabOrder = 13
    Wrap = False
    OnClick = UpDownClick
  end
  object VPageUpDown: TUpDown
    Left = 411
    Top = 74
    Width = 15
    Height = 21
    Associate = VPage
    Min = 0
    Max = 32767
    Position = 0
    TabOrder = 14
    Wrap = False
    OnClick = UpDownClick
  end
  object DefaultBtn: TButton
    Left = 348
    Top = 157
    Width = 75
    Height = 25
    Caption = '&Defaults'
    ParentShowHint = False
    ShowHint = False
    TabOrder = 15
    OnClick = DefaultBtnClick
  end
  object ApplyBtn: TButton
    Left = 265
    Top = 157
    Width = 75
    Height = 25
    Caption = '&Apply'
    Enabled = False
    TabOrder = 16
    OnClick = ApplyBtnClick
  end
  object MainMenu1: TMainMenu
    Left = 196
    Top = 159
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Caption = '&Open...'
        OnClick = Open1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object View1: TMenuItem
      Caption = '&Scroll'
      OnClick = View1Click
      object VScrollMenu: TMenuItem
        Caption = '&Vertical'
        OnClick = VScrollMenuClick
      end
      object HScrollMenu: TMenuItem
        Caption = '&Horizontal'
        OnClick = HScrollMenuClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object About1: TMenuItem
        Caption = '&About...'
        OnClick = About1Click
      end
    end
  end
  object OpenDialog: TOpenDialog
    DefaultExt = '.bmp'
    Filter =
      'Images (*.bmp;*.ico)|*.bmp;*.ico|Bitmaps (*.bmp)|*.bmp|Icons (*.' +
      'ico)|*.ico'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 230
    Top = 158
  end
  object ImgPanel: TPanel
    Left = 8
    Top = 8
    Width = 160
    Height = 160
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 0
    object Image: TImage
      Left = 0
      Top = 0
      Width = 600
      Height = 470
      AutoSize = True
      Picture.Data = {<image000.bmp>}
    end
  end
end