home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 187
- Top = 22
- Width = 634
- Height = 450
- Caption = 'ExifReader'
- Color = clBtnFace
- ParentFont = True
- Icon.Data = {<image000.ico>}
- Menu = MainMenu1
- OldCreateOrder = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 12
- object Bevel1: TBevel
- Left = 181
- Top = 29
- Width = 3
- Height = 375
- Align = alLeft
- Shape = bsSpacer
- Style = bsRaised
- end
- object ScrollBox1: TScrollBox
- Left = 184
- Top = 29
- Width = 442
- Height = 375
- HorzScrollBar.Tracking = True
- VertScrollBar.Tracking = True
- Align = alClient
- Color = 16185078
- ParentColor = False
- TabOrder = 5
- 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 = 442
- Height = 375
- Align = alClient
- Columns = <
- item
- Caption = '���ږ�'
- Width = 140
- end
- item
- AutoSize = True
- Caption = '���'
- end>
- HideSelection = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- PopupMenu = PopupMenu2
- TabOrder = 3
- ViewStyle = vsReport
- OnClick = InfoListViewClick
- OnCustomDrawItem = InfoListViewCustomDrawItem
- end
- object Edit1: TEdit
- Left = 616
- Top = 5
- Width = 17
- Height = 20
- TabOrder = 0
- Visible = False
- end
- object Button2: TButton
- Left = 504
- Top = 8
- Width = 64
- Height = 17
- Caption = '���'
- TabOrder = 1
- Visible = False
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 626
- Height = 29
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 2
- object Bevel4: TBevel
- Left = 0
- Top = 0
- Width = 626
- Height = 3
- Align = alTop
- Shape = bsTopLine
- end
- object Bevel3: TBevel
- Left = 90
- Top = 3
- Width = 9
- Height = 24
- Shape = bsLeftLine
- end
- object SpeedButton1: 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
- OnClick = Open1Click
- end
- object Label3: TLabel
- Left = 101
- Top = 11
- Width = 428
- Height = 12
- Anchors = [akLeft, akTop, akRight]
- AutoSize = False
- end
- object Edit2: TEdit
- Left = 392
- Top = 5
- Width = 17
- Height = 20
- TabOrder = 0
- Visible = False
- end
- object Button1: TButton
- Left = 240
- Top = 8
- Width = 64
- Height = 17
- Caption = '���'
- TabOrder = 1
- Visible = False
- OnClick = Button2Click
- end
- object Panel4: TPanel
- Left = 514
- Top = 3
- Width = 112
- Height = 26
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 2
- object ToolbarButton974: TToolbarButton97
- Left = 10
- Top = 1
- Width = 23
- Height = 22
- Caption = '<'
- OnClick = ToolbarButton974Click
- end
- object Label4: TLabel
- Left = 36
- Top = 7
- Width = 38
- Height = 16
- Alignment = taCenter
- AutoSize = False
- Caption = '1/1'
- end
- object ToolbarButton973: TToolbarButton97
- Left = 76
- Top = 1
- Width = 23
- Height = 22
- Caption = '>'
- OnClick = ToolbarButton973Click
- end
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 29
- Width = 181
- Height = 375
- Align = alLeft
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 4
- object Shape1: TShape
- Left = 9
- Top = 38
- Width = 162
- Height = 122
- Brush.Style = bsClear
- end
- object Label2: TLabel
- Left = 5
- Top = 8
- Width = 167
- Height = 20
- AutoSize = False
- Caption = '�@�T���l�C��'
- Color = 14679295
- ParentColor = False
- Layout = tlCenter
- end
- object ToolbarButton971: TToolbarButton97
- Left = 121
- Top = 164
- Width = 25
- Height = 26
- Hint = '�T���l�C���ۑ�'
- Enabled = False
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00788888888888
- 8888000000000000000807770770880707080777077088070708077707708807
- 0708077700000000070807777777777777080700000000000708070FFFFFFFFF
- 0708070FFFFFFFFF0708070FFFFFFFFF0708070FFFFFFFFF0708070FFFFFFFFF
- 0708070FFFFFFFFF0008070FFFFFFFFF0F087000000000000007}
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton2Click
- end
- object ToolbarButton972: TToolbarButton97
- Left = 147
- Top = 164
- Width = 25
- Height = 26
- Hint = '�g��\��'
- AllowAllUp = True
- Enabled = False
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777777777770000000000000770777777777777707070000000000
- 0707070EFEFEFEFE0707070F8888888F0707070EFEFEFEFE0707070F8888888F
- 0707070EFEFEFEFE0707070F888FEFEF0707070EFEFEFEFE0707070000000000
- 0707077777777777770770000000000000777777777777777777}
- ParentShowHint = False
- Repeating = True
- ShowHint = True
- OnClick = ToolbarButton972Click
- end
- object ToolbarButton975: TToolbarButton97
- Left = 147
- Top = 192
- Width = 25
- Height = 24
- Hint = '�ȈՓ���Đ�'
- Enabled = False
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777777744444444447777774FFFFFFFF47777774FFFFFFFF47777774FFFFFF
- FF477744444444444447774FF4F444444447774FF44444444447774FFFFFFFF4
- 777744444444444477774F4F4444444477774F444444444477774FFFFFFFF477
- 777744444444447777774F444444447777774444444444777777}
- ParentShowHint = False
- ShowHint = True
- Visible = False
- end
- object JPEGImage1: TImage
- Left = 10
- Top = 39
- Width = 160
- Height = 120
- end
- object Panel3: TPanel
- Left = 9
- Top = 225
- Width = 164
- Height = 141
- Anchors = [akLeft, akTop, akBottom]
- BevelInner = bvSpace
- BevelOuter = bvLowered
- TabOrder = 0
- object Memo1: TMemo
- Left = 6
- Top = 4
- Width = 153
- Height = 131
- 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
- end
- object Button3: TButton
- Left = 8
- Top = 344
- Width = 107
- Height = 57
- Caption = 'English'
- TabOrder = 2
- Visible = False
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 80
- Top = 360
- Width = 75
- Height = 41
- Caption = 'Button4'
- TabOrder = 3
- Visible = False
- OnClick = Button4Click
- end
- object Kodac_Tag: TMemo
- Left = 8
- Top = 424
- Width = 161
- Height = 81
- Lines.Strings = (
- '8'
- '�x���_�[��'
- 'string'
- '40'
- '���i��'
- 'string'
- '128'
- '�摜�t�@�C���^�C�v'
- 'fname'
- '832'
- '���[�U�[������P'
- 'string'
- '868'
- '���[�U�[������Q'
- 'string')
- TabOrder = 4
- Visible = False
- WordWrap = False
- end
- object Panel5: TPanel
- Left = 6
- Top = 202
- Width = 168
- Height = 19
- BevelOuter = bvNone
- Color = 14679295
- TabOrder = 5
- 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
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = '*.jpg;*.jpeg'
- Filter =
- 'Exif Files (*.jpg,*.tif)|*.jpeg;*.jpg;*.tiff;*.tif|Exif JPEG (*.' +
- 'jpg,*.jpeg)|*.jpeg;*.jpg|Exif TIFF (*.tif,*.tiff)|*.tiff;*.tif|C' +
- 'CDRAW (*.nef,*.orf)|*.nef;*.orf'
- Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
- Title = 'Open Exif'
- Left = 232
- Top = 88
- end
- object MainMenu1: TMainMenu
- Left = 432
- Top = 280
- 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 = ToolbarButton974Click
- end
- object N9: TMenuItem
- Caption = '���̃t�@�C��'
- OnClick = ToolbarButton973Click
- end
- object Print1: TMenuItem
- Caption = '���(&P)...'
- Visible = False
- end
- object PrintSetup1: TMenuItem
- Caption = '�y�[�W�ݒ�(&R)...'
- Visible = False
- 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 N6: TMenuItem
- Caption = '-'
- end
- object CSV2: TMenuItem
- Caption = 'CSV�`���ŕۑ�'
- OnClick = CSV2Click
- end
- object HTML1: TMenuItem
- Caption = '����HTML�`���ŕۑ�'
- Visible = False
- end
- object N5: TMenuItem
- Caption = '�T���l�C���̕ۑ�(&T)'
- ShortCut = 16468
- OnClick = SpeedButton2Click
- end
- object P1: TMenuItem
- Caption = '�ȈՓ���Đ�(&P)'
- Enabled = False
- 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 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 Contents1: TMenuItem
- Caption = '�ڎ�(&C)'
- ShortCut = 112
- Visible = False
- end
- object SearchforHelpOn1: TMenuItem
- Caption = '�g�s�b�N�̌���(&S)...'
- Visible = False
- end
- object HowtoUseHelp1: TMenuItem
- Caption = '�w���v�̎g����(&H)'
- Visible = False
- end
- 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 = 127
- end
- object PopupMenu2: TPopupMenu
- Left = 274
- Top = 151
- object N10: TMenuItem
- Caption = '�R�s�['
- ShortCut = 16451
- OnClick = N10Click
- end
- object HTML2: TMenuItem
- Caption = 'HTML'
- Visible = False
- end
- end
- object SaveDialog2: TSaveDialog
- DefaultExt = '*.txt'
- Filter = 'Text (*.txt)|*.txt|CSV (*.csv)|*.csv'
- Title = 'Save CSV'
- Left = 304
- Top = 127
- end
- object ActionList1: TActionList
- Left = 138
- Top = 351
- end
- end
-