object MainForm: TMainForm Left = 204 Top = 60 Caption = 'WIA Camera Acquisition Demo - www.ImageEn.com' ClientHeight = 666 ClientWidth = 936 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Menu = MainMenu1 OldCreateOrder = True Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 661 Top = 0 Height = 649 Align = alRight Beveled = True end object ImageEnView1: TImageEnView Left = 0 Top = 0 Width = 661 Height = 649 Background = clBtnFace BorderStyle = bsNone AutoFit = True OnProgress = ImageEnView1Progress EnableInteractionHints = True Align = alClient TabOrder = 0 end object Panel1: TPanel Left = 664 Top = 0 Width = 272 Height = 649 Align = alRight BevelOuter = bvNone TabOrder = 1 object Label1: TLabel Left = 12 Top = 3 Width = 100 Height = 13 Caption = 'Camera Directory' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 12 Top = 524 Width = 75 Height = 13 Caption = 'EXIF Samples' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 12 Top = 404 Width = 59 Height = 13 Caption = 'Thumbnail' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object TreeView1: TTreeView Left = 12 Top = 20 Width = 246 Height = 321 Anchors = [akLeft, akTop, akRight] Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Indent = 19 ParentFont = False TabOrder = 0 OnChange = TreeView1Change end object Panel2: TPanel Left = 12 Top = 541 Width = 241 Height = 89 BevelKind = bkFlat BevelOuter = bvNone TabOrder = 1 object lblMake: TLabel Left = 8 Top = 8 Width = 29 Height = 13 Caption = 'Make:' end object Label4: TLabel Left = 48 Top = 8 Width = 20 Height = 13 Caption = 'n.a.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lblModel: TLabel Left = 8 Top = 24 Width = 32 Height = 13 Caption = 'Model:' end object Label6: TLabel Left = 48 Top = 24 Width = 20 Height = 13 Caption = 'n.a.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lblDate: TLabel Left = 8 Top = 40 Width = 27 Height = 13 Caption = 'Date:' end object Label8: TLabel Left = 48 Top = 40 Width = 20 Height = 13 Caption = 'n.a.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lblSize: TLabel Left = 8 Top = 56 Width = 23 Height = 13 Caption = 'Size:' end object Label10: TLabel Left = 48 Top = 56 Width = 20 Height = 13 Caption = 'n.a.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end end object chkSaveToDisk: TCheckBox Left = 20 Top = 346 Width = 130 Height = 17 Caption = 'Save image to disk' TabOrder = 2 end object chkLoadImage: TCheckBox Left = 20 Top = 367 Width = 99 Height = 17 Caption = 'Load Image' TabOrder = 3 end object ImageEnView2: TImageEnView Left = 12 Top = 420 Width = 105 Height = 89 Background = clBtnFace AutoFit = True EnableInteractionHints = True TabOrder = 4 end object Button1: TButton Left = 183 Top = 346 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = 'Delete Image' TabOrder = 5 OnClick = Button1Click end end object ProgressBar1: TProgressBar Left = 0 Top = 649 Width = 936 Height = 17 Align = alBottom TabOrder = 2 end object MainMenu1: TMainMenu Left = 106 Top = 106 object File1: TMenuItem Caption = 'File' object Save1: TMenuItem Caption = '&Save loaded image...' OnClick = Save1Click end object N1: TMenuItem Caption = '-' end object Print1: TMenuItem Caption = '&Print...' OnClick = Print1Click end object N2: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = '&Exit' OnClick = Exit1Click end end object SelectCamera1: TMenuItem Caption = 'Select Camera' OnClick = SelectCamera1Click end end end