home *** CD-ROM | disk | FTP | other *** search
- object FormSetPicDirWiz: TFormSetPicDirWiz
- Left = 339
- Top = 573
- HelpContext = 132
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Set Picture Folder Wizard'
- ClientHeight = 336
- ClientWidth = 471
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PanelBtm: TPanel
- Left = 0
- Top = 300
- Width = 471
- Height = 36
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- object Bevel1: TBevel
- Left = 0
- Top = 0
- Width = 471
- Height = 2
- Align = alTop
- Shape = bsBottomLine
- end
- object PanelBtns: TPanel
- Left = 199
- Top = 2
- Width = 272
- Height = 34
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 0
- object BtnBack: TButton
- Left = 6
- Top = 5
- Width = 75
- Height = 25
- Caption = '< Back'
- TabOrder = 0
- OnClick = BtnBackClick
- end
- object BtnNext: TButton
- Left = 87
- Top = 5
- Width = 75
- Height = 25
- Caption = 'Next >'
- Default = True
- TabOrder = 1
- OnClick = BtnNextClick
- end
- object BtnCancel: TButton
- Left = 190
- Top = 5
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- TabOrder = 2
- OnClick = BtnCancelClick
- end
- end
- object BtnHelp: TButton
- Left = 16
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 1
- OnClick = BtnHelpClick
- end
- end
- object PgSetPicDirWiz: TNotebook
- Left = 0
- Top = 0
- Width = 471
- Height = 300
- Align = alClient
- PageIndex = 1
- TabOrder = 1
- OnPageChanged = PgSetPicDirWizPageChanged
- object TPage
- Left = 0
- Top = 0
- Caption = 'tsWelcome'
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 471
- Height = 300
- Align = alClient
- BevelOuter = bvNone
- Caption = 'Panel2'
- TabOrder = 0
- object Image2: TImage
- Left = 0
- Top = 0
- Width = 164
- Height = 300
- Align = alLeft
- end
- object Panel3: TPanel
- Left = 164
- Top = 0
- Width = 307
- Height = 300
- Align = alClient
- BevelOuter = bvNone
- Color = clWindow
- TabOrder = 0
- object Label1: TLabel
- Left = 13
- Top = 16
- Width = 225
- Height = 40
- Caption = 'Welcome to the Set Picture Folder Wizard'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object Label16: TLabel
- Left = 13
- Top = 76
- Width = 267
- Height = 39
- Caption =
- 'This wizard helps you set your picture folder. FotoAlbum uses t' +
- 'his folder to store your pictures and periodically scans this lo' +
- 'cation for new pictures.'
- WordWrap = True
- end
- object Label17: TLabel
- Left = 13
- Top = 132
- Width = 238
- Height = 13
- Caption = 'Click Next to continue or Cancel to exit this wizard.'
- WordWrap = True
- end
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'tsIntro'
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 471
- Height = 300
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object Bevel3: TBevel
- Left = 0
- Top = 49
- Width = 471
- Height = 2
- Align = alTop
- Shape = bsTopLine
- end
- object RbSearch: TRadioButton
- Left = 13
- Top = 59
- Width = 281
- Height = 17
- Caption = 'Search for folders that already contain pictures.'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object RbChoose: TRadioButton
- Left = 13
- Top = 81
- Width = 281
- Height = 17
- Caption = 'Choose a picture folder.'
- TabOrder = 1
- end
- object Panel7: TPanel
- Left = 0
- Top = 0
- Width = 471
- Height = 49
- Align = alTop
- BevelOuter = bvNone
- Color = clWindow
- TabOrder = 2
- DesignSize = (
- 471
- 49)
- object Label10: TLabel
- Left = 96
- Top = 8
- Width = 328
- Height = 13
- Caption =
- 'Let FotoAlbum search for your pictures, or manually specify a lo' +
- 'cation.'
- end
- object Label15: TLabel
- Left = 13
- Top = 8
- Width = 44
- Height = 13
- Caption = 'Options'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object LbCurPictFolder: TLabel
- Left = 96
- Top = 23
- Width = 108
- Height = 13
- Anchors = [akLeft, akBottom]
- Caption = 'Current Picture Folder: '
- end
- end
- object JamShellTree1: TJamShellTree
- Left = 32
- Top = 101
- Width = 375
- Height = 194
- RootedAt = SF_DESKTOP
- SpecialFolder = SF_DESKTOP
- OleDragDrop = True
- ShellContextMenu = True
- ShowOptions = [soShowNethood, soShowRecycleBin, soShowErrorMessages]
- Filter = '*'
- ReadOnly = True
- HideSelection = False
- Indent = 19
- TabOrder = 3
- ParentFont = False
- RightClickSelect = True
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'tsSearchDir'
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 471
- Height = 300
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object LbCurDir: TLabel
- Left = 127
- Top = 80
- Width = 41
- Height = 13
- Caption = 'LbCurDir'
- end
- object Label7: TLabel
- Left = 39
- Top = 80
- Width = 86
- Height = 13
- Caption = 'Searching Folder: '
- end
- object Label8: TLabel
- Left = 23
- Top = 80
- Width = 6
- Height = 15
- Caption = #183
- Font.Charset = SYMBOL_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Symbol'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Bevel4: TBevel
- Left = 0
- Top = 49
- Width = 471
- Height = 2
- Align = alTop
- Shape = bsTopLine
- end
- object Panel8: TPanel
- Left = 0
- Top = 0
- Width = 471
- Height = 49
- Align = alTop
- BevelOuter = bvNone
- Color = clWindow
- TabOrder = 0
- DesignSize = (
- 471
- 49)
- object Label2: TLabel
- Left = 96
- Top = 8
- Width = 139
- Height = 13
- Caption = 'Searching for Picture Folders.'
- end
- object Label9: TLabel
- Left = 13
- Top = 8
- Width = 58
- Height = 13
- Caption = 'Searching'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label18: TLabel
- Left = 96
- Top = 23
- Width = 164
- Height = 13
- Anchors = [akLeft, akBottom]
- Caption = 'This may take a couple of minutes.'
- end
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'tsSearchRslts'
- object Panel5: TPanel
- Left = 0
- Top = 0
- Width = 471
- Height = 300
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 471
- 300)
- object Bevel5: TBevel
- Left = 0
- Top = 49
- Width = 471
- Height = 2
- Align = alTop
- Shape = bsTopLine
- end
- object LvDirs: TListView
- Left = 8
- Top = 62
- Width = 449
- Height = 225
- Anchors = [akLeft, akTop, akRight, akBottom]
- Columns = <
- item
- Caption = 'Folder'
- Width = 300
- end
- item
- AutoSize = True
- Caption = 'Number of Pictures'
- end>
- ReadOnly = True
- RowSelect = True
- TabOrder = 0
- ViewStyle = vsReport
- OnClick = LvDirsClick
- OnSelectItem = LvDirsSelectItem
- end
- object Panel9: TPanel
- Left = 0
- Top = 0
- Width = 471
- Height = 49
- Align = alTop
- BevelOuter = bvNone
- Color = clWindow
- TabOrder = 1
- DesignSize = (
- 471
- 49)
- object Label5: TLabel
- Left = 108
- Top = 8
- Width = 288
- Height = 13
- Caption =
- 'Below is a list of folders that have pictures. Select a directo' +
- 'ry'
- end
- object Label6: TLabel
- Left = 13
- Top = 8
- Width = 76
- Height = 13
- Caption = 'Select Folder'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label19: TLabel
- Left = 107
- Top = 23
- Width = 216
- Height = 13
- Anchors = [akLeft, akBottom]
- Caption = 'you want to use as FotoAlbum'#39's picture folder.'
- end
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'tsConfirm'
- object Panel6: TPanel
- Left = 0
- Top = 0
- Width = 471
- Height = 300
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 471
- 300)
- object Label14: TLabel
- Left = 17
- Top = 87
- Width = 212
- Height = 13
- Caption = 'If this folder is correct, click the Finish button.'
- end
- object Label13: TLabel
- Left = 18
- Top = 127
- Width = 65
- Height = 13
- Caption = 'Picture Folder'
- end
- object Bevel2: TBevel
- Left = 0
- Top = 49
- Width = 471
- Height = 2
- Align = alTop
- Shape = bsTopLine
- end
- object EditPicDir: TEdit
- Left = 96
- Top = 123
- Width = 334
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- Color = clInactiveBorder
- ReadOnly = True
- TabOrder = 0
- end
- object Panel10: TPanel
- Left = 0
- Top = 0
- Width = 471
- Height = 49
- Align = alTop
- BevelOuter = bvNone
- Color = clWindow
- TabOrder = 1
- DesignSize = (
- 471
- 49)
- object Label3: TLabel
- Left = 96
- Top = 8
- Width = 314
- Height = 13
- Caption =
- 'Below is the picture folder that FotoAlbum uses to store all pic' +
- 'tures.'
- end
- object Label4: TLabel
- Left = 13
- Top = 8
- Width = 48
- Height = 13
- Caption = 'Finished'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label20: TLabel
- Left = 96
- Top = 23
- Width = 298
- Height = 13
- Anchors = [akLeft, akBottom]
- Caption =
- 'FotoAlbum also periodically scans this location for new pictures' +
- '.'
- end
- end
- end
- end
- end
- end
-