112 lines
2.4 KiB
Plaintext
112 lines
2.4 KiB
Plaintext
object Form1: TForm1
|
|
Left = 135
|
|
Top = 105
|
|
Caption = 'IPTC Information Demo - www.ImageEn.com'
|
|
ClientHeight = 584
|
|
ClientWidth = 872
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 208
|
|
Height = 584
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object ImageEnView1: TImageEnView
|
|
Left = 8
|
|
Top = 8
|
|
Width = 193
|
|
Height = 161
|
|
Background = clBtnFace
|
|
AutoFit = True
|
|
OnProgress = ImageEnView1Progress
|
|
OnFinishWork = ImageEnView1FinishWork
|
|
EnableInteractionHints = True
|
|
TabOrder = 0
|
|
end
|
|
object ProgressBar1: TProgressBar
|
|
Left = 8
|
|
Top = 176
|
|
Width = 193
|
|
Height = 17
|
|
TabOrder = 1
|
|
end
|
|
object DriveComboBox1: TDriveComboBox
|
|
Left = 8
|
|
Top = 200
|
|
Width = 195
|
|
Height = 19
|
|
DirList = DirectoryListBox1
|
|
TabOrder = 2
|
|
end
|
|
object DirectoryListBox1: TDirectoryListBox
|
|
Left = 7
|
|
Top = 224
|
|
Width = 195
|
|
Height = 97
|
|
FileList = FileListBox1
|
|
ItemHeight = 16
|
|
TabOrder = 3
|
|
end
|
|
object FileListBox1: TFileListBox
|
|
Left = 6
|
|
Top = 328
|
|
Width = 195
|
|
Height = 214
|
|
Anchors = [akLeft, akTop, akBottom]
|
|
ItemHeight = 13
|
|
Mask = '*.jpg;*.jpeg;*.tif;*.tiff'
|
|
TabOrder = 4
|
|
OnChange = FileListBox1Change
|
|
end
|
|
object btnSaveChanges: TButton
|
|
Left = 8
|
|
Top = 552
|
|
Width = 81
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Save Changes'
|
|
TabOrder = 5
|
|
OnClick = btnSaveChangesClick
|
|
end
|
|
object btnClearIPTC: TButton
|
|
Left = 124
|
|
Top = 552
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Clear'
|
|
TabOrder = 6
|
|
OnClick = btnClearIPTCClick
|
|
end
|
|
end
|
|
object StringGrid1: TStringGrid
|
|
Left = 208
|
|
Top = 0
|
|
Width = 664
|
|
Height = 584
|
|
Align = alClient
|
|
ColCount = 2
|
|
DefaultColWidth = 256
|
|
DefaultRowHeight = 18
|
|
FixedCols = 0
|
|
RowCount = 32
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goEditing, goThumbTracking]
|
|
TabOrder = 0
|
|
ColWidths = (
|
|
256
|
|
385)
|
|
end
|
|
end
|