object PropForm: TPropForm Left = 329 Top = 193 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 = TshComment TabIndex = 3 TabOrder = 0 object TshInfos: TTabSheet Caption = 'Image' ImageIndex = 2 object LblImage: TLabel Left = 64 Top = 16 Width = 43 Height = 13 Caption = 'LblImage' 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 = [goFixedVertLine, goFixedHorzLine, 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 = [goFixedVertLine, goFixedHorzLine, 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 = 181 ReadOnly = True TabOrder = 0 end end end object BOk: TButton Left = 360 Top = 343 Width = 78 Height = 25 Caption = 'Ok' TabOrder = 1 OnClick = BOkClick end object BExport: TButton Left = 12 Top = 343 Width = 78 Height = 25 Caption = 'Exporter' TabOrder = 2 OnClick = BExportClick end object SaveDialog: TSaveDialog DefaultExt = 'txt' Filter = 'Text (*.txt)|*.txt' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing] Left = 256 Top = 344 end end