home *** CD-ROM | disk | FTP | other *** search
- object fImportLinks: TfImportLinks
- Left = 307
- Top = 258
- BorderStyle = bsDialog
- Caption = 'Import'
- ClientHeight = 328
- ClientWidth = 497
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poMainFormCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 481
- Height = 41
- AutoSize = False
- Caption =
- 'Kliknut'#237'm na tla'#269#237'tko st'#225'hnout se program p'#345'ipoj'#237' k serveru a st' +
- #225'hne si aktu'#225'ln'#237' seznam kan'#225'l'#367', kter'#233' V'#225'm doporu'#269'uj'#237' auto'#345'i prog' +
- 'ramu. Kan'#225'ly, kter'#233' si ozna'#269#237'te, budou p'#345'id'#225'ny do Va'#353'eho seznamu' +
- ' po stisknut'#237' P'#345'idat. Seznam budeme pr'#367'b'#283#382'n'#283' aktualizovat.'
- WordWrap = True
- end
- object ImportTree: TVirtualStringTree
- Left = 8
- Top = 56
- Width = 481
- Height = 233
- CheckImageKind = ckDarkCheck
- Header.AutoSizeIndex = 0
- Header.Font.Charset = DEFAULT_CHARSET
- Header.Font.Color = clWindowText
- Header.Font.Height = -11
- Header.Font.Name = 'MS Sans Serif'
- Header.Font.Style = []
- Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
- Header.SortColumn = 0
- Header.Style = hsXPStyle
- TabOrder = 0
- TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
- OnGetText = ImportTreeGetText
- Columns = <
- item
- Position = 0
- Width = 197
- WideText = 'N'#225'zev'
- end
- item
- Position = 1
- Width = 120
- WideText = 'Kategorie'
- end
- item
- Position = 2
- Width = 100
- WideText = 'Obsah'
- end
- item
- Alignment = taRightJustify
- Position = 3
- Width = 60
- WideText = 'Rank'
- end>
- end
- object Button1: TButton
- Left = 8
- Top = 296
- Width = 75
- Height = 25
- Action = AcLoadLinks
- TabOrder = 1
- end
- object Button2: TButton
- Left = 416
- Top = 296
- Width = 75
- Height = 25
- Action = AcClose
- TabOrder = 2
- end
- object Button3: TButton
- Left = 336
- Top = 296
- Width = 75
- Height = 25
- Action = AcAddNews
- TabOrder = 3
- end
- object DomImpl: TDomImplementation
- Left = 176
- Top = 104
- end
- object XmlToDom: TXmlToDomParser
- DOMImpl = DomImpl
- Left = 240
- Top = 104
- end
- object ActionList1: TActionList
- Left = 168
- Top = 192
- object AcClose: TAction
- Caption = 'Zav'#345#237't'
- Hint = 'Zav'#345#237't|Zav'#345#237't okno'
- OnExecute = AcCloseExecute
- end
- object AcAddNews: TAction
- Caption = 'P'#345'idat'
- Hint = 'P'#345'idat|P'#345'idat ozna'#269'en'#233' kan'#225'ly'
- OnExecute = AcAddNewsExecute
- end
- object AcLoadLinks: TAction
- Caption = 'St'#225'hnout'
- Hint = 'Aktualizuj|St'#225'hni seznam z webu'
- OnExecute = AcLoadLinksExecute
- end
- end
- end
-