5979de2a61
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7908 8e941d3f-bd1b-0410-a28a-d453659cc2b4
327 lines
8.3 KiB
Plaintext
327 lines
8.3 KiB
Plaintext
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 = 288
|
|
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 = 19
|
|
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 = 293
|
|
Width = 274
|
|
Height = 241
|
|
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
|
|
object Panel5: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 274
|
|
Height = 19
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 3
|
|
OnResize = Panel5Resize
|
|
object DriveComboBox1: TDriveComboBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 274
|
|
Height = 19
|
|
TabOrder = 0
|
|
OnChange = DriveComboBox1Change
|
|
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
|
|
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'
|
|
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
|
|
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'
|
|
object Image: TImage
|
|
Left = 0
|
|
Top = 0
|
|
Width = 639
|
|
Height = 522
|
|
Align = alClient
|
|
Center = True
|
|
Proportional = True
|
|
Stretch = True
|
|
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
|