unit4.~dfm

delphi编写的时钟程序

object Form4: TForm4
  Left = 140
  Top = 363
  Width = 486
  Height = 384
  Caption = #31995#32479#35774#32622
  Color = clMoneyGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 16
    Top = 16
    Width = 441
    Height = 273
    HelpType = htKeyword
    ActivePage = TabSheet4
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #30028#38754#35774#35745
      object GroupBox2: TGroupBox
        Left = 8
        Top = 16
        Width = 401
        Height = 201
        Caption = #25351#38024#35774#35745
        TabOrder = 0
        object GroupBox3: TGroupBox
          Left = 8
          Top = 24
          Width = 121
          Height = 161
          Caption = #26102#38024
          TabOrder = 0
          object hourcolor1: TLabel
            Left = 8
            Top = 32
            Width = 105
            Height = 13
            AutoSize = False
            Color = clActiveCaption
            ParentColor = False
            OnClick = hourcolor1Click
          end
          object Label3: TLabel
            Left = 40
            Top = 16
            Width = 33
            Height = 13
            AutoSize = False
            Caption = #39068#33394
          end
          object Label4: TLabel
            Left = 40
            Top = 56
            Width = 33
            Height = 13
            AutoSize = False
            Caption = #22823#23567
          end
          object Label5: TLabel
            Left = 32
            Top = 104
            Width = 57
            Height = 13
            AutoSize = False
            Caption = #32447#27573#31867#22411
          end
          object ComboBox2: TComboBox
            Left = 8
            Top = 72
            Width = 105
            Height = 21
            ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
            ItemHeight = 13
            TabOrder = 0
            Text = '3'
            OnChange = ComboBox2Change
            Items.Strings = (
              '1'
              '2'
              '3'
              '4'
              '5'
              '6')
          end
          object ComboBox5: TComboBox
            Left = 8
            Top = 128
            Width = 105
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
            ItemHeight = 13
            TabOrder = 1
            Text = 'PsSolid'
            OnChange = ComboBox5Change
            Items.Strings = (
              'PsSolid'
              'PsDash'
              'PsDot'
              'PsDashDot'
              'PsDashDotDot'
              'PsClear')
          end
        end
        object GroupBox4: TGroupBox
          Left = 264
          Top = 24
          Width = 121
          Height = 161
          Caption = #31186#38024
          TabOrder = 1
          object Label7: TLabel
            Left = 40
            Top = 16
            Width = 33
            Height = 13
            AutoSize = False
            Caption = #39068#33394
          end
          object Label9: TLabel
            Left = 40
            Top = 56
            Width = 33
            Height = 13
            AutoSize = False
            Caption = #22823#23567
          end
          object Label11: TLabel
            Left = 32
            Top = 104
            Width = 65
            Height = 13
            AutoSize = False
            Caption = #32447#27573#31867#22411
          end
          object secondcolor1: TLabel
            Left = 8
            Top = 32
            Width = 105
            Height = 13
            AutoSize = False
            Color = clActiveCaption
            ParentColor = False
            OnClick = secondcolor1Click
          end
          object ComboBox4: TComboBox
            Left = 8
            Top = 72
            Width = 105
            Height = 21
            ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
            ItemHeight = 13
            TabOrder = 0
            Text = '3'
            OnChange = ComboBox4Change
            Items.Strings = (
              '1'
              '2'
              '3'
              '4'
              '5')
          end
          object ComboBox7: TComboBox
            Left = 8
            Top = 128
            Width = 105
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
            ItemHeight = 13
            TabOrder = 1
            Text = 'PsSolid'
            Items.Strings = (
              'PsSolid'
              'PsDash'
              'PsDot'
              'PsDashDot'
              'PsDashDotDot'
              'PsClear')
          end
        end
        object GroupBox5: TGroupBox
          Left = 136
          Top = 24
          Width = 121
          Height = 161
          Caption = #20998#38024
          TabOrder = 2
          object Label6: TLabel
            Left = 40
            Top = 16
            Width = 33
            Height = 13
            AutoSize = False
            Caption = #39068#33394
          end
          object Label8: TLabel
            Left = 40
            Top = 56
            Width = 33
            Height = 13
            AutoSize = False
            Caption = #22823#23567
          end
          object Label10: TLabel
            Left = 32
            Top = 104
            Width = 65
            Height = 13
            AutoSize = False
            Caption = #32447#27573#31867#22411
          end
          object minutecolor1: TLabel
            Left = 8
            Top = 32
            Width = 105
            Height = 13
            AutoSize = False
            Color = clActiveCaption
            ParentColor = False
            OnClick = minutecolor1Click
          end
          object ComboBox3: TComboBox
            Left = 8
            Top = 72
            Width = 105
            Height = 21
            ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
            ItemHeight = 13
            TabOrder = 0
            Text = '3'
            OnChange = ComboBox3Change
            Items.Strings = (
              '1'
              '2'
              '3'
              '4'
              '5'
              '6')
          end
          object ComboBox6: TComboBox
            Left = 8
            Top = 128
            Width = 105
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
            ItemHeight = 13
            TabOrder = 1
            Text = 'PsSolid'
            Items.Strings = (
              'PsSolid'
              'PsDash'
              'PsDot'
              'PsDashDot'
              'PsDashDotDot'
              'PsClear')
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25253#26102#35774#35745
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Left = 16
        Top = 16
        Width = 353
        Height = 81
        Caption = #25253#26102
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 16
          Top = 16
          Width = 73
          Height = 17
          Caption = #35821#38899#25253#26102
          TabOrder = 0
        end
        object RadioButton2: TRadioButton
          Left = 16
          Top = 48
          Width = 73
          Height = 17
          Caption = #38899#20048#25253#26102
          TabOrder = 1
        end
        object CheckBox3: TCheckBox
          Left = 176
          Top = 16
          Width = 97
          Height = 17
          Caption = #25972#28857#25253#26102
          TabOrder = 2
        end
        object CheckBox4: TCheckBox
          Left = 176
          Top = 48
          Width = 97
          Height = 17
          Caption = #21322#28857#25253#26102
          TabOrder = 3
        end
      end
      object GroupBox6: TGroupBox
        Left = 16
        Top = 104
        Width = 353
        Height = 49
        Caption = #25552#37266#38899#20048
        TabOrder = 1
        object SpeedButton1: TSpeedButton
          Left = 320
          Top = 16
          Width = 23
          Height = 22
          Caption = '...'
          Flat = True
        end
        object ComboBox1: TComboBox
          Left = 8
          Top = 16
          Width = 305
          Height = 21
          ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
          ItemHeight = 13
          TabOrder = 0
          Text = #27700#27874
          Items.Strings = (
            #27700#27874
            #22047#22047
            #32039#24613
            #21319#26071
            #21319#26071
            #40481#40483
            #28404#28404)
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #22522#26412#35774#35745
      ImageIndex = 2
      object GroupBox7: TGroupBox
        Left = 8
        Top = 16
        Width = 193
        Height = 161
        Caption = #31995#32479#35774#32622
        TabOrder = 0
        object CheckBox1: TCheckBox
          Left = 16
          Top = 24
          Width = 97
          Height = 17
          Caption = #24635#22312#26368#21069
          TabOrder = 0
        end
        object CheckBox2: TCheckBox
          Left = 16
          Top = 48
          Width = 97
          Height = 17
          Caption = #40736#26631#31359#36879
          TabOrder = 1
        end
        object CheckBox5: TCheckBox
          Left = 16
          Top = 72
          Width = 97
          Height = 17
          Caption = #24320#26426#21551#21160
          TabOrder = 2
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = #26102#38047#22270#29255#35774#35745
      ImageIndex = 3
      object Image1: TImage
        Left = 200
        Top = 8
        Width = 225
        Height = 225
        AutoSize = True
        Stretch = True
        Transparent = True
      end
      object ListBox1: TListBox
        Left = 8
        Top = 24
        Width = 177
        Height = 201
        ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
        ItemHeight = 13
        Items.Strings = (
          '1.bmp'
          '2.bmp'
          '3.bmp'
          '4.bmp'
          '5.bmp'
          '6.bmp'
          '7.bmp'
          '8.bmp'
          '9.bmp'
          ''
          ''
          ''
          ''
          ''
          ''
          ''
          '')
        TabOrder = 0
        OnClick = ListBox1Click
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 168
    Top = 312
    Width = 105
    Height = 25
    Caption = #30830#23450
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object ColorDialog1: TColorDialog
    Left = 360
    Top = 8
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 312
    Top = 8
  end
end