object MainForm: TMainForm Left = 329 Height = 478 Top = 131 Width = 788 Caption = 'MainForm' ClientHeight = 478 ClientWidth = 788 OnCreate = FormCreate OnDestroy = FormDestroy LCLVersion = '2.3.0.0' object BtnLoad: TButton AnchorSideTop.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 728 Height = 25 Top = 8 Width = 52 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'Load' OnClick = BtnLoadClick TabOrder = 0 end object CbFilename: TComboBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = BtnLoad AnchorSideTop.Side = asrCenter AnchorSideRight.Control = BtnBrowse Left = 8 Height = 23 Top = 9 Width = 677 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 8 BorderSpacing.Right = 4 ItemHeight = 15 OnSelect = CbFilenameSelect TabOrder = 1 Text = '..\..\tests\pictures\originals\with_exif.tif' end object Memo: TMemo AnchorSideLeft.Control = Owner AnchorSideTop.Control = BtnLoad AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Thumbnail AnchorSideBottom.Control = Panel1 Left = 8 Height = 398 Top = 41 Width = 604 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 ScrollBars = ssAutoBoth TabOrder = 2 end object BtnBrowse: TButton AnchorSideTop.Control = BtnLoad AnchorSideRight.Control = BtnLoad Left = 689 Height = 25 Top = 8 Width = 35 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Right = 4 Caption = '...' OnClick = BtnBrowseClick TabOrder = 3 end object Panel1: TPanel Left = 0 Height = 39 Top = 439 Width = 788 Align = alBottom AutoSize = True BevelOuter = bvNone ClientHeight = 39 ClientWidth = 788 TabOrder = 4 object CbVerbosity: TComboBox AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = Panel1 Left = 8 Height = 23 Top = 8 Width = 192 BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Bottom = 8 ItemHeight = 15 ItemIndex = 2 Items.Strings = ( 'Tag names only' 'Decimal tag IDs' 'Hex tag IDs' ) OnChange = CbVerbosityChange Style = csDropDownList TabOrder = 0 Text = 'Hex tag IDs' end object CbDecodeValue: TCheckBox AnchorSideLeft.Control = CbVerbosity AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CbVerbosity AnchorSideTop.Side = asrCenter Left = 208 Height = 19 Top = 10 Width = 94 BorderSpacing.Left = 8 Caption = 'Decode values' Checked = True OnChange = CbDecodeValueChange State = cbChecked TabOrder = 1 end object CbTruncateBinaryTags: TCheckBox AnchorSideLeft.Control = CbDecodeValue AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CbVerbosity AnchorSideTop.Side = asrCenter Left = 310 Height = 19 Top = 10 Width = 125 BorderSpacing.Left = 8 Caption = 'Truncate binary tags' Checked = True OnChange = CbTruncateBinaryTagsChange State = cbChecked TabOrder = 2 end object CbBinaryAsASCII: TCheckBox AnchorSideLeft.Control = CbTruncateBinaryTags AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CbVerbosity AnchorSideTop.Side = asrCenter Left = 443 Height = 19 Top = 10 Width = 121 BorderSpacing.Left = 8 Caption = 'Binary tags as ASCII' OnChange = CbBinaryAsASCIIChange TabOrder = 3 end object BtnSave: TButton AnchorSideTop.Control = Panel1 AnchorSideTop.Side = asrCenter AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom Left = 650 Height = 25 Top = 7 Width = 130 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Right = 8 Caption = 'Save as "_modified"' Enabled = False OnClick = BtnSaveClick TabOrder = 4 end end object Thumbnail: TImage AnchorSideTop.Control = Memo AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 620 Height = 151 Top = 41 Width = 160 Anchors = [akTop, akRight] BorderSpacing.Right = 8 Center = True Proportional = True Stretch = True end object CbTags: TComboBox AnchorSideLeft.Control = EdNewTagValue AnchorSideRight.Control = EdNewTagValue AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Label1 Left = 620 Height = 23 Top = 366 Width = 160 Anchors = [akLeft, akRight, akBottom] BorderSpacing.Bottom = 8 DropDownCount = 32 ItemHeight = 15 OnSelect = CbTagsSelect Style = csDropDownList TabOrder = 5 end object Label1: TLabel AnchorSideLeft.Control = EdNewTagValue AnchorSideBottom.Control = EdNewTagValue Left = 620 Height = 15 Top = 397 Width = 55 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 4 Caption = 'New value' end object EdNewTagValue: TEdit AnchorSideLeft.Control = Thumbnail AnchorSideRight.Control = Thumbnail AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Memo AnchorSideBottom.Side = asrBottom Left = 620 Height = 23 Top = 416 Width = 160 Anchors = [akLeft, akRight, akBottom] OnEditingDone = EdNewTagValueEditingDone TabOrder = 6 end object Label2: TLabel AnchorSideLeft.Control = CbTags AnchorSideBottom.Control = CbTags Left = 620 Height = 15 Top = 347 Width = 18 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 4 Caption = 'Tag' end object OpenDialog: TOpenDialog DefaultExt = '.jpg' Filter = 'All supported images (*.jpg; *.jpeg; *.jfe); *.tiff; *.tif|*.jpg;*.jpeg;*.jfe;*.tiff;*.tif|JPG files (*.jpg; *.jpeg; *.jfe)|*.jpg;*.jpeg;*.jfe|TIFF files (*.tiff; *.tif)|*.tiff;*.tif' Left = 248 Top = 168 end end