UnitMain.dfm 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221
  1. object FormMain: TFormMain
  2. Left = 0
  3. Top = 0
  4. Caption = 'Resize and Rotate bitmap'
  5. ClientHeight = 441
  6. ClientWidth = 624
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -12
  11. Font.Name = 'Segoe UI'
  12. Font.Style = []
  13. OnCreate = FormCreate
  14. OnResize = FormResize
  15. TextHeight = 15
  16. object ImageSource: TImgView32
  17. Left = 0
  18. Top = 0
  19. Width = 317
  20. Height = 343
  21. Align = alLeft
  22. Bitmap.DrawMode = dmBlend
  23. Bitmap.ResamplerClassName = 'TNearestResampler'
  24. BitmapAlign = baCustom
  25. Scale = 1.000000000000000000
  26. ScaleMode = smScale
  27. Background.CheckersStyle = bcsLight
  28. Background.FillStyle = bfsCheckers
  29. MousePan.Enabled = True
  30. MouseZoom.Enabled = True
  31. MouseZoom.Animate = True
  32. ScrollBars.ShowHandleGrip = True
  33. ScrollBars.Style = rbsDefault
  34. ScrollBars.Size = 17
  35. OverSize = 0
  36. TabOrder = 0
  37. end
  38. object ImageDest: TImgView32
  39. Left = 317
  40. Top = 0
  41. Width = 307
  42. Height = 343
  43. Align = alClient
  44. Bitmap.DrawMode = dmBlend
  45. Bitmap.ResamplerClassName = 'TNearestResampler'
  46. BitmapAlign = baCustom
  47. Scale = 1.000000000000000000
  48. ScaleMode = smScale
  49. Background.CheckersStyle = bcsLight
  50. Background.FillStyle = bfsCheckers
  51. MousePan.Enabled = True
  52. MouseZoom.Enabled = True
  53. MouseZoom.Animate = True
  54. ScrollBars.ShowHandleGrip = True
  55. ScrollBars.Style = rbsDefault
  56. ScrollBars.Size = 17
  57. OverSize = 0
  58. TabOrder = 1
  59. end
  60. object Panel1: TPanel
  61. Left = 0
  62. Top = 343
  63. Width = 624
  64. Height = 79
  65. Align = alBottom
  66. BevelOuter = bvNone
  67. ShowCaption = False
  68. TabOrder = 2
  69. DesignSize = (
  70. 624
  71. 79)
  72. object Label1: TLabel
  73. Left = 162
  74. Top = 16
  75. Width = 34
  76. Height = 15
  77. Caption = '&Angle:'
  78. FocusControl = TrackBarAngle
  79. OnClick = SettingChanged
  80. end
  81. object Label2: TLabel
  82. Left = 8
  83. Top = 16
  84. Width = 35
  85. Height = 15
  86. Caption = '&Width:'
  87. FocusControl = SpinEditWidth
  88. end
  89. object Label3: TLabel
  90. Left = 8
  91. Top = 46
  92. Width = 39
  93. Height = 15
  94. Caption = '&Height:'
  95. FocusControl = SpinEditHeight
  96. end
  97. object Bevel1: TBevel
  98. Left = 511
  99. Top = 6
  100. Width = 5
  101. Height = 65
  102. Anchors = [akTop, akRight]
  103. Shape = bsLeftLine
  104. end
  105. object Bevel2: TBevel
  106. Left = 151
  107. Top = 6
  108. Width = 5
  109. Height = 65
  110. Shape = bsLeftLine
  111. end
  112. object Bevel3: TBevel
  113. Left = 162
  114. Top = 39
  115. Width = 340
  116. Height = 5
  117. Anchors = [akLeft, akTop, akRight]
  118. Shape = bsTopLine
  119. end
  120. object Label4: TLabel
  121. Left = 162
  122. Top = 50
  123. Width = 58
  124. Height = 15
  125. Caption = '&Resampler:'
  126. end
  127. object TrackBarAngle: TTrackBar
  128. Left = 202
  129. Top = 6
  130. Width = 303
  131. Height = 27
  132. Anchors = [akLeft, akTop, akRight]
  133. LineSize = 15
  134. Max = 360
  135. PageSize = 45
  136. Frequency = 15
  137. PositionToolTip = ptBottom
  138. ShowSelRange = False
  139. TabOrder = 2
  140. ThumbLength = 15
  141. TickMarks = tmTopLeft
  142. OnChange = SettingChanged
  143. end
  144. object SpinEditWidth: TSpinEdit
  145. Left = 64
  146. Top = 11
  147. Width = 77
  148. Height = 24
  149. Increment = 64
  150. MaxValue = 4096
  151. MinValue = 1
  152. TabOrder = 0
  153. Value = 1
  154. OnChange = SettingChanged
  155. end
  156. object SpinEditHeight: TSpinEdit
  157. Left = 64
  158. Top = 41
  159. Width = 77
  160. Height = 24
  161. Increment = 64
  162. MaxValue = 4096
  163. MinValue = 1
  164. TabOrder = 1
  165. Value = 1
  166. OnChange = SettingChanged
  167. end
  168. object CheckBoxUpdate: TCheckBox
  169. Left = 522
  170. Top = 48
  171. Width = 97
  172. Height = 17
  173. Anchors = [akTop, akRight]
  174. Caption = '&Live update'
  175. TabOrder = 4
  176. OnClick = CheckBoxUpdateClick
  177. end
  178. object Button1: TButton
  179. Left = 522
  180. Top = 11
  181. Width = 75
  182. Height = 25
  183. Action = ActionApply
  184. Anchors = [akTop, akRight]
  185. TabOrder = 5
  186. end
  187. object ComboBoxResampler: TComboBox
  188. Left = 232
  189. Top = 47
  190. Width = 145
  191. Height = 23
  192. Style = csDropDownList
  193. TabOrder = 3
  194. OnChange = SettingChanged
  195. end
  196. end
  197. object StatusBar: TStatusBar
  198. Left = 0
  199. Top = 422
  200. Width = 624
  201. Height = 19
  202. Panels = <>
  203. SimplePanel = True
  204. end
  205. object TimerApply: TTimer
  206. Enabled = False
  207. Interval = 500
  208. OnTimer = TimerApplyTimer
  209. Left = 192
  210. Top = 152
  211. end
  212. object ActionList1: TActionList
  213. Left = 424
  214. Top = 158
  215. object ActionApply: TAction
  216. Caption = '&Apply'
  217. OnExecute = ActionApplyExecute
  218. OnUpdate = ActionApplyUpdate
  219. end
  220. end
  221. end