ClipForm.dfm 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151
  1. object MainForm: TMainForm
  2. Left = 108
  3. Top = 118
  4. BorderIcons = [biSystemMenu]
  5. BorderStyle = bsSingle
  6. Caption = 'Clipping Test'
  7. ClientHeight = 652
  8. ClientWidth = 1036
  9. Color = clBtnFace
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -11
  13. Font.Name = 'Tahoma'
  14. Font.Style = []
  15. OldCreateOrder = False
  16. Position = poScreenCenter
  17. OnCreate = FormCreate
  18. OnDestroy = FormDestroy
  19. PixelsPerInch = 96
  20. TextHeight = 13
  21. object PanelConf: TPanel
  22. Left = 0
  23. Top = 0
  24. Width = 1036
  25. Height = 497
  26. Align = alTop
  27. Color = clSkyBlue
  28. DragCursor = crDefault
  29. TabOrder = 0
  30. object ImageDst: TImage
  31. Left = 494
  32. Top = 80
  33. Width = 450
  34. Height = 337
  35. DragCursor = crDefault
  36. Proportional = True
  37. end
  38. object ClipDst: TJvMovableBevel
  39. Left = 592
  40. Top = 136
  41. Width = 329
  42. Height = 241
  43. Hint = 'Dest Clip Rect'
  44. ParentShowHint = False
  45. Shape = bsFrame
  46. ShowHint = True
  47. Style = bsRaised
  48. BorderSize = 5
  49. end
  50. object ImageSrc: TImage
  51. Left = 64
  52. Top = 120
  53. Width = 300
  54. Height = 225
  55. DragCursor = crDefault
  56. Proportional = True
  57. end
  58. object SelDst: TJvMovableBevel
  59. Left = 568
  60. Top = 208
  61. Width = 265
  62. Height = 97
  63. Hint = 'Dest Selection'
  64. ParentShowHint = False
  65. Shape = bsFrame
  66. ShowHint = True
  67. Style = bsRaised
  68. end
  69. object SelSrc: TJvMovableBevel
  70. Left = 128
  71. Top = 176
  72. Width = 177
  73. Height = 97
  74. Hint = 'Source Selection'
  75. ParentShowHint = False
  76. Shape = bsFrame
  77. ShowHint = True
  78. Style = bsRaised
  79. end
  80. end
  81. object PanelCmd: TPanel
  82. Left = 0
  83. Top = 497
  84. Width = 1036
  85. Height = 155
  86. Align = alClient
  87. TabOrder = 1
  88. object Button1: TButton
  89. Left = 424
  90. Top = 16
  91. Width = 137
  92. Height = 25
  93. Caption = 'Reset Copy Selections'
  94. TabOrder = 0
  95. OnClick = Button1Click
  96. end
  97. object Button2: TButton
  98. Left = 424
  99. Top = 47
  100. Width = 137
  101. Height = 25
  102. Caption = 'Reset Stretch Selections'
  103. TabOrder = 1
  104. OnClick = Button2Click
  105. end
  106. object Button3: TButton
  107. Left = 344
  108. Top = 96
  109. Width = 145
  110. Height = 25
  111. Caption = 'CopyRect Test'
  112. TabOrder = 2
  113. OnClick = Button3Click
  114. end
  115. object Button4: TButton
  116. Left = 512
  117. Top = 96
  118. Width = 145
  119. Height = 25
  120. Caption = 'StretchRect Test'
  121. TabOrder = 3
  122. OnClick = Button4Click
  123. end
  124. object Button5: TButton
  125. Left = 344
  126. Top = 127
  127. Width = 145
  128. Height = 25
  129. Caption = 'Canvas.Draw Test'
  130. TabOrder = 4
  131. OnClick = Button5Click
  132. end
  133. object Button6: TButton
  134. Left = 512
  135. Top = 127
  136. Width = 145
  137. Height = 25
  138. Caption = 'Canvas.StretchDraw Test'
  139. TabOrder = 5
  140. OnClick = Button6Click
  141. end
  142. object CheckGenCanvas: TCheckBox
  143. Left = 704
  144. Top = 24
  145. Width = 209
  146. Height = 17
  147. Caption = 'Force generic canvas class'
  148. TabOrder = 6
  149. end
  150. end
  151. end