BSOne.SFC/EM.Lib/ImageEn_SRC/Demos/InputOutput/CameraRaw/MAIN.dfm

272 lines
5.7 KiB
Plaintext

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