Delphi Programming Unleashed/Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso/chap28/object4/main.txt

Text File | 1995-03-21 | 9.6 KB | 505 lines

object Menagerie: TMenagerie
  Left = 110
  Top = 85
  AutoScroll = False
  Caption = 'Menagerie'
  ClientHeight = 257
  ClientWidth = 427
  Color = clGray
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 96
  PopupMenu = PopupMenu1
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 216
    Width = 427
    Height = 41
    Align = alBottom
    TabOrder = 0
    object SpeedButton16: TSpeedButton
      Tag = 1
      Left = 21
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton17: TSpeedButton
      Tag = 2
      Left = 61
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton18: TSpeedButton
      Tag = 3
      Left = 101
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton19: TSpeedButton
      Tag = 4
      Left = 141
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton20: TSpeedButton
      Tag = 5
      Left = 181
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton21: TSpeedButton
      Tag = 6
      Left = 221
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton22: TSpeedButton
      Tag = 7
      Left = 261
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton23: TSpeedButton
      Tag = 8
      Left = 301
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton24: TSpeedButton
      Tag = 9
      Left = 341
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton25: TSpeedButton
      Tag = 10
      Left = 381
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
  end
  object Panel2: TPanel
    Left = 384
    Top = 56
    Width = 43
    Height = 145
    TabOrder = 1
    object SpeedButton12: TSpeedButton
      Tag = 1
      Left = 9
      Top = 13
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton13: TSpeedButton
      Tag = 3
      Left = 9
      Top = 77
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton14: TSpeedButton
      Tag = 4
      Left = 9
      Top = 109
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton15: TSpeedButton
      Tag = 2
      Left = 9
      Top = 45
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 56
    Width = 41
    Height = 145
    TabOrder = 2
    object SpeedButton31: TSpeedButton
      Tag = 1
      Left = 8
      Top = 16
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton33: TSpeedButton
      Tag = 2
      Left = 8
      Top = 47
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton34: TSpeedButton
      Tag = 3
      Left = 8
      Top = 77
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton35: TSpeedButton
      Tag = 4
      Left = 8
      Top = 108
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 427
    Height = 41
    Align = alTop
    TabOrder = 3
    object sp41: TSpeedButton
      Tag = 1
      Left = 21
      Top = 8
      Width = 25
      Height = 25
      Spacing = 1
      OnClick = sp41Click
    end
    object Sp42: TSpeedButton
      Tag = 2
      Left = 61
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object Sp43: TSpeedButton
      Tag = 3
      Left = 101
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object Sp44: TSpeedButton
      Tag = 3
      Left = 141
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object Sp45: TSpeedButton
      Tag = 5
      Left = 181
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object Sp46: TSpeedButton
      Tag = 6
      Left = 221
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object Sp47: TSpeedButton
      Tag = 7
      Left = 261
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object Sp48: TSpeedButton
      Tag = 8
      Left = 301
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object Sp49: TSpeedButton
      Tag = 9
      Left = 341
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object Sp410: TSpeedButton
      Tag = 10
      Left = 381
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
  end
  object Panel5: TPanel
    Left = 73
    Top = 56
    Width = 280
    Height = 41
    TabOrder = 4
    object SpeedButton1: TSpeedButton
      Tag = 1
      Left = 16
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton11: TSpeedButton
      Tag = 2
      Left = 53
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton26: TSpeedButton
      Tag = 3
      Left = 91
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton27: TSpeedButton
      Tag = 4
      Left = 128
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton28: TSpeedButton
      Tag = 5
      Left = 165
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton29: TSpeedButton
      Tag = 6
      Left = 203
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton30: TSpeedButton
      Tag = 7
      Left = 240
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
  end
  object Panel6: TPanel
    Left = 73
    Top = 160
    Width = 280
    Height = 41
    TabOrder = 5
    object SpeedButton42: TSpeedButton
      Tag = 1
      Left = 16
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton43: TSpeedButton
      Tag = 2
      Left = 53
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton44: TSpeedButton
      Tag = 3
      Left = 91
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton45: TSpeedButton
      Tag = 4
      Left = 128
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton46: TSpeedButton
      Tag = 5
      Left = 165
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton47: TSpeedButton
      Tag = 6
      Left = 203
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton48: TSpeedButton
      Tag = 7
      Left = 240
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
  end
  object Panel7: TPanel
    Left = 73
    Top = 108
    Width = 280
    Height = 41
    TabOrder = 6
    object SpeedButton32: TSpeedButton
      Tag = 1
      Left = 16
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton36: TSpeedButton
      Tag = 2
      Left = 53
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton37: TSpeedButton
      Tag = 3
      Left = 91
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton38: TSpeedButton
      Tag = 4
      Left = 128
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton39: TSpeedButton
      Tag = 5
      Left = 165
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton40: TSpeedButton
      Tag = 6
      Left = 203
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
    object SpeedButton41: TSpeedButton
      Tag = 7
      Left = 240
      Top = 8
      Width = 25
      Height = 25
      OnClick = sp41Click
    end
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    Left = 42
    Top = 88
    object Blue1: TMenuItem
      Tag = 100
      Caption = 'Blue'
      OnClick = WidgetClick
    end
    object Yellow1: TMenuItem
      Tag = 101
      Caption = 'Yellow'
      OnClick = WidgetClick
    end
    object Green1: TMenuItem
      Tag = 102
      Caption = 'Green'
      OnClick = WidgetClick
    end
    object Violet1: TMenuItem
      Tag = 103
      Caption = 'Violet'
      OnClick = WidgetClick
    end
  end
  object Timer1: TTimer
    Interval = 250
    OnTimer = Timer1Timer
    Left = 42
    Top = 120
  end
  object MainMenu1: TMainMenu
    Left = 42
    Top = 56
    object Sell1: TMenuItem
      Caption = 'Sell'
      OnClick = Sell1Click
    end
    object List: TMenuItem
      Caption = 'List'
      OnClick = ListClick
    end
  end
end