PC World 2007 September/PCWorld_2007-09_cd.bin/multimedia/coverme/CoverMe.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 2007-07-27 | 13KB | 495 lines

object Form1: TForm1
  Left = 388
  Top = 168
  Width = 796
  Height = 598
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnResize = FormResize
  OnShow = FormShow
  DesignSize = (
    788
    544)
  PixelsPerInch = 96
  TextHeight = 13
  object Gradient1: TGradient
    Left = 396
    Top = 40
    Width = 391
    Height = 482
    Anchors = [akTop, akRight, akBottom]
    BorderColor = clWhite
    ColorEnd = clGradientInactiveCaption
    Style = gsLinearH
  end
  object Bevel6: TBevel
    Left = 401
    Top = 44
    Width = 381
    Height = 287
    Anchors = [akTop, akRight, akBottom]
    Shape = bsFrame
  end
  object LargeImage: TImage
    Left = 405
    Top = 48
    Width = 373
    Height = 279
    Anchors = [akTop, akRight, akBottom]
    Center = True
    IncrementalDisplay = True
    Proportional = True
    OnClick = LargeImageClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 523
    Width = 788
    Height = 21
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 788
    Height = 41
    Align = alTop
    Color = clGradientInactiveCaption
    ParentBackground = False
    ParentColor = False
    TabOrder = 1
    object SpeedButton2: TSpeedButton
      Left = 504
      Top = 12
      Width = 25
      Height = 21
      Hint = 'Music'
      AllowAllUp = True
      GroupIndex = 1
      Down = True
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000000000000000000010000000000000000B2A2D000BBB
        BD001AF7FB00446D7100A3BBBD008FFFFF001D4A4C00676D7100D2DDDF00F1F7
        FB000BDDDF000B9598008F9598000BFFFF00FEFFFF0044BBBD00E8C8EEEEE8CC
        CEEEEC8CEEEE8BAAA3EE865B6CCC3DDDD26C975DA688CDDDDD688652526C7855
        556C9756CCF684CC65688656C3C6CCCC656C975088C6888875688656CCC67CCC
        656C975683438888756886566C0CCCC7656C9751AA1388887568865DDDD6CCCC
        656C975DDDD688887568EEC555F8EEEEC56EEEECCC8EEEEE8CCE}
      ParentShowHint = False
      ShowHint = True
      Transparent = False
    end
    object SpeedButton3: TSpeedButton
      Left = 532
      Top = 12
      Width = 25
      Height = 21
      Hint = 'DVD'
      AllowAllUp = True
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
        0000777788888877888000876888880788800087666666076660000788888807
        88800007EEEE77070000007EEEEEE707700007EEEEEE7E700700707EEEE7EEE7
        70707077EE7EEEEE7070070077EEEEEEE700007707EEEEEE70000007077EEEE7
        000000007007EE70000000000770770000000000007070000000}
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedButton4: TSpeedButton
      Left = 560
      Top = 12
      Width = 25
      Height = 21
      Hint = 'Software'
      AllowAllUp = True
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFF00000000000000F070707070707070008888888888888800FFFFFFFFFF0
        00F00888888888888880F00000000000000FFF088888888870FFFF0870000007
        80FFFF0808FF8FF080FFFF080F8FF8F080FFFF0808F8FF8080FFFF080F8F8FF0
        80FFFF087000000780FFFF088888888880FFFFF0000000000FFF}
      ParentShowHint = False
      ShowHint = True
    end
    object Bevel1: TBevel
      Left = 588
      Top = 12
      Width = 9
      Height = 21
      Shape = bsLeftLine
      Style = bsRaised
    end
    object Bevel2: TBevel
      Left = 492
      Top = 12
      Width = 9
      Height = 21
      Shape = bsLeftLine
      Style = bsRaised
    end
    object Label1: TLabel
      Left = 28
      Top = 16
      Width = 49
      Height = 13
      Caption = 'Keywords:'
    end
    object EditKeywords: TEdit
      Left = 84
      Top = 12
      Width = 317
      Height = 21
      TabOrder = 0
      Text = 'EditKeywords'
    end
    object BitBtn1: TBitBtn
      Left = 408
      Top = 12
      Width = 73
      Height = 21
      Caption = 'Start'
      Default = True
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFC08040804040C0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFC08040FFFF80FF4000808080FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC08040FFFF
        80FF4000804040FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFC08040FFFF80FF4000804040FFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB09090FFFF80FF40008040
        40FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0C0C050505040404040404060
        6060808080E0E0E0B07070804040FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        B0B0B0C0C0C0606060606040808040808040404000202020606060FFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFC0C0C0D0D0D0505030E0E040FFFF80FFFF80FF
        FF80FFFF80808000808080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE0E0E0E0E0E0
        606040E0E040FFFF80FFFFFFFFFF80FFFF80FFFF80C0C040707070FFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFC0C0C0C0C0C0808040FFFF80FFFFFFFFFFC0FFFF80FF
        FF80FFFF80C0C040606060FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0C0C0808080
        C0C040FFFFC0FFFFFFFFFF80FFFF80FFFF80FFFF80C0C040606060FFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFC0C0C0606060C0C040FFFFC0FFFFFFFFFF80FFFF80FF
        FF80FFFF80C0C080606060FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF404040
        C0C040FFFF80FFFFC0FFFF80FFFF80FFFF80C0C080FFFFFF808080FFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFE0E0E0404000C0C040FFFF80FFFF80E0E040B0
        B070C0C0C0808080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        C0C0C0404040808040808040909070909090707070FFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080808080808080C0
        C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
  end
  object ListBox1: TListBox
    Left = 0
    Top = 41
    Width = 398
    Height = 481
    Style = lbOwnerDrawFixed
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelInner = bvSpace
    BevelOuter = bvRaised
    Color = clWhite
    Ctl3D = True
    ItemHeight = 110
    ParentCtl3D = False
    TabOrder = 2
    OnClick = ListBox1Click
    OnDrawItem = ListBox1DrawItem
  end
  object GroupBox3: TGroupBox
    Left = 401
    Top = 336
    Width = 381
    Height = 106
    Anchors = [akRight, akBottom]
    Caption = ' Image properties '
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 3
    object Bevel5: TBevel
      Left = 56
      Top = 48
      Width = 313
      Height = 21
    end
    object Label3: TLabel
      Left = 16
      Top = 24
      Width = 31
      Height = 13
      Caption = 'Width:'
    end
    object Label4: TLabel
      Left = 148
      Top = 24
      Width = 34
      Height = 13
      Caption = 'Height:'
    end
    object Bevel3: TBevel
      Left = 56
      Top = 20
      Width = 61
      Height = 21
    end
    object Bevel4: TBevel
      Left = 192
      Top = 20
      Width = 61
      Height = 21
    end
    object Label5: TLabel
      Left = 60
      Top = 24
      Width = 53
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Label5'
    end
    object Label6: TLabel
      Left = 196
      Top = 24
      Width = 53
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Label6'
    end
    object Label7: TLabel
      Left = 20
      Top = 52
      Width = 25
      Height = 13
      Caption = 'URL:'
    end
    object Label8: TLabel
      Left = 60
      Top = 52
      Width = 305
      Height = 13
      AutoSize = False
      Caption = 'Label8'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
      WordWrap = True
      OnClick = Label8Click
      OnMouseEnter = Label8MouseEnter
      OnMouseLeave = Label8MouseLeave
    end
    object Label9: TLabel
      Left = 60
      Top = 80
      Width = 150
      Height = 13
      Caption = 'Show product detail on Amazon'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = Label9Click
      OnMouseEnter = Label9MouseEnter
      OnMouseLeave = Label9MouseLeave
    end
  end
  object GroupBox4: TGroupBox
    Left = 401
    Top = 449
    Width = 381
    Height = 66
    Anchors = [akRight, akBottom]
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 4
    object Label2: TLabel
      Left = 56
      Top = 44
      Width = 32
      Height = 13
      Caption = 'Label2'
    end
    object Label10: TLabel
      Left = 12
      Top = 44
      Width = 37
      Height = 13
      Caption = 'Default:'
    end
    object BitBtn2: TBitBtn
      Left = 260
      Top = 12
      Width = 109
      Height = 25
      Caption = 'Save to another'
      TabOrder = 0
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 12
      Top = 12
      Width = 109
      Height = 25
      Caption = 'Save to default'
      TabOrder = 1
      OnClick = BitBtn3Click
    end
  end
  object ActionList1: TActionList
    Left = 4
    Top = 4
    object ParseXML: TAction
      Caption = 'ParseXML'
      OnExecute = ParseXMLExecute
    end
    object CreateAddress: TAction
      Caption = 'CreateAddress'
      OnExecute = CreateAddressExecute
    end
    object GetPage: TAction
      Caption = 'GetPage'
      OnExecute = GetPageExecute
    end
    object DownloadPicture: TAction
      Caption = 'DownloadPicture'
      OnExecute = DownloadPictureExecute
    end
    object CountColumns: TAction
      Caption = 'CountColumns'
      OnExecute = CountColumnsExecute
    end
    object ListBoxClickEvent: TAction
      Caption = 'ListBoxClickEvent'
      OnExecute = ListBoxClickEventExecute
    end
    object SetConstants: TAction
      Caption = 'SetConstants'
      OnExecute = SetConstantsExecute
    end
    object DeleteTemp: TAction
      Caption = 'DeleteTemp'
      OnExecute = DeleteTempExecute
    end
  end
  object XMLD: TXMLDocument
    Active = True
    Options = [doNodeAutoCreate, doAutoPrefix, doNamespaceDecl]
    Left = 4
    Top = 36
    DOMVendorDesc = 'MSXML'
  end
  object HTTP: TIdHTTP
    OnStatus = HTTPStatus
    MaxLineAction = maException
    ReadTimeout = 0
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 4
    Top = 100
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 4
    Top = 132
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer2Timer
    Left = 4
    Top = 164
  end
  object MainMenu1: TMainMenu
    Left = 4
    Top = 196
    object Configuration1: TMenuItem
      Caption = 'Configuration'
      OnClick = Configuration1Click
    end
    object informations1: TMenuItem
      Caption = 'Informations'
      object Aboutprogram1: TMenuItem
        Caption = 'About program'
        OnClick = Aboutprogram1Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'jpg'
    Filter = 'JPEG|*.jpg'
    Left = 4
    Top = 228
  end
  object Timer3: TTimer
    Enabled = False
    Interval = 4000
    OnTimer = Timer3Timer
    Left = 4
    Top = 260
  end
  object hahFindFiles1: ThahFindFiles
    FileAttr = [ffaAnyFile]
    InSubFolders = False
    Path = 'c:\_Zdrojove kody\CoverMe!\'
    FileMask = '*.*'
    Sorted = False
    Version = '1.1'
    IncludeFields = []
    Left = 4
    Top = 292
  end
  object XPManifest1: TXPManifest
    Left = 4
    Top = 68
  end
end