home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softwarová Záchrana 3
/
Softwarova-zachrana-3.bin
/
WPChanger
/
WPChangerSetup.exe
/
WPChanger.exe
/
0
/
RCDATA
/
TFRMMAIN1
/
TFRMMAIN1.txt
< prev
Wrap
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