MainUnit.dfm 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103
  1. object MainForm: TMainForm
  2. Left = 272
  3. Top = 282
  4. BorderStyle = bsToolWindow
  5. Caption = 'PixelF Example'
  6. ClientHeight = 265
  7. ClientWidth = 451
  8. Color = clBtnFace
  9. ParentFont = True
  10. Position = poScreenCenter
  11. OnCreate = FormCreate
  12. TextHeight = 15
  13. object Image32: TImage32
  14. Left = 0
  15. Top = 0
  16. Width = 308
  17. Height = 265
  18. Align = alClient
  19. Bitmap.DrawMode = dmBlend
  20. Bitmap.ResamplerClassName = 'TNearestResampler'
  21. BitmapAlign = baCenter
  22. Scale = 1.000000000000000000
  23. ScaleMode = smOptimalScaled
  24. TabOrder = 0
  25. OnPaintStage = Image32PaintStage
  26. ExplicitLeft = 2
  27. ExplicitWidth = 300
  28. ExplicitHeight = 363
  29. end
  30. object PnlSettings: TPanel
  31. Left = 308
  32. Top = 0
  33. Width = 143
  34. Height = 265
  35. Align = alRight
  36. BevelEdges = [beLeft]
  37. BevelKind = bkFlat
  38. BevelOuter = bvNone
  39. TabOrder = 1
  40. ExplicitHeight = 363
  41. object LblTwirlPower: TLabel
  42. Left = 8
  43. Top = 32
  44. Width = 63
  45. Height = 15
  46. Caption = 'Twirl Power:'
  47. end
  48. object PnlTwirlDistortion: TPanel
  49. Left = 0
  50. Top = 0
  51. Width = 141
  52. Height = 16
  53. Align = alTop
  54. BevelOuter = bvNone
  55. Caption = 'Twirl Distortion'
  56. Color = clBtnShadow
  57. Font.Charset = DEFAULT_CHARSET
  58. Font.Color = clWindow
  59. Font.Height = -11
  60. Font.Name = 'Tahoma'
  61. Font.Style = []
  62. ParentFont = False
  63. TabOrder = 0
  64. ExplicitLeft = 1
  65. ExplicitTop = 1
  66. end
  67. object GbrTwist: TGaugeBar
  68. Left = 8
  69. Top = 48
  70. Width = 129
  71. Height = 12
  72. Backgnd = bgPattern
  73. HandleSize = 16
  74. Max = 50
  75. Min = -50
  76. ShowArrows = False
  77. ShowHandleGrip = True
  78. Style = rbsMac
  79. Position = 0
  80. OnChange = GbrTwistChange
  81. end
  82. object RbxGetPixelFS: TRadioButton
  83. Left = 8
  84. Top = 96
  85. Width = 129
  86. Height = 17
  87. Caption = 'TBitmap32.PixelFS'
  88. TabOrder = 2
  89. OnClick = GbrTwistChange
  90. end
  91. object RbxPixelS: TRadioButton
  92. Left = 8
  93. Top = 72
  94. Width = 105
  95. Height = 17
  96. Caption = 'TBitmap32.PixelS'
  97. Checked = True
  98. TabOrder = 3
  99. TabStop = True
  100. OnClick = GbrTwistChange
  101. end
  102. end
  103. end