home *** CD-ROM | disk | FTP | other *** search
- object PropForm: TPropForm
- Left = 328
- Top = 192
- BorderStyle = bsDialog
- Caption = 'Propri'#233't'#233's de l'#39'image'
- ClientHeight = 381
- ClientWidth = 450
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poMainFormCenter
- Scaled = False
- OnCreate = FormCreate
- OnHide = FormHide
- OnKeyPress = FormKeyPress
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PgControl: TPageControl
- Left = 12
- Top = 12
- Width = 426
- Height = 318
- ActivePage = TshInfos
- TabIndex = 0
- TabOrder = 0
- object TshInfos: TTabSheet
- Caption = 'Image'
- ImageIndex = 2
- object LblImage: TLabel
- Left = 64
- Top = 16
- Width = 43
- Height = 13
- Caption = 'LblImage'
- Transparent = True
- end
- object ResIcon: TImage
- Left = 16
- Top = 16
- Width = 32
- Height = 32
- end
- end
- object TshExif: TTabSheet
- Caption = 'EXIF'
- object Label1: TLabel
- Left = 12
- Top = 216
- Width = 75
- Height = 13
- Caption = 'User Comment :'
- end
- object MemoExif: TMemo
- Left = 12
- Top = 234
- Width = 393
- Height = 41
- ReadOnly = True
- TabOrder = 1
- end
- object ExifGrid: TStringGrid
- Left = 12
- Top = 12
- Width = 393
- Height = 193
- ColCount = 2
- DefaultColWidth = 150
- DefaultRowHeight = 18
- DefaultDrawing = False
- FixedCols = 0
- RowCount = 1
- FixedRows = 0
- Options = [goVertLine, goHorzLine, goRangeSelect, goRowSelect]
- ScrollBars = ssVertical
- TabOrder = 0
- OnDrawCell = GridDrawCell
- end
- end
- object TshIPTC: TTabSheet
- Caption = 'IPTC'
- ImageIndex = 1
- object IptcGrid: TStringGrid
- Left = 12
- Top = 12
- Width = 393
- Height = 175
- ColCount = 2
- DefaultColWidth = 150
- DefaultRowHeight = 18
- DefaultDrawing = False
- FixedCols = 0
- RowCount = 1
- FixedRows = 0
- Options = [goVertLine, goHorzLine, goRangeSelect, goRowSelect]
- ScrollBars = ssVertical
- TabOrder = 0
- OnDrawCell = GridDrawCell
- OnSelectCell = IptcGridSelectCell
- end
- object EdtName: TEdit
- Left = 12
- Top = 196
- Width = 393
- Height = 21
- TabOrder = 1
- end
- object MemData: TMemo
- Left = 12
- Top = 224
- Width = 393
- Height = 51
- TabOrder = 2
- end
- end
- object TshComment: TTabSheet
- Caption = 'Commentaire'
- ImageIndex = 3
- object MemComment: TMemo
- Left = 12
- Top = 12
- Width = 393
- Height = 229
- ReadOnly = True
- TabOrder = 0
- OnChange = MemCommentChange
- end
- end
- end
- object BOk: TButton
- Left = 360
- Top = 342
- Width = 78
- Height = 25
- Caption = 'Ok'
- TabOrder = 1
- OnClick = BOkClick
- end
- object BExport: TButton
- Left = 12
- Top = 342
- Width = 78
- Height = 25
- Caption = 'Exporter'
- TabOrder = 2
- OnClick = BExportClick
- end
- object BSave: TButton
- Left = 108
- Top = 345
- Width = 109
- Height = 25
- Caption = 'Valider'
- TabOrder = 3
- OnClick = BSaveClick
- end
- object SaveDialog: TSaveDialog
- DefaultExt = 'txt'
- Filter = 'Text (*.txt)|*.txt'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
- Left = 248
- Top = 344
- end
- end
-