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