UnitMain.dfm 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071
  1. object FormMain: TFormMain
  2. Left = 0
  3. Top = 0
  4. Caption = 'Easing example'
  5. ClientHeight = 467
  6. ClientWidth = 409
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -12
  11. Font.Name = 'Segoe UI'
  12. Font.Style = []
  13. OnResize = FormResize
  14. TextHeight = 15
  15. object Image32: TImage32
  16. Left = 0
  17. Top = 0
  18. Width = 409
  19. Height = 406
  20. Align = alClient
  21. Bitmap.ResamplerClassName = 'TNearestResampler'
  22. BitmapAlign = baTopLeft
  23. Color = clBlack
  24. ParentColor = False
  25. RepaintMode = rmOptimizer
  26. Scale = 1.000000000000000000
  27. ScaleMode = smNormal
  28. TabOrder = 0
  29. end
  30. object PanelOptions: TPanel
  31. Left = 0
  32. Top = 406
  33. Width = 409
  34. Height = 61
  35. Align = alBottom
  36. BevelOuter = bvNone
  37. ShowCaption = False
  38. TabOrder = 1
  39. DesignSize = (
  40. 409
  41. 61)
  42. object CheckBoxAnimateHorizontal: TCheckBox
  43. Left = 12
  44. Top = 12
  45. Width = 145
  46. Height = 17
  47. Caption = 'Animate horizontal'
  48. TabOrder = 0
  49. OnClick = CheckBoxAnimateHorizontalClick
  50. end
  51. object CheckBoxAnimateVertical: TCheckBox
  52. Left = 12
  53. Top = 35
  54. Width = 145
  55. Height = 17
  56. Caption = 'Animate vertical'
  57. TabOrder = 1
  58. OnClick = CheckBoxAnimateVerticalClick
  59. end
  60. object ButtonBounce: TButton
  61. Left = 317
  62. Top = 20
  63. Width = 75
  64. Height = 25
  65. Anchors = [akTop, akRight]
  66. Caption = 'Jump!'
  67. TabOrder = 2
  68. OnClick = ButtonBounceClick
  69. end
  70. end
  71. end