2
0

unit1.lfm 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104
  1. object Form1: TForm1
  2. Left = 353
  3. Height = 240
  4. Top = 169
  5. Width = 501
  6. Caption = 'Fading'
  7. ClientHeight = 240
  8. ClientWidth = 501
  9. OnCloseQuery = FormCloseQuery
  10. OnCreate = FormCreate
  11. OnDestroy = FormDestroy
  12. LCLVersion = '1.1'
  13. object bgImage: TBGRAGraphicControl
  14. Left = 15
  15. Height = 108
  16. Top = 16
  17. Width = 185
  18. OnRedraw = bgImageRedraw
  19. Color = clWhite
  20. ColorOpacity = 128
  21. Alignment = taCenter
  22. Caption = 'bgImage'
  23. end
  24. object cbFadingMode: TComboBox
  25. Left = 208
  26. Height = 23
  27. Top = 16
  28. Width = 180
  29. ItemHeight = 15
  30. OnChange = cbFadingModeChange
  31. Style = csDropDownList
  32. TabOrder = 0
  33. end
  34. object seFadingStep: TSpinEdit
  35. Left = 208
  36. Height = 23
  37. Top = 45
  38. Width = 114
  39. MaxValue = 255
  40. MinValue = 1
  41. OnChange = seFadingStepChange
  42. TabOrder = 1
  43. Value = 5
  44. end
  45. object seTimerInterval: TSpinEdit
  46. Left = 208
  47. Height = 23
  48. Top = 73
  49. Width = 114
  50. MaxValue = 1000
  51. MinValue = 1
  52. OnChange = seTimerIntervalChange
  53. TabOrder = 2
  54. Value = 16
  55. end
  56. object Label1: TLabel
  57. Left = 336
  58. Height = 15
  59. Top = 49
  60. Width = 62
  61. Caption = 'Fading Step'
  62. ParentColor = False
  63. end
  64. object Label2: TLabel
  65. Left = 336
  66. Height = 15
  67. Top = 77
  68. Width = 73
  69. Caption = 'Timer Interval'
  70. ParentColor = False
  71. end
  72. object Label3: TLabel
  73. Left = 15
  74. Height = 15
  75. Top = 144
  76. Width = 31
  77. Caption = 'Alpha'
  78. ParentColor = False
  79. end
  80. object seDuration: TSpinEdit
  81. Left = 208
  82. Height = 23
  83. Top = 101
  84. Width = 114
  85. Increment = 100
  86. MaxValue = 10000
  87. OnChange = seDurationChange
  88. TabOrder = 3
  89. end
  90. object Label4: TLabel
  91. Left = 336
  92. Height = 15
  93. Top = 105
  94. Width = 73
  95. Caption = 'Duration (ms)'
  96. ParentColor = False
  97. end
  98. object Timer1: TTimer
  99. Interval = 33
  100. OnTimer = Timer1Timer
  101. left = 16
  102. top = 16
  103. end
  104. end