home *** CD-ROM | disk | FTP | other *** search
- object fRssMain: TfRssMain
- Left = 287
- Top = 183
- Width = 666
- Height = 539
- Caption = ' RSS Tracker (c) 2003 ForCom Software'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = False
- Position = poDefault
- ShowHint = True
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel4: TPanel
- Left = 0
- Top = 42
- Width = 658
- Height = 444
- Align = alClient
- BevelOuter = bvNone
- Caption = 'Panel4'
- TabOrder = 0
- object Splitter: TdfsSplitter
- Left = 214
- Top = 0
- Height = 444
- Cursor = crHSplit
- Align = alLeft
- MinSize = 1
- Maximized = False
- Minimized = False
- ButtonCursor = crDefault
- ButtonHighlightColor = 14400935
- AutoHighlightColor = True
- end
- object TreePanel: TPanel
- Left = 0
- Top = 0
- Width = 214
- Height = 444
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- OnResize = TreePanelResize
- object Bevel1: TBevel
- Left = 0
- Top = 22
- Width = 2
- Height = 422
- Align = alLeft
- Shape = bsSpacer
- Visible = False
- end
- object RssTree: TVirtualDrawTree
- Left = 2
- Top = 22
- Width = 212
- Height = 422
- Align = alClient
- BevelInner = bvNone
- BevelOuter = bvNone
- DragOperations = [doCopy, doMove, doLink]
- DragType = dtVCL
- 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.MainColumn = -1
- Header.Options = [hoColumnResize, hoDrag]
- HintMode = hmHint
- HotCursor = crHandPoint
- ParentShowHint = False
- PopupMenu = TreeMenu
- ShowHint = True
- TabOrder = 0
- TreeOptions.AnimationOptions = [toAnimatedToggle]
- TreeOptions.AutoOptions = [toAutoDropExpand, toAutoExpand, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
- TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
- TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages]
- TreeOptions.SelectionOptions = [toFullRowSelect]
- OnAfterPaint = RssTreeAfterPaint
- OnBeforeItemPaint = RssTreeBeforeItemPaint
- OnChange = RssTreeChange
- OnDrawHint = RssTreeDrawHint
- OnGetHintSize = RssTreeGetHintSize
- OnGetNodeWidth = RssTreeGetNodeWidth
- OnHotChange = RssTreeHotChange
- Columns = <>
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 214
- Height = 22
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- Visible = False
- DesignSize = (
- 214
- 22)
- object Label1: TLabel
- Left = 8
- Top = 5
- Width = 38
- Height = 13
- Caption = 'Zobrazit'
- end
- object CbxView: TComboBox
- Left = 56
- Top = 1
- Width = 158
- Height = 21
- Style = csDropDownList
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 0
- Text = 'V'#353'echny kan'#225'ly i '#269'l'#225'nky'
- OnChange = CbxViewChange
- Items.Strings = (
- 'V'#353'echny kan'#225'ly i '#269'l'#225'nky'
- 'Pouze novinky'
- 'Nov'#233' a nep'#345'e'#269'ten'#233)
- end
- end
- end
- object IEPanel: TPanel
- Left = 224
- Top = 0
- Width = 434
- Height = 444
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 1
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 434
- Height = 23
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 434
- 23)
- object Label2: TLabel
- Left = 5
- Top = 4
- Width = 33
- Height = 13
- Caption = 'Adresa'
- end
- object EdAdresa: TComboBox
- Left = 48
- Top = 1
- Width = 384
- Height = 21
- AutoDropDown = True
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- TabOrder = 0
- OnChange = EdAdresaChange
- OnKeyDown = EdAdresaKeyDown
- OnSelect = EdAdresaSelect
- end
- end
- object TabPanel: TPanel
- Left = 0
- Top = 416
- Width = 434
- Height = 28
- Align = alBottom
- BevelOuter = bvLowered
- TabOrder = 1
- object TabSet: TPageControl
- Left = 1
- Top = 1
- Width = 432
- Height = 26
- Align = alClient
- PopupMenu = IEPageMenu
- TabOrder = 0
- TabPosition = tpBottom
- OnChange = TabSetChange
- OnChanging = TabSetChanging
- end
- end
- end
- end
- object ToolBar1: TToolBar
- Left = 0
- Top = 0
- Width = 658
- Height = 42
- AutoSize = True
- ButtonHeight = 38
- ButtonWidth = 39
- Caption = 'ToolBar1'
- DisabledImages = Data.ImageList3
- EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
- Flat = True
- Images = Data.ImageList2
- TabOrder = 1
- Transparent = True
- Wrapable = False
- object ToolButton1: TToolButton
- Left = 0
- Top = 0
- Action = AcExpand
- AutoSize = True
- end
- object ToolButton2: TToolButton
- Left = 39
- Top = 0
- Action = AcCollapse
- AutoSize = True
- end
- object ToolButton4: TToolButton
- Left = 78
- Top = 0
- Width = 8
- Caption = 'ToolButton4'
- ImageIndex = 16
- Style = tbsSeparator
- end
- object ToolButton9: TToolButton
- Left = 86
- Top = 0
- Action = AcAddChannel
- AutoSize = True
- end
- object ToolButton15: TToolButton
- Left = 125
- Top = 0
- Action = AcEditLink
- AutoSize = True
- end
- object ToolButton8: TToolButton
- Left = 164
- Top = 0
- Action = AcDeleteLink
- AutoSize = True
- end
- object ToolButton5: TToolButton
- Left = 203
- Top = 0
- Width = 8
- Caption = 'ToolButton5'
- ImageIndex = 16
- Style = tbsSeparator
- end
- object ToolButton6: TToolButton
- Left = 211
- Top = 0
- Action = AcRefresh
- AutoSize = True
- end
- object ToolButton7: TToolButton
- Left = 250
- Top = 0
- Width = 8
- Caption = 'ToolButton7'
- ImageIndex = 15
- Style = tbsSeparator
- end
- object ToolButton3: TToolButton
- Left = 258
- Top = 0
- Action = AcImport
- AutoSize = True
- end
- object ToolButton20: TToolButton
- Left = 297
- Top = 0
- Action = AcSetup
- AutoSize = True
- end
- object ToolButton17: TToolButton
- Left = 336
- Top = 0
- Width = 8
- Caption = 'ToolButton17'
- ImageIndex = 7
- Style = tbsSeparator
- end
- object ToolButton16: TToolButton
- Left = 344
- Top = 0
- Action = AcAbout
- AutoSize = True
- end
- object ToolButton21: TToolButton
- Left = 383
- Top = 0
- Width = 8
- Caption = 'ToolButton21'
- ImageIndex = 7
- Style = tbsSeparator
- end
- object ToolButton22: TToolButton
- Left = 391
- Top = 0
- Action = AcBack
- AutoSize = True
- end
- object ToolButton23: TToolButton
- Left = 430
- Top = 0
- Action = AcForward
- AutoSize = True
- end
- object ToolButton24: TToolButton
- Left = 469
- Top = 0
- Action = AcStop
- AutoSize = True
- end
- object ToolButton25: TToolButton
- Left = 508
- Top = 0
- Action = AcActualize
- AutoSize = True
- end
- object ToolButton26: TToolButton
- Left = 547
- Top = 0
- Action = AcHome
- AutoSize = True
- end
- end
- object StatusBar: TdfsStatusBar
- Left = 0
- Top = 486
- Width = 658
- Height = 19
- Panels = <
- item
- Enabled = True
- Width = 500
- AutoFit = False
- end
- item
- GaugeAttrs.Style = gsIndeterminate2
- GaugeAttrs.Speed = 10
- Alignment = taCenter
- PanelType = sptGauge
- Enabled = False
- Width = 100
- AutoFit = False
- end
- item
- Enabled = True
- Width = 50
- AutoFit = False
- end>
- SimplePanel = False
- end
- object ActionList1: TActionList
- Images = Data.ImageList2
- Left = 10
- Top = 408
- object AcCollapse: TAction
- Category = 'RSS'
- Caption = 'Sbalit'
- Hint = 'Sbalit|Sbalit seznam'
- ImageIndex = 4
- OnExecute = AcCollapseExecute
- end
- object AcExpand: TAction
- Category = 'RSS'
- Caption = 'Rozbalit'
- Hint = 'Rozbalit|Rozbalit seznam'
- ImageIndex = 3
- OnExecute = AcExpandExecute
- end
- object AcSetup: TAction
- Category = 'RSS'
- Caption = 'Nastavit'
- Hint = 'Nastavit|Nastaven'#237' programu'
- ImageIndex = 7
- OnExecute = AcSetupExecute
- end
- object AcRefresh: TAction
- Category = 'RSS'
- Caption = 'Aktualizovat'
- Hint = 'Aktaulizuj|Znovu na'#269#237'st'
- ImageIndex = 5
- OnExecute = AcRefreshExecute
- end
- object AcAddChannel: TAction
- Category = 'RSS'
- Caption = 'P'#345'idat'
- Hint = 'P'#345'idej|P'#345'idej nov'#253' kan'#225'l'
- ImageIndex = 2
- OnExecute = AcAddChannelExecute
- end
- object AcEditLink: TAction
- Category = 'RSS'
- Caption = 'Upravit'
- Hint = 'Upravit|Upravit kan'#225'l'
- ImageIndex = 1
- OnExecute = AcEditLinkExecute
- end
- object AcDeleteLink: TAction
- Category = 'RSS'
- Caption = 'Odstranit'
- Hint = 'Vyma'#382'|Vyma'#382' zvolen'#253' kan'#225'l'
- ImageIndex = 0
- OnExecute = AcDeleteLinkExecute
- end
- object AcBack: TAction
- Category = 'Explorer'
- Caption = 'Zp'#283't'
- Hint = 'Zp'#283't|Zp'#283't'
- ImageIndex = 8
- OnExecute = AcBackExecute
- end
- object AcForward: TAction
- Category = 'Explorer'
- Caption = 'Vp'#345'ed'
- Hint = 'Vp'#345'ed|Vp'#345'ed'
- ImageIndex = 9
- OnExecute = AcForwardExecute
- end
- object AcStop: TAction
- Category = 'Explorer'
- Caption = 'Stop'
- Hint = 'Zastavit|Ukon'#269'it na'#269#237't'#225'n'#237
- ImageIndex = 10
- OnExecute = AcStopExecute
- end
- object AcActualize: TAction
- Category = 'Explorer'
- Caption = 'Obnovit'
- Hint = 'Aktualizovat |Aktualizovat str'#225'nku'
- ImageIndex = 11
- OnExecute = AcActualizeExecute
- end
- object AcHome: TAction
- Category = 'Explorer'
- Caption = 'Dom'#367
- Hint = 'Dom'#367'|Domovsk'#225' str'#225'nka'
- ImageIndex = 12
- OnExecute = AcHomeExecute
- end
- object AcAbout: TAction
- Category = 'RSS'
- Caption = 'O programu'
- Hint = 'O programu|Informace o aplikaci'
- ImageIndex = 6
- OnExecute = AcAboutExecute
- end
- object AcImport: TAction
- Category = 'RSS'
- Caption = 'Import'
- Hint = 'Na'#269#237'st|St'#225'hnout seznam kan'#225'l'#367' z webu'
- ImageIndex = 13
- OnExecute = AcImportExecute
- end
- object AcActualizeChannel: TAction
- Category = 'LocalMenu'
- Caption = 'Aktualizovat kan'#225'l'
- Hint = 'Aktualizuje pouze vybran'#253' kan'#225'l'
- OnExecute = AcActualizeChannelExecute
- end
- object AcGoBlogHome: TAction
- Category = 'LocalMenu'
- Caption = 'P'#345'ej'#237't na kan'#225'l'
- Hint = 'P'#345'ejde na hlavn'#237' str'#225'nku kan'#225'lu'
- OnExecute = AcGoBlogHomeExecute
- end
- object AcChannelToWin: TAction
- Category = 'LocalMenu'
- Caption = 'Kan'#225'l do okna'
- OnExecute = AcChannelToWinExecute
- end
- end
- object FormStorage1: TFormStorage
- IniFileName = 'Software\ForCom Software\RssTracker'
- IniSection = 'MainWin'
- UseRegistry = True
- OnRestorePlacement = FormStorage1RestorePlacement
- StoredProps.Strings = (
- 'TreePanel.Width')
- StoredValues = <>
- Left = 176
- Top = 438
- end
- object DropURLTarget1: TDropURLTarget
- Dragtypes = [dtCopy, dtMove, dtLink]
- GetDataOnEnter = True
- OnDrop = DropURLTarget1Drop
- ShowImage = True
- AllowAsyncTransfer = False
- Left = 142
- Top = 438
- end
- object ApplicationEvents1: TApplicationEvents
- OnHint = ApplicationEvents1Hint
- OnMinimize = ApplicationEvents1Minimize
- OnRestore = ApplicationEvents1Restore
- Left = 76
- Top = 408
- end
- object Timer1: TTimer
- Enabled = False
- OnTimer = Timer1Timer
- Left = 109
- Top = 438
- end
- object UpdateTimer: TTimer
- OnTimer = UpdateTimerTimer
- Left = 142
- Top = 408
- end
- object TreeMenu: TPopupMenu
- OnPopup = TreeMenuPopup
- Left = 43
- Top = 408
- object Aktualizujkanl1: TMenuItem
- Action = AcActualizeChannel
- end
- object Obnovit1: TMenuItem
- Action = AcRefresh
- Caption = 'Aktualizovat v'#353'e'
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Jdinahlstrnku1: TMenuItem
- Action = AcGoBlogHome
- end
- object AcHide1: TMenuItem
- Action = AcChannelToWin
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object Pidat1: TMenuItem
- Action = AcAddChannel
- end
- object Upravit1: TMenuItem
- Action = AcEditLink
- end
- object Odstranit1: TMenuItem
- Action = AcDeleteLink
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Rozbalit1: TMenuItem
- Action = AcExpand
- end
- object Sbalit1: TMenuItem
- Action = AcCollapse
- end
- end
- object IEPageMenu: TPopupMenu
- OnPopup = IEPageMenuPopup
- Left = 43
- Top = 438
- object Zavistrnku1: TMenuItem
- Action = EAcClosePage
- end
- end
- object ActionList2: TActionList
- Left = 76
- Top = 438
- object EAcClosePage: TAction
- Caption = 'Zav'#345'i str'#225'nku'
- OnExecute = EAcClosePageExecute
- end
- end
- object TrayIcon: TRxTrayIcon
- Active = False
- Icon.Data = {<image001.ico>}
- Icons.Icons = {
- 040000003E010000000001000100101010000000000028010000160000002800
- 000010000000200000000100040000000000C000000000000000000000000000
- 0000000000000000000000008000008000000080800080000000800080008080
- 000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF
- 0000FFFFFF00000000000000000000FFFFFFFFFFFF0000F9999999999F0000F9
- 9FF99FF99F0000FFF99FF99FFF0000F9999999999F0000FFFFFFFFFFFF000000
- 00000000000000FFFFFFFFFFFF00000000000000000000F00F0FFF0FFF0000F0
- FF000F000F0000FFF00FF00FF00000F00F0F000F000000FFF000FF00FF000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000003E01000000000100010010101000000000002801000016000000
- 2800000010000000200000000100040000000000C00000000000000000000000
- 0000000000000000000000000000800000800000008080008000000080008000
- 8080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00
- FFFF0000FFFFFF00000000000000000000FFFFFFFFFFFF0000F9999999999F00
- 00F9FF99FF99FF0000FF99FF99FF9F0000F9999999999F0000FFFFFFFFFFFF00
- 000000000000000000FFFFFFFFFFFF00000000000000000000F00F0FFF0FFF00
- 00F0FF000F000F0000FFF00FF00FF00000F00F0F000F000000FFF000FF00FF00
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000003E0100000000010001001010100000000000280100001600
- 00002800000010000000200000000100040000000000C0000000000000000000
- 0000000000000000000000000000000080000080000000808000800000008000
- 80008080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00
- FF00FFFF0000FFFFFF00000000000000000000FFFFFFFFFFFF0000F999999999
- 9F0000FFF99FF99FFF0000F99FF99FF99F0000F9999999999F0000FFFFFFFFFF
- FF00000000000000000000FFFFFFFFFFFF00000000000000000000F00F0FFF0F
- FF0000F0FF000F000F0000FFF00FF00FF00000F00F0F000F000000FFF000FF00
- FF00000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000003E010000000001000100101010000000000028010000
- 160000002800000010000000200000000100040000000000C000000000000000
- 0000000000000000000000000000000000008000008000000080800080000000
- 800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000
- FF00FF00FFFF0000FFFFFF00000000000000000000FFFFFFFFFFFF0000F99999
- 99999F0000FF99FF99FF9F0000F9FF99FF99FF0000F9999999999F0000FFFFFF
- FFFFFF00000000000000000000FFFFFFFFFFFF00000000000000000000F00F0F
- FF0FFF0000F0FF000F000F0000FFF00FF00FF00000F00F0F000F000000FFF000
- FF00FF0000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000}
- OnDblClick = TrayIconDblClick
- Left = 10
- Top = 438
- end
- object TimerList: TRxTimerList
- Left = 109
- Top = 408
- end
- object OneInstance1: TOneInstance
- InformUser = False
- RaisePriorInstance = True
- Left = 176
- Top = 408
- end
- object RxWindowHook1: TRxWindowHook
- Left = 25
- Top = 60
- IsForm = True
- end
- end
-