unit1.dfm

用Delphi写的简易计算器

object Form1: TForm1
  Left = 236
  Top = 215
  Width = 696
  Height = 480
  Align = alCustom
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 185
    Top = 0
    Width = 8
    Height = 446
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 446
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 0
    object Splitter2: TSplitter
      Left = 1
      Top = 33
      Width = 183
      Height = 8
      Cursor = crVSplit
      Align = alTop
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 183
      Height = 32
      Align = alTop
      Caption = 'Panel3'
      TabOrder = 0
      object DriveComboBox1: TDriveComboBox
        Left = 8
        Top = 0
        Width = 145
        Height = 19
        TabOrder = 0
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 41
      Width = 183
      Height = 404
      Align = alClient
      Caption = 'Panel4'
      TabOrder = 1
      object Splitter3: TSplitter
        Left = 1
        Top = 1
        Width = 181
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Label1: TLabel
        Left = 56
        Top = 296
        Width = 72
        Height = 16
        Caption = 'selected file'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 64
        Top = 360
        Width = 52
        Height = 16
        Caption = 'directory'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DirectoryListBox1: TDirectoryListBox
        Left = 0
        Top = 0
        Width = 185
        Height = 137
        ItemHeight = 16
        TabOrder = 0
      end
      object FilterComboBox1: TFilterComboBox
        Left = 0
        Top = 136
        Width = 185
        Height = 21
        Filter = 'All files (*.*)|*.*|delphi(*.dpr)|*.dpr'
        TabOrder = 1
      end
      object FileListBox1: TFileListBox
        Left = 1
        Top = 161
        Width = 181
        Height = 128
        FileEdit = Edit1
        FileType = [ftReadOnly, ftDirectory, ftNormal]
        ItemHeight = 13
        Mask = '*.dpr'
        MultiSelect = True
        TabOrder = 2
        OnClick = FileListBox1Click
      end
      object Edit1: TEdit
        Left = 40
        Top = 312
        Width = 105
        Height = 21
        TabOrder = 3
        Text = '*.dpr'
        OnChange = FileListBox1Click
      end
      object Memo1: TMemo
        Left = 0
        Top = 376
        Width = 177
        Height = 25
        Lines.Strings = (
          'Memo1')
        TabOrder = 4
      end
    end
  end
  object Panel2: TPanel
    Left = 193
    Top = 0
    Width = 495
    Height = 446
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 493
      Height = 444
      Align = alClient
      Caption = 'Panel2'
      TabOrder = 0
      object Splitter4: TSplitter
        Left = 296
        Top = 241
        Width = 11
        Height = 202
        Align = alRight
      end
      object Panel6: TPanel
        Left = 307
        Top = 241
        Width = 185
        Height = 202
        Align = alRight
        Caption = 'Panel6'
        TabOrder = 0
      end
      object Panel7: TPanel
        Left = 1
        Top = 1
        Width = 491
        Height = 240
        Align = alTop
        Caption = 'Panel7'
        TabOrder = 1
        object MonthCalendar1: TMonthCalendar
          Left = 8
          Top = 8
          Width = 267
          Height = 154
          Date = 37935.559469756950000000
          TabOrder = 0
        end
        object DateTimePicker1: TDateTimePicker
          Left = 24
          Top = 184
          Width = 97
          Height = 21
          Date = 37935.559582071760000000
          Time = 37935.559582071760000000
          TabOrder = 1
        end
        object Edit2: TEdit
          Left = 144
          Top = 184
          Width = 105
          Height = 21
          TabOrder = 2
          Text = '0'
        end
        object UpDown1: TUpDown
          Left = 249
          Top = 184
          Width = 16
          Height = 21
          Associate = Edit2
          Max = 31
          TabOrder = 3
          OnClick = UpDown1Click
        end
        object TrackBar1: TTrackBar
          Left = 320
          Top = 147
          Width = 150
          Height = 45
          Max = 100
          TabOrder = 4
        end
        object ProgressBar1: TProgressBar
          Left = 320
          Top = 63
          Width = 150
          Height = 25
          TabOrder = 5
          TabStop = True
        end
        object Button1: TButton
          Left = 352
          Top = 199
          Width = 75
          Height = 25
          Caption = #24320#22987
          TabOrder = 6
          OnClick = Button1Click
        end
        object ProgressBar2: TProgressBar
          Left = 289
          Top = 71
          Width = 24
          Height = 121
          DragMode = dmAutomatic
          Orientation = pbVertical
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
        end
        object Button2: TButton
          Left = 384
          Top = 16
          Width = 75
          Height = 25
          Caption = #36864#20986
          TabOrder = 8
          OnClick = Button2Click
        end
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 10
    OnTimer = Timer1Timer
    Left = 530
    Top = 25
  end
end