Softwarová Záchrana 3/Softwarova-zachrana-3.bin/WPChanger/WPChangerSetup.exe/WPChanger.exe/0/RCDATA/TFRMMAIN1/TFRMMAIN1.txt

Text File | 2004-10-04 | 13KB | 563 lines

object frmMain1: TfrmMain1
  Left = 554
  Top = 190
  Width = 290
  Height = 428
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Wallpaper Changer'
  Color = clBtnFace
  Constraints.MinHeight = 355
  Constraints.MinWidth = 290
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = pmMenu1
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel2: TBevel
    Left = 0
    Top = 43
    Width = 2
    Height = 320
    Align = alLeft
    Shape = bsSpacer
  end
  object Bevel3: TBevel
    Left = 280
    Top = 43
    Width = 2
    Height = 320
    Align = alRight
    Shape = bsSpacer
  end
  object vdtListFiles1: TVirtualDrawTree
    Left = 2
    Top = 43
    Width = 278
    Height = 320
    Align = alClient
    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 = [hoColumnResize, hoDrag, hoVisible]
    Header.Style = hsXPStyle
    TabOrder = 3
    TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toThemeAware, toUseBlendedImages]
    TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
    OnChange = vdtListFiles1Change
    OnClick = vdtListFiles1Click
    OnDblClick = vdtListFiles1DblClick
    OnDrawNode = vdtListFiles1DrawNode
    OnFreeNode = vdtListFiles1FreeNode
    OnGetNodeWidth = vdtListFiles1GetNodeWidth
    OnInitNode = vdtListFiles1InitNode
    OnLoadNode = vdtListFiles1LoadNode
    OnSaveNode = vdtListFiles1SaveNode
    Columns = <
      item
        Position = 0
        Width = 200
        WideText = 'Filename'
      end
      item
        Position = 1
        Width = 250
        WideText = 'Path'
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 363
    Width = 282
    Height = 31
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      282
      31)
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 282
      Height = 3
      Align = alTop
      Shape = bsTopLine
    end
    object btnCycle1: TButton
      Left = 208
      Top = 6
      Width = 69
      Height = 21
      Action = actCycle1
      Anchors = [akRight, akBottom]
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object btnAdd1: TButton
      Left = 5
      Top = 6
      Width = 69
      Height = 21
      Action = actAdd1
      Anchors = [akLeft, akBottom]
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 24
    Width = 282
    Height = 19
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object lblFiles1: TLabel
      Left = 56
      Top = 0
      Width = 6
      Height = 19
      Align = alLeft
      Caption = '0'
      Layout = tlCenter
    end
    object lblThereAre1: TLabel
      Left = 6
      Top = 0
      Width = 50
      Height = 19
      Align = alLeft
      Caption = 'There are '
      Layout = tlCenter
    end
    object lblFilesListed1: TLabel
      Left = 62
      Top = 0
      Width = 54
      Height = 19
      Align = alLeft
      Caption = ' files listed:'
      Layout = tlCenter
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 6
      Height = 19
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
    end
  end
  object ActionMainMenuBar1: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 282
    Height = 24
    UseSystemFont = False
    ActionManager = actManager1
    Caption = 'ActionMainMenuBar1'
    ColorMap.HighlightColor = 15660791
    ColorMap.BtnSelectedColor = clBtnFace
    ColorMap.UnusedColor = 15660791
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Spacing = 0
  end
  object tmrCycle1: TTimer
    Enabled = False
    OnTimer = tmrCycle1Timer
    Left = 112
    Top = 69
  end
  object trayIcon1: TCoolTrayIcon
    CycleInterval = 0
    Icon.Data = {<image000.ico>}
    IconIndex = 0
    PopupMenu = pmMenu1
    OnMouseDown = trayIcon1MouseDown
    OnStartup = trayIcon1Startup
    Left = 79
    Top = 69
  end
  object pmMenu1: TPopupMenu
    AutoHotkeys = maManual
    OnPopup = pmMenu1Popup
    Left = 48
    Top = 69
    object miShow1: TMenuItem
      Caption = 'S&how'
      Default = True
      OnClick = miShow1Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Add1: TMenuItem
      Action = actAdd1
    end
    object AddFolder1: TMenuItem
      Action = actAddFolder1
    end
    object Deleteselected1: TMenuItem
      Action = actDelete1
    end
    object miClear1: TMenuItem
      Caption = 'Cl&ear All'
      OnClick = miClear1Click
    end
    object Clearnonexisting1: TMenuItem
      Action = actClearNonExisting1
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object miSetaswallpaper1: TMenuItem
      Caption = '&Set as wallpaper'
      ShortCut = 120
      OnClick = miSetaswallpaper1Click
    end
    object Deletecurrentwallpaper1: TMenuItem
      Caption = 'Delete current &wallpaper'
      ShortCut = 16430
      OnClick = Deletecurrentwallpaper1Click
    end
    object miPreview1: TMenuItem
      Action = actPreview1
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object SaveFileList1: TMenuItem
      Action = actSave1
    end
    object LoadFileList1: TMenuItem
      Action = actLoad1
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Options1: TMenuItem
      Caption = '&Options'
      OnClick = actDisableCycling1Execute
      object DisableCycling1: TMenuItem
        Action = actDisableCycling1
      end
      object ShowTray1: TMenuItem
        Action = actShowTray1
      end
      object miStartwithWindows1: TMenuItem
        Caption = 'Start with &Windows'
        OnClick = miStartwithWindows1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object miPreferences1: TMenuItem
        Action = actPreferences1
      end
      object miSetLanguage1: TMenuItem
        Caption = 'Set &Language'
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object CreateScreensaver1: TMenuItem
        Action = actCreateScreensaver1
      end
    end
    object Cycle1: TMenuItem
      Action = actCycle1
    end
    object miPrevious1: TMenuItem
      Caption = '&Previous'
      Enabled = False
      OnClick = miPrevious1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Close1: TMenuItem
      Caption = 'C&lose'
      ShortCut = 32883
      OnClick = Close1Click
    end
  end
  object tmrStart1: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = tmrStart1Timer
    Left = 144
    Top = 69
  end
  object actManager1: TActionManager
    ActionBars = <
      item
        Items = <
          item
            Items = <
              item
                Action = actSave1
                ShortCut = 16467
              end
              item
                Action = actLoad1
                ShortCut = 16460
              end
              item
                Caption = '-'
              end
              item
                Action = actClose1
                ShortCut = 32883
              end>
            Caption = '&File'
          end
          item
            Items = <
              item
                Action = actAdd1
                ShortCut = 16449
              end
              item
                Action = actAddFolder1
              end
              item
                Action = actDelete1
                ShortCut = 46
              end
              item
                Action = actClearNonExisting1
              end>
            Caption = '&Edit'
          end
          item
            Items = <
              item
                Action = actPreview1
                ShortCut = 113
              end
              item
                Action = actSetAsWallPaper1
                ShortCut = 120
              end
              item
                Caption = '-'
              end
              item
                Action = actEditImage1
              end
              item
                Caption = '-'
              end
              item
                Action = actCreateScreensaver1
              end>
            Caption = '&Tools'
          end
          item
            Items = <
              item
                Action = actDisableCycling1
              end
              item
                Action = actShowTray1
              end
              item
                Caption = '-'
              end
              item
                Action = actPreferences1
                ShortCut = 115
              end>
            Caption = '&Options'
          end
          item
            Items = <
              item
                Action = Action1
                Caption = 'Visit &Website...          '
              end
              item
                Visible = False
                Action = actContents1
                ShortCut = 112
              end
              item
                Caption = '-'
              end
              item
                Action = actAbout1
              end>
            Caption = '&Help'
          end>
        ActionBar = ActionMainMenuBar1
      end>
    Left = 14
    Top = 69
    StyleName = 'XP Style'
    object actDisableCycling1: TAction
      Category = 'Options'
      Caption = '&Disable auto cycling'
      Checked = True
      OnExecute = actDisableCycling1Execute
    end
    object actShowTray1: TAction
      Category = 'Options'
      Caption = 'Show &Tray'
      Checked = True
      OnExecute = actShowTray1Execute
    end
    object actCycle1: TAction
      Caption = '&Cycle!'
      ShortCut = 120
      OnExecute = actCycle1Execute
    end
    object actAdd1: TAction
      Category = 'Edit'
      Caption = '&Add'
      ShortCut = 16449
      OnExecute = actAdd1Execute
    end
    object actAddFolder1: TAction
      Category = 'Edit'
      Caption = 'Add &Folder'
      OnExecute = actAddFolder1Execute
    end
    object actDelete1: TAction
      Category = 'Edit'
      Caption = '&Delete selected'
      ShortCut = 46
      OnExecute = actDelete1Execute
    end
    object actClearNonExisting1: TAction
      Category = 'Edit'
      Caption = 'C&lear non existing              '
      OnExecute = actClearNonExisting1Execute
    end
    object actSave1: TAction
      Category = 'File'
      Caption = '&Save FileList...'
      ShortCut = 16467
      OnExecute = actSave1Execute
    end
    object actPreferences1: TAction
      Category = 'Options'
      Caption = '&Preferences'
      ShortCut = 115
      OnExecute = actPreferences1Execute
    end
    object actLoad1: TAction
      Category = 'File'
      Caption = 'L&oad FileList...'
      ShortCut = 16460
      OnExecute = actLoad1Execute
    end
    object actClose1: TAction
      Category = 'File'
      Caption = 'C&lose      '
      ShortCut = 32883
      OnExecute = actClose1Execute
    end
    object actPreview1: TAction
      Category = 'Tools'
      Caption = '&Preview'
      ShortCut = 113
      OnExecute = actPreview1Execute
    end
    object actEditImage1: TAction
      Category = 'Tools'
      Caption = '&Edit Image       '
      Enabled = False
      OnExecute = actEditImage1Execute
    end
    object actContents1: TAction
      Category = 'Help'
      Caption = '&Contents...          '
      ShortCut = 112
      Visible = False
      OnExecute = actContents1Execute
    end
    object Action1: TAction
      Category = 'Help'
      Caption = 'Visit &Website...'
      OnExecute = Action1Execute
    end
    object actAbout1: TAction
      Category = 'Help'
      Caption = '&About'
      OnExecute = actAbout1Execute
    end
    object actSetAsWallPaper1: TAction
      Category = 'Tools'
      Caption = 'Set as &Wallpaper'
      Enabled = False
      ShortCut = 120
      OnExecute = miSetaswallpaper1Click
    end
    object actCreateScreensaver1: TAction
      Category = 'Tools'
      Caption = '&Create Screensaver'
      OnExecute = actCreateScreensaver1Execute
    end
  end
  object tmrMain1: TTimer
    OnTimer = tmrMain1Timer
    Left = 176
    Top = 69
  end
  object XPThemeAPI1: TXPThemeAPI
    Left = 208
    Top = 69
  end
  object tmrDefiniteDate1: TTimer
    Interval = 5000
    OnTimer = tmrDefiniteDate1Timer
    Left = 16
    Top = 104
  end
  object dlgOpen1: TOpenDialog
    DefaultExt = '.wcp'
    Filter = 'WPChanger Files (*.wcp)|*.wcp'
    Title = 'Load a WPChanger List'
    Left = 48
    Top = 104
  end
  object dlgSave1: TSaveDialog
    DefaultExt = '.wcp'
    FileName = 'Files.wcp'
    Filter = 'WPChanger Files (*.wcp)|*.wcp'
    Title = 'Save WPChanger List'
    Left = 80
    Top = 104
  end
end