unit1.dfm

Delphi面向对象编程50例

object Form1: TForm1
  Left = 278
  Top = 283
  Width = 587
  Height = 661
  Caption = 'EXIF Reader'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 16
    Top = 7
    Width = 100
    Height = 25
    Cursor = crHandPoint
    Caption = 'Open image...'
    TabOrder = 0
    OnClick = cmOpen
  end
  object Edit1: TEdit
    Left = 125
    Top = 9
    Width = 439
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    ParentColor = True
    ReadOnly = True
    TabOrder = 1
  end
  object tc: TTabControl
    Left = 13
    Top = 42
    Width = 553
    Height = 582
    Cursor = crHandPoint
    Anchors = [akLeft, akTop, akRight, akBottom]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    Tabs.Strings = (
      ' IFD 0 '
      ' EXIF Sub IFD'
      ' EXIF Interoperability IFD '
      ' Maker Note '
      ' IFD 1'
      ' Thumbnail ')
    TabIndex = 0
    OnChange = tcChange
    object List: TListView
      Left = 15
      Top = 33
      Width = 522
      Height = 531
      Anchors = [akLeft, akTop, akRight, akBottom]
      Columns = <
        item
          Caption = 'Tag'
        end
        item
          Caption = 'Property'
          Width = 150
        end
        item
          Caption = 'Value'
          Width = 300
        end>
      ColumnClick = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ReadOnly = True
      RowSelect = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      ViewStyle = vsReport
      OnDblClick = ListDblClick
    end
    object ImagePanel: TPanel
      Left = 4
      Top = 24
      Width = 545
      Height = 554
      Align = alClient
      BevelOuter = bvNone
      Caption = ' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Image: TImage
        Left = 15
        Top = 33
        Width = 514
        Height = 503
        Anchors = [akLeft, akTop, akRight, akBottom]
      end
      object Label1: TLabel
        Left = 0
        Top = 541
        Width = 545
        Height = 13
        Align = alBottom
        Caption = ' '
      end
    end
  end
  object opd: TOpenPictureDialog
    Filter = 
      'All (*.png;*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.png;*.g' +
      'if;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf|Portable Network Graphic' +
      's (*.png)|*.png|CompuServe GIF Image (*.gif)|*.gif|JPEG Image Fi' +
      'le (*.jpg)|*.jpg;*.jpeg|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ic' +
      'o|Enhanced Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 168
  end
end