main.dfm

从网页上下载图片的程序

object MainForm: TMainForm
  Left = 233
  Top = 139
  Width = 696
  Height = 480
  Caption = 'MainForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 688
    Height = 453
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #25805#20316
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 393
        Height = 406
        Align = alLeft
        Caption = 'Panel1'
        TabOrder = 0
        object Panel3: TPanel
          Left = 1
          Top = 317
          Width = 391
          Height = 88
          Align = alBottom
          TabOrder = 0
          object Label5: TLabel
            Left = 8
            Top = 8
            Width = 145
            Height = 13
            AutoSize = False
            Caption = #32593#39029#22320#22336
          end
          object Button1: TButton
            Left = 88
            Top = 56
            Width = 75
            Height = 25
            Caption = #21462#24471#22270#29255#22320#22336
            TabOrder = 0
            OnClick = Button1Click
          end
          object Button2: TButton
            Left = 168
            Top = 56
            Width = 75
            Height = 25
            Caption = #28155#21152#22270#29255#22320#22336
            TabOrder = 1
            OnClick = Button2Click
          end
          object ComboBox1: TComboBox
            Left = 8
            Top = 27
            Width = 249
            Height = 21
            ItemHeight = 13
            TabOrder = 2
            Text = 'http://photos.gznet.com/'
            OnDropDown = ComboBox1DropDown
            OnKeyPress = ComboBox1KeyPress
          end
          object Button4: TButton
            Left = 8
            Top = 56
            Width = 75
            Height = 25
            Caption = #25171#24320#32593#39029
            TabOrder = 3
            OnClick = Button4Click
          end
          object Button5: TButton
            Left = 248
            Top = 56
            Width = 75
            Height = 25
            Caption = #20445#23384#36873#25321#22270#29255
            TabOrder = 4
            OnClick = Button5Click
          end
        end
        object Panel13: TPanel
          Left = 1
          Top = 64
          Width = 391
          Height = 253
          Align = alBottom
          Caption = 'Panel13'
          TabOrder = 1
          object Panel14: TPanel
            Left = 1
            Top = 25
            Width = 389
            Height = 227
            Align = alClient
            Caption = 'Panel14'
            TabOrder = 0
            object WebBrowser2: TWebBrowser
              Left = 1
              Top = 1
              Width = 387
              Height = 225
              Align = alClient
              TabOrder = 0
              ControlData = {
                4C000000FF270000411700000000000000000000000000000000000000000000
                000000004C000000000000000000000001000000E0D057007335CF11AE690800
                2B2E126208000000000000004C0000000114020000000000C000000000000046
                8000000000000000000000000000000000000000000000000000000000000000
                00000000000000000100000000000000000000000000000000000000}
            end
          end
          object Panel15: TPanel
            Left = 1
            Top = 1
            Width = 389
            Height = 24
            Align = alTop
            Caption = #22270#29255#39044#35272
            TabOrder = 1
          end
        end
        object Panel16: TPanel
          Left = 1
          Top = 1
          Width = 391
          Height = 63
          Align = alClient
          Caption = 'Panel16'
          TabOrder = 2
          object CheckListBox1: TCheckListBox
            Left = 1
            Top = 1
            Width = 389
            Height = 61
            Align = alClient
            ItemHeight = 13
            ParentShowHint = False
            ShowHint = True
            Style = lbOwnerDrawFixed
            TabOrder = 0
            OnClick = CheckListBox1Click
            OnDblClick = CheckListBox1DblClick
          end
        end
      end
      object Panel2: TPanel
        Left = 393
        Top = 0
        Width = 287
        Height = 406
        Align = alClient
        Caption = 'Panel2'
        TabOrder = 1
        object Panel4: TPanel
          Left = 1
          Top = 229
          Width = 285
          Height = 176
          Align = alBottom
          TabOrder = 0
          object Memo1: TMemo
            Left = 1
            Top = 1
            Width = 283
            Height = 127
            Align = alClient
            ScrollBars = ssBoth
            TabOrder = 0
          end
          object Panel6: TPanel
            Left = 1
            Top = 128
            Width = 283
            Height = 47
            Align = alBottom
            TabOrder = 1
            OnClick = Panel6Click
            object Button3: TButton
              Left = 144
              Top = 8
              Width = 89
              Height = 25
              Caption = #25335#36125#21040#21098#36148#26495
              TabOrder = 0
              OnClick = Button3Click
            end
            object UBBLabel: TCheckBox
              Left = 16
              Top = 16
              Width = 97
              Height = 25
              Caption = 'UBB'#26631#31614
              Checked = True
              State = cbChecked
              TabOrder = 1
            end
          end
        end
        object Panel5: TPanel
          Left = 1
          Top = 1
          Width = 285
          Height = 228
          Align = alClient
          TabOrder = 1
          object WebBrowser1: TWebBrowser
            Left = 1
            Top = 1
            Width = 283
            Height = 226
            Align = alClient
            TabOrder = 0
            OnDownloadBegin = WebBrowser1DownloadBegin
            OnDownloadComplete = WebBrowser1DownloadComplete
            OnNewWindow2 = WebBrowser1NewWindow2
            ControlData = {
              4C000000401D00005C1700000000000000000000000000000000000000000000
              000000004C000000000000000000000001000000E0D057007335CF11AE690800
              2B2E126208000000000000004C0000000114020000000000C000000000000046
              8000000000000000000000000000000000000000000000000000000000000000
              00000000000000000100000000000000000000000000000000000000}
          end
        end
      end
      object StatusBar1: TStatusBar
        Left = 0
        Top = 406
        Width = 680
        Height = 19
        Panels = <>
      end
    end
    object TabSheet3: TTabSheet
      Caption = #35774#32622
      ImageIndex = 2
      object Panel7: TPanel
        Left = 305
        Top = 0
        Width = 375
        Height = 425
        Align = alClient
        TabOrder = 0
        object Panel9: TPanel
          Left = 1
          Top = 1
          Width = 373
          Height = 248
          Align = alTop
          TabOrder = 0
        end
        object Panel12: TPanel
          Left = 1
          Top = 249
          Width = 373
          Height = 175
          Align = alClient
          TabOrder = 1
        end
      end
      object Panel10: TPanel
        Left = 0
        Top = 0
        Width = 305
        Height = 425
        Align = alLeft
        TabOrder = 1
        object Panel8: TPanel
          Left = 1
          Top = 1
          Width = 303
          Height = 232
          Align = alTop
          TabOrder = 0
          object Label1: TLabel
            Left = 216
            Top = 120
            Width = 14
            Height = 13
            Caption = 'KB'
          end
          object Label2: TLabel
            Left = 216
            Top = 160
            Width = 14
            Height = 13
            Caption = 'KB'
          end
          object Label3: TLabel
            Left = 64
            Top = 112
            Width = 24
            Height = 13
            Caption = #26368#23567
          end
          object Label4: TLabel
            Left = 64
            Top = 152
            Width = 24
            Height = 13
            Caption = #26368#22823
          end
          object Edit1: TEdit
            Left = 88
            Top = 112
            Width = 121
            Height = 21
            Enabled = False
            TabOrder = 0
            Text = '10'
            OnChange = Edit1Change
            OnKeyPress = Edit1KeyPress
          end
          object Edit2: TEdit
            Left = 88
            Top = 152
            Width = 121
            Height = 21
            Enabled = False
            TabOrder = 1
            Text = '1000'
            OnChange = Edit2Change
            OnKeyPress = Edit2KeyPress
          end
          object CheckBox1: TCheckBox
            Left = 64
            Top = 72
            Width = 145
            Height = 17
            Caption = #22270#29255#22823#23567#38480#21046
            Checked = True
            State = cbChecked
            TabOrder = 2
            OnClick = CheckBox1Click
          end
        end
        object Panel11: TPanel
          Left = 1
          Top = 233
          Width = 303
          Height = 191
          Align = alClient
          TabOrder = 1
          object CheckBox2: TCheckBox
            Left = 24
            Top = 40
            Width = 97
            Height = 17
            Caption = #21098#36148#26495#30417#35270
            TabOrder = 0
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20851#20110#26412#36719#20214
      ImageIndex = 1
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 149
    Top = 297
  end
end