MainUnit.lfm 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106
  1. object MainForm: TMainForm
  2. Left = 272
  3. Height = 280
  4. Top = 282
  5. Width = 465
  6. BorderStyle = bsToolWindow
  7. Caption = 'PixelF Example'
  8. ClientHeight = 280
  9. ClientWidth = 465
  10. Color = clBtnFace
  11. Constraints.MaxHeight = 287
  12. Constraints.MaxWidth = 467
  13. Constraints.MinHeight = 280
  14. Constraints.MinWidth = 465
  15. Font.Color = clWindowText
  16. Font.Height = -11
  17. Font.Name = 'MS Sans Serif'
  18. OnCreate = FormCreate
  19. Position = poScreenCenter
  20. LCLVersion = '2.0.12.0'
  21. object Image32: TImage32
  22. Left = 8
  23. Height = 266
  24. Top = 8
  25. Width = 306
  26. Anchors = [akTop, akLeft, akRight, akBottom]
  27. AutoSize = True
  28. Bitmap.DrawMode = dmBlend
  29. Bitmap.ResamplerClassName = 'TNearestResampler'
  30. BitmapAlign = baCenter
  31. Scale = 1
  32. ScaleMode = smNormal
  33. TabOrder = 0
  34. OnPaintStage = Image32PaintStage
  35. end
  36. object PnlSettings: TPanel
  37. Left = 322
  38. Height = 280
  39. Top = 0
  40. Width = 143
  41. Align = alRight
  42. ClientHeight = 280
  43. ClientWidth = 143
  44. TabOrder = 1
  45. object LblTwirlPower: TLabel
  46. Left = 8
  47. Height = 13
  48. Top = 32
  49. Width = 58
  50. Caption = 'Twirl Power:'
  51. ParentColor = False
  52. end
  53. object PnlTwirlDistortion: TPanel
  54. Left = 1
  55. Height = 16
  56. Top = 1
  57. Width = 141
  58. Align = alTop
  59. BevelOuter = bvNone
  60. Caption = 'Twirl Distortion'
  61. Color = clBtnShadow
  62. Font.Color = clWindow
  63. Font.Height = -11
  64. Font.Name = 'Tahoma'
  65. ParentColor = False
  66. ParentFont = False
  67. TabOrder = 0
  68. end
  69. object GbrTwist: TGaugeBar
  70. Left = 8
  71. Height = 12
  72. Top = 48
  73. Width = 129
  74. Color = clScrollBar
  75. Backgnd = bgPattern
  76. HandleSize = 16
  77. Max = 50
  78. Min = -50
  79. ShowArrows = False
  80. ShowHandleGrip = True
  81. Style = rbsMac
  82. Position = 0
  83. OnChange = GbrTwistChange
  84. end
  85. object RbxGetPixelFS: TRadioButton
  86. Left = 8
  87. Height = 19
  88. Top = 96
  89. Width = 109
  90. Caption = 'TBitmap32.PixelFS'
  91. OnClick = GbrTwistChange
  92. TabOrder = 2
  93. end
  94. object RbxPixelS: TRadioButton
  95. Left = 8
  96. Height = 19
  97. Top = 72
  98. Width = 103
  99. Caption = 'TBitmap32.PixelS'
  100. Checked = True
  101. OnClick = GbrTwistChange
  102. TabOrder = 3
  103. TabStop = True
  104. end
  105. end
  106. end