lazarus-ccr/components/fpexif/delphi examples/simple_demo/sdmain.dfm
wp_xxyyzz acb60ffd33 fpexif: Add Delphi examples
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7328 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2020-02-17 23:17:39 +00:00

187 lines
3.8 KiB
Plaintext

object MainForm: TMainForm
Left = 329
Top = 131
Caption = 'MainForm'
ClientHeight = 477
ClientWidth = 788
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = True
OnCreate = FormCreate
OnDestroy = FormDestroy
DesignSize = (
788
477)
PixelsPerInch = 96
TextHeight = 13
object Thumbnail: TImage
Left = 620
Top = 41
Width = 160
Height = 151
Anchors = [akTop, akRight]
Center = True
Proportional = True
Stretch = True
end
object Label1: TLabel
Left = 620
Top = 380
Width = 50
Height = 13
Anchors = [akRight, akBottom]
Caption = 'New value'
Color = clBtnFace
ParentColor = False
end
object Label2: TLabel
Left = 618
Top = 330
Width = 18
Height = 13
Anchors = [akRight, akBottom]
Caption = 'Tag'
Color = clBtnFace
ParentColor = False
end
object BtnLoad: TButton
Left = 728
Top = 8
Width = 52
Height = 25
Anchors = [akTop, akRight]
Caption = 'Load'
TabOrder = 0
OnClick = BtnLoadClick
end
object CbFilename: TComboBox
Left = 8
Top = 9
Width = 677
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 1
Text = '..\test-image.jpg'
OnSelect = CbFilenameSelect
end
object Memo: TMemo
Left = 8
Top = 41
Width = 604
Height = 384
Anchors = [akLeft, akTop, akRight, akBottom]
ScrollBars = ssBoth
TabOrder = 2
end
object BtnBrowse: TButton
Left = 689
Top = 8
Width = 35
Height = 25
Anchors = [akTop, akRight]
Caption = '...'
TabOrder = 3
OnClick = BtnBrowseClick
end
object Panel1: TPanel
Left = 0
Top = 442
Width = 788
Height = 35
Align = alBottom
BevelOuter = bvNone
TabOrder = 4
DesignSize = (
788
35)
object CbVerbosity: TComboBox
Left = 8
Top = 1
Width = 192
Height = 21
Style = csDropDownList
ItemIndex = 2
TabOrder = 0
Text = 'Hex tag IDs'
Items.Strings = (
'Tag names only'
'Decimal tag IDs'
'Hex tag IDs')
end
object CbDecodeValue: TCheckBox
Left = 208
Top = 3
Width = 96
Height = 19
Caption = 'Decode values'
Checked = True
State = cbChecked
TabOrder = 1
OnClick = CbDecodeValueClick
end
object CbTruncateBinaryTags: TCheckBox
Left = 312
Top = 3
Width = 127
Height = 19
Caption = 'Truncate binary tags'
Checked = True
State = cbChecked
TabOrder = 2
OnClick = CbTruncateBinaryTagsClick
end
object CbBinaryAsASCII: TCheckBox
Left = 447
Top = 3
Width = 123
Height = 19
Caption = 'Binary tags as ASCII'
TabOrder = 3
OnClick = CbBinaryAsASCIIClick
end
object BtnSave: TButton
Left = 650
Top = 0
Width = 130
Height = 25
Anchors = [akTop, akRight]
Caption = 'Save as "_modified"'
Enabled = False
TabOrder = 4
OnClick = BtnSaveClick
end
end
object CbTags: TComboBox
Left = 620
Top = 349
Width = 160
Height = 21
Style = csDropDownList
Anchors = [akRight, akBottom]
DropDownCount = 32
TabOrder = 5
OnSelect = CbTagsSelect
end
object EdNewTagValue: TEdit
Left = 620
Top = 399
Width = 160
Height = 21
Anchors = [akRight, akBottom]
TabOrder = 6
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)|*.jp' +
'g;*.jpeg;*.jfe|TIFF files (*.tiff; *.tif)|*.tiff;*.tif'
Left = 248
Top = 168
end
end