Chip 2004 June/CHIP_CD_2004-06.iso/software/foto/faprosetup.exe/FotoAlbum.exe/0/RCDATA/TFORMPICDETAIL/TFORMPICDETAIL.txt

Text File | 2004-04-06 | 21.6 KB | 790 lines

object FormPicDetail: TFormPicDetail
  Left = 421
  Top = 181
  HelpContext = 225
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Picture Properties'
  ClientHeight = 377
  ClientWidth = 553
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PanelBottom: TPanel
    Left = 0
    Top = 336
    Width = 553
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      553
      41)
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 553
      Height = 2
      Align = alTop
      Shape = bsTopLine
    end
    object BtnOK: TButton
      Left = 388
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'OK'
      Default = True
      TabOrder = 0
      OnClick = BtnOKClick
    end
    object BtnCancel: TButton
      Left = 470
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 1
      OnClick = BtnCancelClick
    end
    object BtnHelp: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Help'
      TabOrder = 2
      OnClick = BtnHelpClick
    end
  end
  object PanelClient: TPanel
    Left = 0
    Top = 49
    Width = 553
    Height = 287
    Align = alClient
    BevelOuter = bvNone
    Caption = 'PanelClient'
    TabOrder = 1
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 140
      Height = 287
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      DesignSize = (
        140
        287)
      object LblDimensions: TLabel
        Left = 13
        Top = 158
        Width = 116
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '1600 x 1200 (24bpp)'
      end
      object BtnPrev: TSpeedButton
        Left = 8
        Top = 196
        Width = 56
        Height = 17
        Hint = 'Previous Picture (Ctrl-P)'
        Anchors = [akLeft, akBottom]
        Caption = 'Prev'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000C40E0000C40E00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333FF3333333333333003333333333333F77F3333333333300E033
          333333333F7737F33333333300EEE0333333333F773337FFFFFF3300EEEEE000
          00003F7733333777777700EEEEEEEEEEEEE0773FF33333FFFFF73300EEEEE000
          000033773FF337777777333300EEE03333333333773FF7F3333333333300E033
          33333333337737F3333333333333003333333333333377333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = BtnPrevClick
      end
      object BtnNext: TSpeedButton
        Left = 76
        Top = 196
        Width = 56
        Height = 17
        Hint = 'Next Picture (Ctrl-N)'
        Anchors = [akLeft, akBottom]
        Caption = 'Next'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000C40E0000C40E00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333FF3333333333333003333
          3333333333773FF333333333330E003333333333337F773FF3333333330EEE00
          33333FFFFF7F33773FF30000000EEEEE0033777777733333773F0EEEEEEEEEEE
          EE007FFFFFFF33333F770000000EEEEE00337777777F333F77333333330EEE00
          33333333337F3F7733333333330E003333333333337F77333333333333003333
          3333333333773333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        Layout = blGlyphRight
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = BtnNextClick
      end
      object LblShrunk: TLabel
        Left = 11
        Top = 173
        Width = 121
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '** REDUCED **'
      end
      object BtnSelectVideoThumbnail: TSpeedButton
        Left = 13
        Top = 8
        Width = 120
        Height = 22
        Caption = 'Select thumbnail...'
        Flat = True
        OnClick = BtnSelectVideoThumbnailClick
      end
      object Panel2: TPanel
        Left = 11
        Top = 32
        Width = 124
        Height = 124
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Image1: TImage
          Left = 2
          Top = 2
          Width = 120
          Height = 120
          Align = alClient
          AutoSize = True
          Center = True
        end
      end
    end
    object Panel3: TPanel
      Left = 140
      Top = 0
      Width = 413
      Height = 287
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      DesignSize = (
        413
        287)
      object PgPictDetail: TPageControl
        Left = 8
        Top = 8
        Width = 395
        Height = 266
        ActivePage = TsPict
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 0
        object TsPict: TTabSheet
          Caption = 'Picture'
          DesignSize = (
            387
            238)
          object Label1: TLabel
            Left = 11
            Top = 5
            Width = 36
            Height = 13
            Alignment = taRightJustify
            Caption = 'Caption'
          end
          object Label6: TLabel
            Left = 9
            Top = 168
            Width = 59
            Height = 13
            Alignment = taRightJustify
            Caption = 'Picture Date'
          end
          object BtnPictDate: TSpeedButton
            Left = 193
            Top = 165
            Width = 22
            Height = 21
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              33333FFFFFFFFFFFFFFF000000000000000077777777777777770FF7FF7FF7FF
              7FF07FF7FF7FF7F37F3709F79F79F7FF7FF077F77F77F7FF7FF7077777777777
              777077777777777777770FF7FF7FF7FF7FF07FF7FF7FF7FF7FF709F79F79F79F
              79F077F77F77F77F77F7077777777777777077777777777777770FF7FF7FF7FF
              7FF07FF7FF7FF7FF7FF709F79F79F79F79F077F77F77F77F77F7077777777777
              777077777777777777770FFFFF7FF7FF7FF07F33337FF7FF7FF70FFFFF79F79F
              79F07FFFFF77F77F77F700000000000000007777777777777777CCCCCC8888CC
              CCCC777777FFFF777777CCCCCCCCCCCCCCCC7777777777777777}
            NumGlyphs = 2
            OnClick = BtnPictDateClick
          end
          object Label7: TLabel
            Left = 9
            Top = 192
            Width = 59
            Height = 13
            Alignment = taRightJustify
            Caption = 'Picture Time'
          end
          object Label14: TLabel
            Left = 4
            Top = 214
            Width = 63
            Height = 13
            Caption = 'Last Modified'
          end
          object LblModDt: TLabel
            Left = 75
            Top = 214
            Width = 55
            Height = 13
            Caption = 'LblLastMod'
          end
          object BtnKeywords: TSpeedButton
            Left = 11
            Top = 79
            Width = 59
            Height = 18
            Caption = 'Keywords...'
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            OnClick = BtnKeywordsClick
          end
          object Label16: TLabel
            Left = 76
            Top = 83
            Width = 240
            Height = 13
            Cursor = crHandPoint
            Caption = 'Click here to select from previously used keywords.'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsUnderline]
            ParentFont = False
            OnClick = BtnKeywordsClick
          end
          object EditPictDate: TEdit
            Left = 73
            Top = 165
            Width = 116
            Height = 21
            CharCase = ecUpperCase
            TabOrder = 2
            OnChange = EditPictDateChange
          end
          object EditTime: TEdit
            Left = 73
            Top = 189
            Width = 116
            Height = 21
            CharCase = ecUpperCase
            TabOrder = 3
          end
          object EditCaption: TMemo
            Left = 9
            Top = 21
            Width = 359
            Height = 49
            Anchors = [akLeft, akTop, akRight]
            MaxLength = 16384
            TabOrder = 0
            WantReturns = False
          end
          object MemoKeywords: TMemo
            Left = 9
            Top = 99
            Width = 359
            Height = 49
            Anchors = [akLeft, akTop, akRight]
            ScrollBars = ssVertical
            TabOrder = 1
          end
        end
        object TabSheet1: TTabSheet
          Caption = 'File Details'
          ImageIndex = 2
          DesignSize = (
            387
            238)
          object LblFilesize: TBoxLabel
            Left = 65
            Top = 131
            Width = 86
            Height = 15
            AutoSize = True
            Caption = '1,288,888 bytes'
            TextBorder = 1
            BevelOuter = bvNone
            Color = clBtnFace
            MinWidth = 86
            MaxWidth = 0
            ParentShowHint = False
            ParentColor = False
            PatternFill = True
            FilenameSupport = False
          end
          object Label2: TLabel
            Left = 26
            Top = 132
            Width = 34
            Height = 13
            Alignment = taRightJustify
            Caption = 'Filesize'
          end
          object Label3: TLabel
            Left = 27
            Top = 2
            Width = 32
            Height = 13
            Alignment = taRightJustify
            Caption = 'Format'
          end
          object Label5: TLabel
            Left = 24
            Top = 166
            Width = 37
            Height = 13
            Alignment = taRightJustify
            Caption = 'Filedate'
          end
          object LblFiledate: TBoxLabel
            Left = 65
            Top = 165
            Width = 86
            Height = 15
            AutoSize = True
            Caption = 'LblFiledate'
            TextBorder = 1
            BevelOuter = bvNone
            Color = clBtnFace
            MinWidth = 86
            MaxWidth = 0
            ParentShowHint = False
            ParentColor = False
            PatternFill = True
            FilenameSupport = False
          end
          object Label4: TLabel
            Left = 19
            Top = 95
            Width = 42
            Height = 13
            Alignment = taRightJustify
            Caption = 'Filename'
          end
          object LblFname2: TBoxLabel
            Left = 65
            Top = 95
            Width = 87
            Height = 15
            AutoSize = True
            Caption = 'LblFname2'
            TextBorder = 1
            BevelOuter = bvNone
            Color = clBtnFace
            MinWidth = 87
            MaxWidth = 0
            ParentShowHint = False
            ParentColor = False
            PatternFill = True
            FilenameSupport = False
          end
          object LblFolder: TBoxLabel
            Left = 65
            Top = 113
            Width = 87
            Height = 15
            AutoSize = True
            Caption = 'LblFolder'
            TextBorder = 1
            BevelOuter = bvNone
            Color = clBtnFace
            MinWidth = 87
            MaxWidth = 290
            ParentShowHint = False
            ParentColor = False
            PatternFill = True
            FilenameSupport = False
          end
          object Label8: TLabel
            Left = 30
            Top = 113
            Width = 29
            Height = 13
            Alignment = taRightJustify
            Caption = 'Folder'
          end
          object Label11: TLabel
            Left = 14
            Top = 78
            Width = 47
            Height = 13
            Alignment = taRightJustify
            Caption = 'Picture ID'
          end
          object LblPictureId: TBoxLabel
            Left = 65
            Top = 77
            Width = 87
            Height = 15
            AutoSize = True
            Caption = 'LblFname2'
            TextBorder = 1
            BevelOuter = bvNone
            Color = clBtnFace
            MinWidth = 87
            MaxWidth = 0
            PopUpMenu = PopupMenu1
            ParentShowHint = False
            ParentColor = False
            PatternFill = True
            FilenameSupport = False
          end
          object Label13: TLabel
            Left = 26
            Top = 149
            Width = 34
            Height = 13
            Alignment = taRightJustify
            Caption = 'CRC32'
          end
          object LblCRC32: TBoxLabel
            Left = 65
            Top = 148
            Width = 86
            Height = 15
            AutoSize = True
            Caption = 'CRC Value'
            TextBorder = 1
            BevelOuter = bvNone
            Color = clBtnFace
            MinWidth = 86
            MaxWidth = 0
            ParentShowHint = False
            ParentColor = False
            PatternFill = True
            FilenameSupport = False
          end
          object Label17: TLabel
            Left = 2
            Top = 183
            Width = 58
            Height = 13
            Caption = 'Pic Modified'
          end
          object LblPicModDt: TBoxLabel
            Left = 65
            Top = 182
            Width = 86
            Height = 15
            AutoSize = True
            Caption = 'PicModDt'
            TextBorder = 1
            BevelOuter = bvNone
            Color = clBtnFace
            MinWidth = 86
            MaxWidth = 0
            ParentShowHint = False
            ParentColor = False
            PatternFill = True
            FilenameSupport = False
          end
          object MemoFormatDescr: TMemo
            Left = 65
            Top = 1
            Width = 320
            Height = 70
            Anchors = [akLeft, akTop, akRight]
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 0
            WantTabs = True
          end
          object cbReadOnly: TCheckBox
            Left = 267
            Top = 183
            Width = 87
            Height = 17
            Caption = 'Read only'
            Enabled = False
            TabOrder = 1
          end
        end
        object TabSheetExif: TTabSheet
          Caption = 'Embedded Data'
          ImageIndex = 2
          DesignSize = (
            387
            238)
          object MemoMetaData: TMemo
            Left = 5
            Top = 8
            Width = 375
            Height = 224
            Anchors = [akLeft, akTop, akRight, akBottom]
            Color = clBtnFace
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 0
          end
        end
        object TabSheet2: TTabSheet
          Caption = 'Web Settings'
          ImageIndex = 3
          object RbWebPublish: TRadioGroup
            Left = 17
            Top = 6
            Width = 264
            Height = 69
            Caption = 'Publish to Web'
            Items.Strings = (
              'Not Published'
              'Public Web (e-mail address required)'
              'Private Web (password or invite required)')
            TabOrder = 0
            OnClick = RbWebPublishClick
          end
          object GroupBox1: TGroupBox
            Left = 16
            Top = 82
            Width = 265
            Height = 90
            TabOrder = 1
            object LblReduce: TLabel
              Left = 32
              Top = 40
              Width = 50
              Height = 13
              Caption = 'Reduce to'
            end
            object LblCompress: TLabel
              Left = 32
              Top = 63
              Width = 60
              Height = 13
              Caption = 'Compression'
            end
            object cbWebReduce: TCheckBox
              Left = 13
              Top = 14
              Width = 188
              Height = 17
              Caption = 'Reduce picture on web (JPEG)'
              TabOrder = 0
              OnClick = cbWebReduceClick
            end
            object cbWebReduceAmt: TComboBox
              Left = 96
              Top = 36
              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 = 60
              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
        object TabSheet3: TTabSheet
          Caption = 'Albums'
          ImageIndex = 4
          DesignSize = (
            387
            238)
          object BtnRemoveFromAlbum: TSpeedButton
            Left = 152
            Top = 213
            Width = 57
            Height = 22
            Anchors = [akLeft, akBottom]
            Caption = 'Remove'
            OnClick = BtnRemoveFromAlbumClick
          end
          object Label12: TLabel
            Left = 0
            Top = 0
            Width = 361
            Height = 13
            Alignment = taCenter
            AutoSize = False
            Caption = 'Albums and groups picture is in'
          end
          object LbAlbums: TListBox
            Left = 0
            Top = 16
            Width = 379
            Height = 191
            Anchors = [akLeft, akTop, akRight, akBottom]
            ItemHeight = 13
            TabOrder = 0
            OnClick = LbAlbumsClick
          end
        end
        object TabSheet4: TTabSheet
          Caption = 'Archive'
          ImageIndex = 5
          DesignSize = (
            387
            238)
          object Label9: TLabel
            Left = 123
            Top = 0
            Width = 121
            Height = 13
            Alignment = taCenter
            Caption = 'Where picture is archived'
          end
          object SGridArchive: TStringGrid
            Left = 0
            Top = 16
            Width = 383
            Height = 185
            Anchors = [akLeft, akTop, akRight, akBottom]
            ColCount = 3
            DefaultRowHeight = 18
            FixedCols = 0
            RowCount = 2
            Options = [goFixedVertLine, goFixedHorzLine, goRowSelect, goThumbTracking]
            TabOrder = 0
            ColWidths = (
              182
              181
              64)
          end
          object BtnRestore: TButton
            Left = 150
            Top = 209
            Width = 75
            Height = 25
            Anchors = [akLeft, akBottom]
            Caption = 'Restore'
            TabOrder = 1
            OnClick = BtnRestoreClick
          end
        end
      end
    end
  end
  object PanelTop: TPanel
    Left = 0
    Top = 0
    Width = 553
    Height = 49
    Align = alTop
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 2
    object LblLastModDt: TLabel
      Left = 32
      Top = 33
      Width = 3
      Height = 13
    end
    object Label10: TLabel
      Left = 32
      Top = 20
      Width = 146
      Height = 13
      Caption = 'Enter information for this photo.'
    end
    object Label15: TLabel
      Left = 14
      Top = 5
      Width = 102
      Height = 13
      Caption = 'Picture Properties'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel2: TBevel
      Left = 0
      Top = 47
      Width = 553
      Height = 2
      Align = alBottom
      Shape = bsBottomLine
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 360
    Top = 128
    object Copytoclipboard1: TMenuItem
      Caption = 'Copy to clipboard'
      OnClick = Copytoclipboard1Click
    end
  end
end