MainUnit.dfm 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240
  1. object FrmBlurs: TFrmBlurs
  2. Left = 283
  3. Top = 189
  4. Caption = 'Blurs'
  5. ClientHeight = 405
  6. ClientWidth = 719
  7. Color = clBtnFace
  8. Font.Charset = ANSI_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -12
  11. Font.Name = 'Arial'
  12. Font.Style = []
  13. Menu = MainMenu
  14. OldCreateOrder = False
  15. OnCreate = FormCreate
  16. OnDestroy = FormDestroy
  17. PixelsPerInch = 96
  18. TextHeight = 15
  19. object PnlControl: TPanel
  20. Left = 0
  21. Top = 0
  22. Width = 154
  23. Height = 386
  24. Align = alLeft
  25. TabOrder = 0
  26. object LblBlurRadius: TLabel
  27. Left = 12
  28. Top = 196
  29. Width = 90
  30. Height = 15
  31. Caption = 'Blur &Radius (10)'
  32. FocusControl = TbrBlurRadius
  33. end
  34. object LblBlurAngle: TLabel
  35. Left = 12
  36. Top = 276
  37. Width = 80
  38. Height = 15
  39. Caption = 'Blur &Angle (45)'
  40. Enabled = False
  41. FocusControl = TbrBlurAngle
  42. end
  43. object RgpBlurType: TRadioGroup
  44. Left = 10
  45. Top = 28
  46. Width = 130
  47. Height = 116
  48. Caption = 'Blur Type'
  49. ItemIndex = 1
  50. Items.Strings = (
  51. '&None'
  52. '&Gaussian'
  53. 'Fa&stGaussian'
  54. '&Motion')
  55. TabOrder = 0
  56. OnClick = RgpBlurTypeClick
  57. end
  58. object TbrBlurRadius: TTrackBar
  59. Left = 8
  60. Top = 220
  61. Width = 137
  62. Height = 31
  63. Max = 50
  64. Position = 10
  65. TabOrder = 1
  66. TickStyle = tsNone
  67. OnChange = TbrBlurRadiusChange
  68. end
  69. object TbrBlurAngle: TTrackBar
  70. Left = 8
  71. Top = 300
  72. Width = 137
  73. Height = 31
  74. Enabled = False
  75. Max = 180
  76. Min = -180
  77. Position = 45
  78. TabOrder = 2
  79. TickStyle = tsNone
  80. OnChange = TbrBlurAngleChange
  81. end
  82. object CbxBidirectional: TCheckBox
  83. Left = 12
  84. Top = 332
  85. Width = 136
  86. Height = 17
  87. Caption = 'Bi&directional motion'
  88. Checked = True
  89. Enabled = False
  90. State = cbChecked
  91. TabOrder = 3
  92. OnClick = PageControlChange
  93. end
  94. object CheckBoxCorrectGamma: TCheckBox
  95. Left = 16
  96. Top = 150
  97. Width = 105
  98. Height = 17
  99. Caption = '&Correct Gamma'
  100. Checked = True
  101. State = cbChecked
  102. TabOrder = 4
  103. OnClick = PageControlChange
  104. end
  105. end
  106. object SbrMain: TStatusBar
  107. Left = 0
  108. Top = 386
  109. Width = 719
  110. Height = 19
  111. Panels = <>
  112. SimplePanel = True
  113. end
  114. object PageControl: TPageControl
  115. Left = 154
  116. Top = 0
  117. Width = 565
  118. Height = 386
  119. ActivePage = TabSheet1
  120. Align = alClient
  121. TabOrder = 2
  122. OnChange = PageControlChange
  123. object TabSheet1: TTabSheet
  124. Caption = 'Page &1'
  125. object ImgViewPage1: TImgView32
  126. Left = 0
  127. Top = 0
  128. Width = 557
  129. Height = 356
  130. Align = alClient
  131. Bitmap.ResamplerClassName = 'TNearestResampler'
  132. BitmapAlign = baCustom
  133. Scale = 1.000000000000000000
  134. ScaleMode = smScale
  135. ScrollBars.ShowHandleGrip = True
  136. ScrollBars.Style = rbsDefault
  137. ScrollBars.Size = 16
  138. ScrollBars.Visibility = svHidden
  139. OverSize = 0
  140. TabOrder = 0
  141. end
  142. end
  143. object TabSheet2: TTabSheet
  144. Caption = 'Page &2'
  145. ImageIndex = 1
  146. ExplicitLeft = 0
  147. ExplicitTop = 0
  148. ExplicitWidth = 0
  149. ExplicitHeight = 0
  150. object ImgViewPage2: TImgView32
  151. Left = 0
  152. Top = 0
  153. Width = 557
  154. Height = 356
  155. Align = alClient
  156. Bitmap.ResamplerClassName = 'TNearestResampler'
  157. BitmapAlign = baCustom
  158. Scale = 1.000000000000000000
  159. ScaleMode = smScale
  160. ScrollBars.ShowHandleGrip = True
  161. ScrollBars.Style = rbsDefault
  162. ScrollBars.Size = 16
  163. ScrollBars.Visibility = svHidden
  164. OverSize = 0
  165. TabOrder = 0
  166. end
  167. end
  168. object TabSheet3: TTabSheet
  169. Caption = 'Page &3'
  170. ImageIndex = 2
  171. ExplicitLeft = 0
  172. ExplicitTop = 0
  173. ExplicitWidth = 0
  174. ExplicitHeight = 0
  175. object ImgViewPage3: TImgView32
  176. Left = 0
  177. Top = 0
  178. Width = 557
  179. Height = 356
  180. Align = alClient
  181. Bitmap.ResamplerClassName = 'TNearestResampler'
  182. BitmapAlign = baCustom
  183. Scale = 1.000000000000000000
  184. ScaleMode = smScale
  185. ScrollBars.ShowHandleGrip = True
  186. ScrollBars.Style = rbsDefault
  187. ScrollBars.Size = 16
  188. ScrollBars.Visibility = svHidden
  189. OverSize = 0
  190. TabOrder = 0
  191. end
  192. end
  193. end
  194. object MainMenu: TMainMenu
  195. Left = 116
  196. Top = 328
  197. object MnuFile: TMenuItem
  198. Caption = '&File'
  199. object MnuOpen: TMenuItem
  200. Caption = '&Open ...'
  201. OnClick = MnuOpenClick
  202. end
  203. object N1: TMenuItem
  204. Caption = '-'
  205. end
  206. object MnuExit: TMenuItem
  207. Caption = 'E&xit'
  208. ShortCut = 27
  209. OnClick = MnuExitClick
  210. end
  211. end
  212. object MnuBlurType: TMenuItem
  213. Caption = 'Bl&ur Type'
  214. object MnuNone: TMenuItem
  215. Caption = '&None'
  216. OnClick = MnuGaussianTypeClick
  217. end
  218. object MnuGaussianType: TMenuItem
  219. Caption = '&Gaussian'
  220. Checked = True
  221. OnClick = MnuGaussianTypeClick
  222. end
  223. object MnuFastGaussian: TMenuItem
  224. Caption = 'F&astGaussian'
  225. OnClick = MnuGaussianTypeClick
  226. end
  227. object MnuMotion: TMenuItem
  228. Caption = '&Motion'
  229. OnClick = MnuGaussianTypeClick
  230. end
  231. end
  232. end
  233. object OpenDialog: TOpenDialog
  234. DefaultExt = 'jpg'
  235. Filter = 'Image Files (*.jpg;*.bmp)|*.jpg;*.bmp;'
  236. Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
  237. Left = 120
  238. Top = 288
  239. end
  240. end