object Form1: TForm1 Left = 195 Top = 77 AutoScroll = False Caption = 'ExifReader' ClientHeight = 376 ClientWidth = 608 Color = clBtnFace ParentFont = True Icon.Data = {} 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