object MainForm: TMainForm Left = 430 Top = 141 Caption = 'Metadata viewer' ClientHeight = 714 ClientWidth = 926 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True ShowHint = True OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Splitter2: TSplitter Left = 274 Top = 0 Width = 5 Height = 691 end object ShellPanel: TPanel Left = 0 Top = 0 Width = 274 Height = 691 Align = alLeft BevelOuter = bvNone TabOrder = 0 object Splitter1: TSplitter Left = 0 Top = 269 Width = 274 Height = 5 Cursor = crVSplit Align = alTop end object PreviewImage: TImage Left = 0 Top = 547 Width = 274 Height = 144 Hint = 'Thumbnail image embedded in the image file' Align = alBottom Center = True Proportional = True Stretch = True end object ShellTreeView: TDirectoryOutline Left = 0 Top = 0 Width = 274 Height = 269 Hint = 'Navigate to the folder with your images.' Align = alTop ItemHeight = 13 Options = [ooDrawFocusRect] PictureLeaf.Data = { 46030000424D460300000000000036000000280000000E0000000E0000000100 2000000000001003000000000000000000000000000000000000800080008000 8000800080008000800080008000800080008000800080008000800080008000 8000800080008000800080008000800080008000800080008000800080008000 8000800080008000800080008000800080008000800080008000800080008000 8000800080008000800080008000800080008000800080008000800080008000 8000800080008000800080008000800080008000800080008000800080008000 8000800080000000000000000000000000000000000000000000000000000000 00000000000000000000000000008000800080008000800080000000000000FF FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF FF000000000080008000800080008000800000000000FFFFFF0000FFFF00FFFF FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008000 800080008000800080000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FF FF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000080008000800080008000 800000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF FF0000FFFF00FFFFFF00000000008000800080008000800080000000000000FF FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF FF000000000080008000800080008000800000000000FFFFFF0000FFFF00FFFF FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008000 8000800080008000800000000000000000000000000000000000000000000000 0000000000000000000000000000000000008000800080008000800080008000 80008000800000000000FFFFFF0000FFFF00FFFFFF0000FFFF00000000008000 8000800080008000800080008000800080008000800080008000800080008080 8000000000000000000000000000000000008080800080008000800080008000 8000800080008000800080008000800080008000800080008000800080008000 8000800080008000800080008000800080008000800080008000800080008000 80008000800080008000} TabOrder = 0 OnChange = ShellTreeViewChange Data = {10} end object ShellListView: TFileListBox Left = 0 Top = 274 Width = 274 Height = 260 Hint = 'Select the image for which you want to see the metadata' Align = alClient Mask = '*.jpg;*.jpeg;*.jpe;*.tiff;*.tif' ShowGlyphs = True TabOrder = 2 OnChange = ShellListViewChange end object Panel4: TPanel Left = 0 Top = 534 Width = 274 Height = 13 Align = alBottom AutoSize = True BevelOuter = bvNone TabOrder = 1 object Label1: TLabel Left = 8 Top = 0 Width = 79 Height = 13 Caption = 'Thumbnail image' Color = clBtnFace ParentColor = False end end end object Panel2: TPanel Left = 279 Top = 0 Width = 647 Height = 691 Align = alClient BevelOuter = bvNone TabOrder = 2 object Splitter3: TSplitter Left = 0 Top = 571 Width = 647 Height = 5 Cursor = crVSplit Align = alBottom ExplicitTop = 562 end object Panel3: TPanel Left = 0 Top = 0 Width = 647 Height = 21 Align = alTop AutoSize = True BevelOuter = bvNone BorderWidth = 4 TabOrder = 0 object FilenameInfo: TLabel Left = 4 Top = 4 Width = 23 Height = 13 Caption = 'File: ' Color = clBtnFace ParentColor = False end end object PageControl1: TPageControl Left = 0 Top = 21 Width = 647 Height = 550 ActivePage = PgMetadata Align = alClient TabOrder = 1 OnChange = PageControl1Change object PgMetadata: TTabSheet Caption = 'Meta data' ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object TagListView: TListView Left = 0 Top = 0 Width = 639 Height = 503 Align = alClient Columns = < item Caption = 'Group' Width = 120 end item Caption = 'Tag ID' Width = 60 end item Caption = 'Property' Width = 220 end item AutoSize = True Caption = 'Value' end> HideSelection = False ReadOnly = True RowSelect = True SortType = stText TabOrder = 0 ViewStyle = vsReport OnCompare = TagListViewCompare OnSelectItem = TagListViewSelectItem end object Panel1: TPanel Left = 0 Top = 503 Width = 639 Height = 19 Align = alBottom AutoSize = True BevelOuter = bvNone TabOrder = 1 ExplicitTop = 501 object CbDecodeMakerNotes: TCheckBox Left = 0 Top = 0 Width = 127 Height = 19 Hint = 'Try to decode information in the MakerNote tag if possible' Caption = 'Decode MakerNotes' Checked = True State = cbChecked TabOrder = 0 end end end object PgImage: TTabSheet Caption = 'Image' ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object Image: TImage Left = 0 Top = 0 Width = 639 Height = 522 Align = alClient Center = True Proportional = True Stretch = True ExplicitHeight = 545 end end end object Messages: TMemo Left = 0 Top = 576 Width = 647 Height = 90 Align = alBottom TabOrder = 2 end object DateTimePanel: TPanel Left = 0 Top = 666 Width = 647 Height = 25 Align = alBottom AutoSize = True BevelOuter = bvNone TabOrder = 3 object LblChangeDate: TLabel Left = 4 Top = 5 Width = 124 Height = 13 Caption = 'Change EXIF date/time to' Color = clBtnFace ParentColor = False end object EdChangeDate: TEdit Left = 144 Top = 1 Width = 152 Height = 21 Hint = 'New date to be assigned to the selected image' TabOrder = 0 end object BtnChangeDate: TButton Left = 304 Top = 0 Width = 67 Height = 25 Hint = 'Replaces the image date.' Caption = 'Execute' TabOrder = 1 OnClick = BtnChangeDateClick end end end object StatusBar1: TStatusBar Left = 0 Top = 691 Width = 926 Height = 23 Panels = < item Width = 150 end item Width = 150 end item Width = 250 end item Width = 150 end item Width = 100 end> end end