PC World 2003 April/PCWorld_2003-04_cd.bin/Software/TemaCD/exifreader/ExifRead.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 2002-10-29 | 14KB | 552 lines

object Form1: TForm1
  Left = 195
  Top = 77
  AutoScroll = False
  Caption = 'ExifReader'
  ClientHeight = 376
  ClientWidth = 608
  Color = clBtnFace
  ParentFont = True
  Icon.Data = {<image000.ico>}
  Menu = Main
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 181
    Top = 29
    Width = 3
    Height = 347
    Align = alLeft
    Shape = bsSpacer
    Style = bsRaised
  end
  object ScrollBox1: TScrollBox
    Left = 184
    Top = 29
    Width = 424
    Height = 347
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    Align = alClient
    Color = 16185078
    ParentColor = False
    TabOrder = 3
    Visible = False
    object JPEGImage2: TImage
      Left = 0
      Top = 0
      Width = 185
      Height = 145
      IncrementalDisplay = True
      Stretch = True
      OnMouseDown = JPEGImage2MouseDown
      OnMouseMove = JPEGImage2MouseMove
      OnMouseUp = JPEGImage2MouseUp
    end
    object Memo2: TMemo
      Left = 32
      Top = 88
      Width = 233
      Height = 185
      Lines.Strings = (
        'Memo2')
      TabOrder = 0
      Visible = False
      WordWrap = False
    end
  end
  object InfoListView: TListView
    Left = 184
    Top = 29
    Width = 424
    Height = 347
    Align = alClient
    Columns = <
      item
        Caption = '���ږ�'
        Width = 140
      end
      item
        AutoSize = True
        Caption = '���'
      end>
    HideSelection = False
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    PopupMenu = PopupRight
    TabOrder = 0
    ViewStyle = vsReport
    OnClick = InfoListViewClick
    OnCustomDrawItem = InfoListViewCustomDrawItem
  end
  object TopPanel: TPanel
    Left = 0
    Top = 0
    Width = 608
    Height = 29
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Bevel4: TBevel
      Left = 0
      Top = 0
      Width = 608
      Height = 3
      Align = alTop
      Shape = bsTopLine
    end
    object Bevel3: TBevel
      Left = 90
      Top = 3
      Width = 9
      Height = 24
      Shape = bsLeftLine
    end
    object OpenButton: TSpeedButton
      Left = 2
      Top = 3
      Width = 87
      Height = 25
      BiDiMode = bdLeftToRight
      Caption = '�J��'
      Flat = True
      Glyph.Data = {
        DE000000424DDE000000000000007600000028000000100000000D0000000100
        0400000000006800000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770007777
        7777777700FB007777777770F0BFBF007777770B00FBFBFB007770F0F0BFBFBF
        BF000B0FF0FBFBFBFBF000FFF00FBFBFBFB07000FFF00BFBFBF070BF00FF0FBF
        BFB0770BFB0FF00BFBF077700FB0FF000FB07777700700FB0000777777777700
        7777}
      ParentBiDiMode = False
      Spacing = 10
      Transparent = False
      OnClick = Open1Click
    end
    object Panel4: TPanel
      Left = 496
      Top = 3
      Width = 112
      Height = 26
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object Label4: TLabel
        Left = 36
        Top = 7
        Width = 47
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = '1/1'
      end
      object ButtonLeft: TSpeedButton
        Left = 8
        Top = 0
        Width = 26
        Height = 25
        Hint = '�O�̃t�@�C��'
        BiDiMode = bdLeftToRight
        Caption = '<'
        Flat = True
        ParentShowHint = False
        ParentBiDiMode = False
        ShowHint = True
        Spacing = 10
        Transparent = False
        OnClick = ButtonLeftClick
      end
      object ButtonRight: TSpeedButton
        Left = 85
        Top = 0
        Width = 25
        Height = 24
        Hint = '���̃t�@�C��'
        BiDiMode = bdLeftToRight
        Caption = '>'
        Flat = True
        ParentShowHint = False
        ParentBiDiMode = False
        ShowHint = True
        Spacing = 10
        Transparent = False
        OnClick = ButtonRightClick
      end
    end
    object FileEdit: TEdit
      Left = 97
      Top = 9
      Width = 406
      Height = 16
      Anchors = [akLeft, akTop, akRight]
      BorderStyle = bsNone
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 29
    Width = 181
    Height = 347
    Align = alLeft
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object S1: TShape
      Left = 9
      Top = 38
      Width = 162
      Height = 122
      Brush.Style = bsClear
    end
    object La: TLabel
      Left = 5
      Top = 8
      Width = 167
      Height = 20
      AutoSize = False
      Caption = '�@�T���l�C��'
      Color = 14679295
      ParentColor = False
      Layout = tlCenter
    end
    object ThumbnailImage: TImage
      Left = 10
      Top = 39
      Width = 160
      Height = 120
    end
    object Label1: TLabel
      Left = 82
      Top = 189
      Width = 33
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Label1'
      Transparent = True
      Visible = False
    end
    object SaveButton: TSpeedButton
      Left = 118
      Top = 164
      Width = 26
      Height = 26
      Hint = '�T���l�C���ۑ�'
      Enabled = False
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00788888888888
        8888000000000000000807770770880707080777077088070708077707708807
        0708077700000000070807777777777777080700000000000708070FFFFFFFFF
        0708070FFFFFFFFF0708070FFFFFFFFF0708070FFFFFFFFF0708070FFFFFFFFF
        0708070FFFFFFFFF0008070FFFFFFFFF0F087000000000000007}
      ParentShowHint = False
      ShowHint = True
      OnClick = SaveButtonClick
    end
    object ZoomButton: TSpeedButton
      Left = 146
      Top = 164
      Width = 26
      Height = 26
      Hint = '�g��\��'
      Enabled = False
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777770000000000000770777777777777707070000000000
        0707070EFEFEFEFE0707070F8888888F0707070EFEFEFEFE0707070F8888888F
        0707070EFEFEFEFE0707070F888FEFEF0707070EFEFEFEFE0707070000000000
        0707077777777777770770000000000000777777777777777777}
      ParentShowHint = False
      ShowHint = True
      OnClick = ZoomButtonClick
    end
    object Panel3: TPanel
      Left = 9
      Top = 225
      Width = 164
      Height = 106
      Anchors = [akLeft, akTop, akBottom]
      BevelInner = bvSpace
      BevelOuter = bvLowered
      TabOrder = 0
      object Memo1: TMemo
        Left = 6
        Top = 4
        Width = 153
        Height = 95
        Anchors = [akLeft, akTop, akBottom]
        BorderStyle = bsNone
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TrackBar1: TTrackBar
      Left = 9
      Top = 168
      Width = 108
      Height = 22
      Ctl3D = True
      Max = 200
      Min = 20
      Orientation = trHorizontal
      ParentCtl3D = False
      PageSize = 20
      Frequency = 20
      Position = 100
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      ThumbLength = 10
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      Visible = False
      OnChange = TrackBar1Change
      OnEnter = TrackBar1Enter
      OnExit = TrackBar1Exit
    end
    object ENG: TButton
      Left = 24
      Top = 280
      Width = 65
      Height = 41
      Caption = 'English'
      TabOrder = 2
      Visible = False
      OnClick = English
    end
    object UpdateList: TButton
      Left = 96
      Top = 280
      Width = 65
      Height = 41
      Caption = 'UpdateList'
      TabOrder = 3
      Visible = False
      OnClick = UpdateListClick
    end
    object Panel5: TPanel
      Left = 6
      Top = 202
      Width = 168
      Height = 19
      BevelOuter = bvNone
      Color = 14679295
      TabOrder = 4
      object Edit3: TEdit
        Left = 3
        Top = 4
        Width = 319
        Height = 18
        BiDiMode = bdLeftToRight
        BorderStyle = bsNone
        Color = 14679295
        ParentBiDiMode = False
        ReadOnly = True
        TabOrder = 0
        Text = ' ���ږ�'
      end
    end
    object Button1: TButton
      Left = 24
      Top = 256
      Width = 64
      Height = 17
      Caption = 'Rec'
      TabOrder = 5
      Visible = False
      OnClick = Button2Click
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.jpg;*.jpeg'
    Filter =
      'Exif Files (*.jpg,*.tif,*.nef,*.orf;*.mrw;*.psd,*.raf)|*.jpeg;*.' +
      'jpg;*.tiff;*.tif;*.nef;*.orf;*.mrw;*.psd;*.crw;*.raf|Exif JPEG (' +
      '*.jpg,*.jpeg)|*.jpeg;*.jpg|Exif TIFF (*.tif,*.tiff)|*.tiff;*.tif' +
      '|CCDRAW (*.nef,*.orf;*.mrw,*.crw,*.ref)|*.nef;*.orf;*.mrw;*.crw;' +
      '*.raf|PhotoshopImage(*.psd)|*.psd'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
    Title = 'Open Exif'
    Left = 224
    Top = 128
  end
  object Main: TMainMenu
    Left = 320
    Top = 128
    object File1: TMenuItem
      Caption = '�t�@�C��(&F)'
      object Open1: TMenuItem
        Caption = '�J��(&O)...'
        ShortCut = 16463
        OnClick = Open1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = '�O�̃t�@�C��'
        OnClick = ButtonLeftClick
      end
      object N9: TMenuItem
        Caption = '���̃t�@�C��'
        OnClick = ButtonRightClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '�I��(&X)'
        ShortCut = 16465
        OnClick = Exit1Click
      end
    end
    object Show1: TMenuItem
      Caption = '���(&I)'
      object Copy1: TMenuItem
        Caption = '�I�����ڂ��R�s�['
        OnClick = N10Click
      end
      object N7: TMenuItem
        Caption = '���ׂăR�s�['
        OnClick = N7Click
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object N12: TMenuItem
        Caption = '���ږ��݂̂��ׂăR�s�['
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = '���݂̂��ׂăR�s�['
        OnClick = N13Click
      end
      object HTML1: TMenuItem
        Caption = 'HTML�`���ŃR�s�['
        Visible = False
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object CSV2: TMenuItem
        Caption = 'CSV�`���ŕۑ�'
        OnClick = CSV2Click
      end
      object N15: TMenuItem
        Caption = '�e�L�X�g�`���ŕۑ�'
        GroupIndex = 1
        OnClick = N15Click
      end
      object N5: TMenuItem
        Caption = '�T���l�C���̕ۑ�(&T)'
        GroupIndex = 1
        ShortCut = 16468
        OnClick = SaveButtonClick
      end
      object ShowMap: TMenuItem
        Caption = '�}�s�I���Œn�}�̕\��(&M)'
        Enabled = False
        GroupIndex = 1
        OnClick = ShowMapClick
      end
      object N4: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object ShowAll: TMenuItem
        Caption = '���ׂĕ\��'
        Checked = True
        GroupIndex = 1
        RadioItem = True
        OnClick = ShowAllClick
      end
      object ShowMin: TMenuItem
        Caption = '�ȗ��\��'
        GroupIndex = 1
        RadioItem = True
        OnClick = ShowMinClick
      end
      object ShowIPTC: TMenuItem
        Caption = 'IPTC���\��'
        Checked = True
        GroupIndex = 1
        OnClick = ShowIPTCClick
      end
      object ShowToolbar: TMenuItem
        Caption = '�c�[���o�[��\��'
        Checked = True
        GroupIndex = 1
        OnClick = ShowToolbarClick
      end
      object ShowPanel: TMenuItem
        Caption = '�T���l�C���p�l����\��'
        Checked = True
        GroupIndex = 1
        OnClick = ShowPanelClick
      end
      object N14: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object N3: TMenuItem
        Caption = '����F����'
        Checked = True
        GroupIndex = 1
        OnClick = N3Click
      end
    end
    object Help1: TMenuItem
      Caption = '�w���v(&H)'
      object About1: TMenuItem
        Caption = '�o�[�W�������(&A)...'
        OnClick = About1Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.jpg'
    Filter = 'JPEG (*.jpg)|*.jpg'
    Title = 'Save Thumbnail'
    Left = 256
    Top = 128
  end
  object PopupRight: TPopupMenu
    Left = 354
    Top = 127
    object N10: TMenuItem
      Caption = '�R�s�['
      ShortCut = 16451
      OnClick = N10Click
    end
    object HTML2: TMenuItem
      Caption = 'HTML�`���ŃR�s�['
      OnClick = HTML2Click
    end
  end
  object SaveDialog2: TSaveDialog
    DefaultExt = '*.txt'
    Filter = 'Text (*.txt)|*.txt|CSV (*.csv)|*.csv'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Title = 'Save CSV'
    Left = 288
    Top = 128
  end
end