home *** CD-ROM | disk | FTP | other *** search
- object FormMultiPicEdit: TFormMultiPicEdit
- Left = 471
- Top = 351
- HelpContext = 303
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Multiple Picture Properties'
- ClientHeight = 387
- ClientWidth = 430
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 346
- Width = 430
- Height = 41
- Align = alBottom
- TabOrder = 0
- DesignSize = (
- 430
- 41)
- object BtnOk: TButton
- Left = 248
- Top = 8
- Width = 75
- Height = 25
- Anchors = [akTop, akRight]
- Caption = 'OK'
- Default = True
- TabOrder = 0
- OnClick = BtnOkClick
- end
- object Button2: TButton
- Left = 338
- Top = 8
- Width = 75
- Height = 25
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object BtnHelp: TButton
- Left = 10
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 2
- OnClick = BtnHelpClick
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 430
- Height = 346
- Align = alClient
- TabOrder = 1
- DesignSize = (
- 430
- 346)
- object Label1: TLabel
- Left = 23
- Top = 10
- Width = 304
- Height = 13
- Caption = 'Select the value(s) you want to change on the selected pictures.'
- end
- object BtnPictDate: TSpeedButton
- Left = 271
- Top = 123
- Width = 23
- Height = 22
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333FFFFFFFFFFFFFFF000000000000000077777777777777770FF7FF7FF7FF
- 7FF07FF7FF7FF7F37F3709F79F79F7FF7FF077F77F77F7FF7FF7077777777777
- 777077777777777777770FF7FF7FF7FF7FF07FF7FF7FF7FF7FF709F79F79F79F
- 79F077F77F77F77F77F7077777777777777077777777777777770FF7FF7FF7FF
- 7FF07FF7FF7FF7FF7FF709F79F79F79F79F077F77F77F77F77F7077777777777
- 777077777777777777770FFFFF7FF7FF7FF07F33337FF7FF7FF70FFFFF79F79F
- 79F07FFFFF77F77F77F700000000000000007777777777777777CCCCCC8888CC
- CCCC777777FFFF777777CCCCCCCCCCCCCCCC7777777777777777}
- NumGlyphs = 2
- OnClick = BtnPictDateClick
- end
- object Label2: TLabel
- Left = 274
- Top = 152
- Width = 23
- Height = 13
- Caption = 'Time'
- end
- object LblNumPics: TLabel
- Left = 10
- Top = 328
- Width = 107
- Height = 13
- Anchors = [akLeft, akBottom]
- Caption = '(xxx) Selected Pictures'
- end
- object btnAddKeywords: TSpeedButton
- Left = 400
- Top = 76
- Width = 20
- Height = 20
- Caption = '...'
- OnClick = btnAddKeywordsClick
- end
- object BtnRemoveKeywords: TSpeedButton
- Left = 400
- Top = 100
- Width = 20
- Height = 20
- Caption = '...'
- OnClick = BtnRemoveKeywordsClick
- end
- object EditCaption: TEdit
- Left = 152
- Top = 34
- Width = 245
- Height = 21
- Color = clBtnFace
- TabOrder = 0
- end
- object EditPictDate: TEdit
- Left = 152
- Top = 123
- Width = 115
- Height = 21
- CharCase = ecUpperCase
- TabOrder = 1
- OnChange = EditPictDateChange
- end
- object EditTime: TEdit
- Left = 152
- Top = 148
- Width = 116
- Height = 21
- CharCase = ecUpperCase
- TabOrder = 2
- end
- object RbWebPublish: TRadioGroup
- Left = 152
- Top = 171
- Width = 265
- Height = 73
- Caption = 'Publish to Web'
- Items.Strings = (
- 'Not Published (PC only)'
- 'Public Web'
- 'Private Web')
- TabOrder = 3
- OnClick = RbWebPublishClick
- end
- object cbCaptions: TCheckBox
- Left = 11
- Top = 36
- Width = 137
- Height = 17
- Caption = 'Change captions to'
- TabOrder = 4
- OnClick = cbCaptionsClick
- end
- object cbDateTime: TCheckBox
- Left = 11
- Top = 125
- Width = 135
- Height = 17
- Caption = 'Change dates to'
- TabOrder = 5
- OnClick = cbDateTimeClick
- end
- object cbPublished: TCheckBox
- Left = 11
- Top = 176
- Width = 135
- Height = 17
- Caption = 'Change published to'
- TabOrder = 6
- OnClick = cbPublishedClick
- end
- object cbUseFiledate: TCheckBox
- Left = 299
- Top = 126
- Width = 102
- Height = 17
- Caption = 'Use file dates'
- TabOrder = 7
- OnClick = cbUseFiledateClick
- end
- object EditAddToKeywords: TEdit
- Left = 152
- Top = 75
- Width = 245
- Height = 21
- TabOrder = 8
- end
- object cbAddToKeywords: TCheckBox
- Left = 11
- Top = 77
- Width = 137
- Height = 17
- Caption = 'Add to keywords'
- TabOrder = 9
- OnClick = cbAddToKeywordsClick
- end
- object cbRemoveKeywords: TCheckBox
- Left = 11
- Top = 101
- Width = 137
- Height = 17
- Caption = 'Remove from keywords'
- TabOrder = 10
- OnClick = cbRemoveKeywordsClick
- end
- object EditRemoveKeywords: TEdit
- Left = 152
- Top = 99
- Width = 245
- Height = 21
- TabOrder = 11
- end
- object cbUseFilenames: TCheckBox
- Left = 152
- Top = 56
- Width = 233
- Height = 17
- Caption = 'Use filenames for captions (if blank)'
- TabOrder = 12
- OnClick = cbUseFilenamesClick
- end
- object cbChgWebReduce: TCheckBox
- Left = 11
- Top = 256
- Width = 140
- Height = 17
- Caption = 'Change Web Reduce to'
- TabOrder = 13
- OnClick = cbChgWebReduceClick
- end
- object GroupBox1: TGroupBox
- Left = 152
- Top = 243
- Width = 265
- Height = 85
- TabOrder = 14
- object LblReduce: TLabel
- Left = 32
- Top = 35
- Width = 50
- Height = 13
- Caption = 'Reduce to'
- end
- object LblCompress: TLabel
- Left = 32
- Top = 58
- Width = 60
- Height = 13
- Caption = 'Compression'
- end
- object cbWebReduce: TCheckBox
- Left = 13
- Top = 11
- Width = 180
- Height = 17
- Caption = 'Reduce picture on web (JPEG)'
- TabOrder = 0
- OnClick = cbWebReduceClick
- end
- object cbWebReduceAmt: TComboBox
- Left = 96
- Top = 31
- Width = 161
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- Items.Strings = (
- 'No reduction'
- '640x480'
- '800x600'
- '1024x768'
- '1280x1024'
- '1600x1200')
- end
- object cbWebCompression: TComboBox
- Left = 96
- Top = 55
- Width = 161
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 2
- TabOrder = 2
- Text = '75 = Average compression'
- Items.Strings = (
- '55 = Very high compression'
- '65 = High compression'
- '75 = Average compression'
- '85 = Low compression'
- '95 = Minimal compression')
- end
- end
- end
- end
-