object MainForm: TMainForm Left = 208 Top = 238 Caption = 'ImageEn Digital Camera Raw Demo - www.ImageEn.com' ClientHeight = 604 ClientWidth = 780 Color = clAppWorkSpace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object ImageEnView1: TImageEnView Left = 136 Top = 0 Width = 644 Height = 604 Cursor = crDefault Background = clBlack BorderStyle = bsNone MouseInteract = [miSelect] SelectionBase = iesbBitmap OnProgress = ImageEnView1Progress OnFinishWork = ImageEnView1FinishWork EnableInteractionHints = True Align = alClient TabOrder = 0 end object pnlLeft: TPanel Left = 0 Top = 0 Width = 136 Height = 604 Align = alLeft BevelOuter = bvNone TabOrder = 1 DesignSize = ( 136 604) object lblOptions: TLabel Left = 10 Top = 192 Width = 43 Height = 13 Caption = 'Options' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lblGamma: TLabel Left = 11 Top = 363 Width = 39 Height = 13 Caption = 'Gamma:' end object lblSize: TLabel Left = 10 Top = 216 Width = 23 Height = 13 Caption = 'Size:' end object lblCamera: TLabel Left = 9 Top = 437 Width = 41 Height = 13 Caption = 'Camera:' end object lblExtraParams: TLabel Left = 11 Top = 392 Width = 68 Height = 13 Caption = 'Extra Params:' end object btnOpen: TBitBtn Left = 10 Top = 8 Width = 113 Height = 25 Caption = 'Open Image...' TabOrder = 0 OnClick = btnOpenClick end object btnZoomIn: TBitBtn Left = 10 Top = 75 Width = 113 Height = 25 Action = ZoomIn Caption = 'Zoom In' TabOrder = 1 end object BtnZoomOut: TBitBtn Left = 10 Top = 106 Width = 113 Height = 25 Action = ZoomOut Caption = 'Zoom Out' TabOrder = 2 end object btnZoomFull: TBitBtn Left = 10 Top = 137 Width = 113 Height = 25 Action = ZoomFullSize Caption = 'Zoom to Full Size' TabOrder = 3 end object btnExit: TBitBtn Left = 10 Top = 571 Width = 113 Height = 25 Action = ExitApp Anchors = [akLeft, akBottom] Caption = 'E&xit' TabOrder = 14 end object pbrLoading: TProgressBar Left = 10 Top = 39 Width = 113 Height = 17 TabOrder = 4 Visible = False end object edtCamera: TEdit Left = 21 Top = 453 Width = 106 Height = 21 Color = clBtnFace ReadOnly = True TabOrder = 13 end object trkGamma: TTrackBar Left = 52 Top = 357 Width = 82 Height = 25 Max = 100 Frequency = 5 TabOrder = 11 OnChange = ControlChange end object cmbSize: TComboBox Left = 39 Top = 212 Width = 91 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 5 Text = 'Thumbnail' OnClick = ControlChange Items.Strings = ( 'Thumbnail' 'Half size' 'Full size') end object edtExtraParams: TEdit Left = 21 Top = 408 Width = 106 Height = 21 TabOrder = 12 OnChange = ControlChange end object chkFourColorRGB: TCheckBox Left = 10 Top = 334 Width = 120 Height = 17 Caption = 'Four Color RGB' TabOrder = 10 OnClick = ControlChange end object chkQuickInterpolate: TCheckBox Left = 10 Top = 310 Width = 120 Height = 17 Caption = 'Quick Interpolate' TabOrder = 9 OnClick = ControlChange end object chkUseAutoWB: TCheckBox Left = 10 Top = 262 Width = 120 Height = 17 Caption = 'Auto White Balance' TabOrder = 7 OnClick = ControlChange end object chkUseCameraWB: TCheckBox Left = 10 Top = 286 Width = 120 Height = 17 Caption = 'Use Camera WB' TabOrder = 8 OnClick = ControlChange end object chkAutoAdjustColors: TCheckBox Left = 10 Top = 239 Width = 120 Height = 17 Caption = 'Auto Adjust Colors' TabOrder = 6 OnClick = ControlChange end end object ActionList1: TActionList Left = 221 Top = 26 object ZoomIn: TImageEnViewZoomIn Category = 'ImageEnView' Caption = 'Zoom In' Enabled = False Hint = 'Enlarge the image' ImageIndex = 22 ImageEnView = ImageEnView1 end object ZoomOut: TImageEnViewZoomOut Category = 'ImageEnView' Caption = 'Zoom Out' Enabled = False Hint = 'Display the image smaller' ImageIndex = 23 ImageEnView = ImageEnView1 end object ZoomFullSize: TImageEnViewZoomFullSize Category = 'ImageEnView' Caption = 'Zoom to Full Size' Enabled = False Hint = 'Display the image at full size (100% zoom)' ImageIndex = 24 ImageEnView = ImageEnView1 end object ExitApp: TFileExit Category = 'File' Caption = 'E&xit' Hint = 'Exit|Quits the application' ImageIndex = 43 end end object tmrReload: TTimer Enabled = False Interval = 500 OnTimer = tmrReloadTimer Left = 152 Top = 24 end end