| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165 |
- object FormGammaBlur: TFormGammaBlur
- Left = 100
- Top = 189
- BorderStyle = bsDialog
- Caption = 'GammaBlur'
- ClientHeight = 338
- ClientWidth = 263
- Color = clBtnFace
- ParentFont = True
- Position = poScreenCenter
- OnCreate = FormCreate
- DesignSize = (
- 263
- 338)
- TextHeight = 15
- object LabelIncorrect: TLabel
- Left = 8
- Top = 32
- Width = 193
- Height = 15
- Caption = 'Incorrect (without gamma handling)'
- end
- object LabelCorrect: TLabel
- Left = 8
- Top = 135
- Width = 167
- Height = 15
- Caption = 'Correct (with gamma handling)'
- end
- object LabelGamma: TLabel
- Left = 8
- Top = 231
- Width = 45
- Height = 15
- Caption = 'Gamma:'
- ParentShowHint = False
- ShowHint = True
- end
- object LabelGammaValue: TLabel
- Left = 215
- Top = 230
- Width = 3
- Height = 15
- Anchors = [akTop, akRight]
- end
- object LabelBlur: TLabel
- Left = 8
- Top = 284
- Width = 68
- Height = 15
- Caption = 'Blur Radius:'
- end
- object LabelBlurValue: TLabel
- Left = 215
- Top = 283
- Width = 3
- Height = 15
- Anchors = [akTop, akRight]
- end
- object PaintBoxIncorrect: TPaintBox32
- Left = 8
- Top = 53
- Width = 247
- Height = 68
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 0
- OnPaintBuffer = PaintBoxIncorrectPaintBuffer
- OnResize = PaintBoxResize
- end
- object PaintBoxCorrect: TPaintBox32
- Left = 8
- Top = 156
- Width = 247
- Height = 68
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 1
- OnPaintBuffer = PaintBoxCorrectPaintBuffer
- OnResize = PaintBoxResize
- end
- object GaugeBarGamma: TGaugeBar
- Left = 82
- Top = 230
- Width = 127
- Height = 16
- Anchors = [akLeft, akTop, akRight]
- Backgnd = bgPattern
- LargeChange = 100
- Max = 3000
- Min = 300
- ShowHandleGrip = True
- Position = 2200
- OnChange = GaugeBarGammaChange
- end
- object GaugeBarBlurRadius: TGaugeBar
- Left = 82
- Top = 283
- Width = 127
- Height = 16
- Anchors = [akLeft, akTop, akRight]
- Backgnd = bgPattern
- LargeChange = 100
- Max = 200
- Min = 1
- ShowHandleGrip = True
- Position = 50
- OnChange = GaugeBarBlurRadiusChange
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 263
- Height = 26
- Align = alTop
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 4
- object LabelTestImage: TLabel
- Left = 8
- Top = 8
- Width = 62
- Height = 15
- Caption = 'Test Image:'
- end
- object RadioButtonRedGreen: TRadioButton
- Left = 82
- Top = 7
- Width = 80
- Height = 17
- Caption = 'Red/Green'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = RadioButtonTestImageClick
- end
- object RadioButtonCircles: TRadioButton
- Left = 175
- Top = 8
- Width = 66
- Height = 17
- Caption = 'Circles'
- TabOrder = 1
- OnClick = RadioButtonTestImageClick
- end
- end
- object CheckBoxUseNew: TCheckBox
- Left = 8
- Top = 313
- Width = 154
- Height = 17
- Caption = 'Use new Gaussian blur'
- Checked = True
- State = cbChecked
- TabOrder = 5
- OnClick = CheckBoxUseNewClick
- end
- object CheckBoxGammaSRGB: TCheckBox
- Left = 82
- Top = 252
- Width = 173
- Height = 17
- Caption = 'Use sRGB gamma correction'
- TabOrder = 6
- OnClick = CheckBoxGammaSRGBClick
- end
- end
|