lazarus-ccr/components/fpexif/examples/simple_demo/sdmain.lfm

object MainForm: TMainForm
  Left = 329
  Height = 478
  Top = 131
  Width = 788
  Caption = 'MainForm'
  ClientHeight = 478
  ClientWidth = 788
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  LCLVersion = '2.1.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\Canon-Powershot_A70-II-Th.JPG'
  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 = 96
      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 = 312
      Height = 19
      Top = 10
      Width = 128
      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 = 448
      Height = 19
      Top = 10
      Width = 123
      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'
    ParentColor = False
  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 = 19
    Anchors = [akLeft, akBottom]
    BorderSpacing.Bottom = 4
    Caption = 'Tag'
    ParentColor = False
  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