MainUnit.dfm 3.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165
  1. object FormGammaBlur: TFormGammaBlur
  2. Left = 100
  3. Top = 189
  4. BorderStyle = bsDialog
  5. Caption = 'GammaBlur'
  6. ClientHeight = 338
  7. ClientWidth = 263
  8. Color = clBtnFace
  9. ParentFont = True
  10. Position = poScreenCenter
  11. OnCreate = FormCreate
  12. DesignSize = (
  13. 263
  14. 338)
  15. TextHeight = 15
  16. object LabelIncorrect: TLabel
  17. Left = 8
  18. Top = 32
  19. Width = 193
  20. Height = 15
  21. Caption = 'Incorrect (without gamma handling)'
  22. end
  23. object LabelCorrect: TLabel
  24. Left = 8
  25. Top = 135
  26. Width = 167
  27. Height = 15
  28. Caption = 'Correct (with gamma handling)'
  29. end
  30. object LabelGamma: TLabel
  31. Left = 8
  32. Top = 231
  33. Width = 45
  34. Height = 15
  35. Caption = 'Gamma:'
  36. ParentShowHint = False
  37. ShowHint = True
  38. end
  39. object LabelGammaValue: TLabel
  40. Left = 215
  41. Top = 230
  42. Width = 3
  43. Height = 15
  44. Anchors = [akTop, akRight]
  45. end
  46. object LabelBlur: TLabel
  47. Left = 8
  48. Top = 284
  49. Width = 68
  50. Height = 15
  51. Caption = 'Blur Radius:'
  52. end
  53. object LabelBlurValue: TLabel
  54. Left = 215
  55. Top = 283
  56. Width = 3
  57. Height = 15
  58. Anchors = [akTop, akRight]
  59. end
  60. object PaintBoxIncorrect: TPaintBox32
  61. Left = 8
  62. Top = 53
  63. Width = 247
  64. Height = 68
  65. Anchors = [akLeft, akTop, akRight]
  66. TabOrder = 0
  67. OnPaintBuffer = PaintBoxIncorrectPaintBuffer
  68. OnResize = PaintBoxResize
  69. end
  70. object PaintBoxCorrect: TPaintBox32
  71. Left = 8
  72. Top = 156
  73. Width = 247
  74. Height = 68
  75. Anchors = [akLeft, akTop, akRight]
  76. TabOrder = 1
  77. OnPaintBuffer = PaintBoxCorrectPaintBuffer
  78. OnResize = PaintBoxResize
  79. end
  80. object GaugeBarGamma: TGaugeBar
  81. Left = 82
  82. Top = 230
  83. Width = 127
  84. Height = 16
  85. Anchors = [akLeft, akTop, akRight]
  86. Backgnd = bgPattern
  87. LargeChange = 100
  88. Max = 3000
  89. Min = 300
  90. ShowHandleGrip = True
  91. Position = 2200
  92. OnChange = GaugeBarGammaChange
  93. end
  94. object GaugeBarBlurRadius: TGaugeBar
  95. Left = 82
  96. Top = 283
  97. Width = 127
  98. Height = 16
  99. Anchors = [akLeft, akTop, akRight]
  100. Backgnd = bgPattern
  101. LargeChange = 100
  102. Max = 200
  103. Min = 1
  104. ShowHandleGrip = True
  105. Position = 50
  106. OnChange = GaugeBarBlurRadiusChange
  107. end
  108. object Panel1: TPanel
  109. Left = 0
  110. Top = 0
  111. Width = 263
  112. Height = 26
  113. Align = alTop
  114. BevelOuter = bvNone
  115. ParentColor = True
  116. TabOrder = 4
  117. object LabelTestImage: TLabel
  118. Left = 8
  119. Top = 8
  120. Width = 62
  121. Height = 15
  122. Caption = 'Test Image:'
  123. end
  124. object RadioButtonRedGreen: TRadioButton
  125. Left = 82
  126. Top = 7
  127. Width = 80
  128. Height = 17
  129. Caption = 'Red/Green'
  130. Checked = True
  131. TabOrder = 0
  132. TabStop = True
  133. OnClick = RadioButtonTestImageClick
  134. end
  135. object RadioButtonCircles: TRadioButton
  136. Left = 175
  137. Top = 8
  138. Width = 66
  139. Height = 17
  140. Caption = 'Circles'
  141. TabOrder = 1
  142. OnClick = RadioButtonTestImageClick
  143. end
  144. end
  145. object CheckBoxUseNew: TCheckBox
  146. Left = 8
  147. Top = 313
  148. Width = 154
  149. Height = 17
  150. Caption = 'Use new Gaussian blur'
  151. Checked = True
  152. State = cbChecked
  153. TabOrder = 5
  154. OnClick = CheckBoxUseNewClick
  155. end
  156. object CheckBoxGammaSRGB: TCheckBox
  157. Left = 82
  158. Top = 252
  159. Width = 173
  160. Height = 17
  161. Caption = 'Use sRGB gamma correction'
  162. TabOrder = 6
  163. OnClick = CheckBoxGammaSRGBClick
  164. end
  165. end