MainUnit.dfm 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131
  1. object MainForm: TMainForm
  2. Left = 296
  3. Top = 97
  4. BorderIcons = [biSystemMenu, biMinimize]
  5. BorderStyle = bsSingle
  6. Caption = 'Blend vs. Merge Example'
  7. ClientHeight = 456
  8. ClientWidth = 272
  9. Color = clBtnFace
  10. ParentFont = True
  11. Position = poScreenCenter
  12. OnCreate = FormCreate
  13. DesignSize = (
  14. 272
  15. 456)
  16. TextHeight = 15
  17. object LabelOverlay: TLabel
  18. Left = 8
  19. Top = 171
  20. Width = 40
  21. Height = 15
  22. Anchors = [akLeft, akBottom]
  23. Caption = 'Overlay'
  24. Layout = tlCenter
  25. end
  26. object LabelBlendSettings: TLabel
  27. Left = 8
  28. Top = 84
  29. Width = 75
  30. Height = 15
  31. Caption = 'Blend Settings'
  32. Layout = tlCenter
  33. end
  34. object LabelVisible: TLabel
  35. Left = 8
  36. Top = 8
  37. Width = 65
  38. Height = 15
  39. Caption = 'Visible Layer'
  40. Layout = tlCenter
  41. end
  42. object LabelMergeHint: TLabel
  43. Left = 71
  44. Top = 106
  45. Width = 190
  46. Height = 31
  47. AutoSize = False
  48. Caption = 'Alpha values will be merged correctly.'
  49. WordWrap = True
  50. end
  51. object LabelBlendHint: TLabel
  52. Left = 71
  53. Top = 138
  54. Width = 190
  55. Height = 29
  56. AutoSize = False
  57. Caption =
  58. 'Alpha values of the background are assumed to be opaque -> faste' +
  59. 'r!'
  60. WordWrap = True
  61. end
  62. object DstImg: TImage32
  63. Left = 8
  64. Top = 192
  65. Width = 256
  66. Height = 256
  67. Anchors = [akLeft, akBottom]
  68. Bitmap.DrawMode = dmBlend
  69. Bitmap.ResamplerClassName = 'TNearestResampler'
  70. BitmapAlign = baCenter
  71. Color = clBlack
  72. ParentColor = False
  73. Scale = 1.000000000000000000
  74. ScaleMode = smNormal
  75. TabOrder = 0
  76. OnPaintStage = DstImgPaintStage
  77. end
  78. object RadioButtonBlend: TRadioButton
  79. Left = 8
  80. Top = 138
  81. Width = 57
  82. Height = 17
  83. Caption = '&Blend'
  84. TabOrder = 1
  85. OnClick = RadioButtonBlendClick
  86. end
  87. object RadioButtonMerge: TRadioButton
  88. Left = 8
  89. Top = 105
  90. Width = 57
  91. Height = 17
  92. Caption = '&Merge'
  93. Checked = True
  94. TabOrder = 2
  95. TabStop = True
  96. OnClick = RadioButtonMergeClick
  97. end
  98. object CheckBoxForeground: TCheckBox
  99. Left = 8
  100. Top = 52
  101. Width = 81
  102. Height = 17
  103. Caption = '&Foreground'
  104. Checked = True
  105. State = cbChecked
  106. TabOrder = 3
  107. OnClick = CheckBoxImageClick
  108. end
  109. object CheckBoxBackground: TCheckBox
  110. Left = 8
  111. Top = 29
  112. Width = 116
  113. Height = 17
  114. Caption = 'Back&ground --->'
  115. Checked = True
  116. State = cbChecked
  117. TabOrder = 4
  118. OnClick = CheckBoxImageClick
  119. end
  120. object CheckBoxTransparent: TCheckBox
  121. Left = 130
  122. Top = 29
  123. Width = 113
  124. Height = 17
  125. Caption = 'with transparency'
  126. Checked = True
  127. State = cbChecked
  128. TabOrder = 5
  129. OnClick = CheckBoxImageClick
  130. end
  131. end