tilepaletteunit.lfm 1.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  1. object TilePaletteFrame: TTilePaletteFrame
  2. Left = 0
  3. Height = 365
  4. Top = 0
  5. Width = 213
  6. ClientHeight = 365
  7. ClientWidth = 213
  8. TabOrder = 0
  9. DesignLeft = 492
  10. DesignTop = 164
  11. object TilePaletteTabControl: TTabControl
  12. Left = 0
  13. Height = 365
  14. Top = 0
  15. Width = 213
  16. OnChange = TilePaletteTabControlChange
  17. TabPosition = tpBottom
  18. TabIndex = 0
  19. Tabs.Strings = (
  20. 'A'
  21. 'B'
  22. 'C'
  23. 'D'
  24. 'E'
  25. )
  26. Align = alClient
  27. TabOrder = 0
  28. object TilePaletteScrollBox: TScrollBox
  29. Left = 2
  30. Height = 332
  31. Top = 2
  32. Width = 209
  33. HorzScrollBar.Page = 1
  34. HorzScrollBar.Visible = False
  35. VertScrollBar.Increment = 21
  36. VertScrollBar.Page = 216
  37. VertScrollBar.Smooth = True
  38. VertScrollBar.Tracking = True
  39. Align = alClient
  40. BorderStyle = bsNone
  41. ClientHeight = 332
  42. ClientWidth = 209
  43. DragMode = dmAutomatic
  44. TabOrder = 1
  45. TabStop = True
  46. OnResize = TilePaletteScrollBoxResize
  47. object TilePalettePaintBox: TPaintBox
  48. Left = 0
  49. Height = 216
  50. Top = 0
  51. Width = 210
  52. Anchors = [akTop, akLeft, akRight]
  53. OnMouseDown = TilePalettePaintBoxMouseDown
  54. OnMouseMove = TilePalettePaintBoxMouseMove
  55. OnMouseUp = TilePalettePaintBoxMouseUp
  56. OnPaint = TilePalettePaintBoxPaint
  57. end
  58. object UpdatingLabel: TLabel
  59. Left = 0
  60. Height = 332
  61. Top = 0
  62. Width = 209
  63. Align = alClient
  64. Caption = 'Please wait...'
  65. ParentColor = False
  66. Visible = False
  67. end
  68. end
  69. end
  70. object IdleTimerDrawPalette: TIdleTimer
  71. AutoEndEvent = itaOnIdleEnd
  72. Interval = 20
  73. OnTimer = IdleTimerDrawPaletteTimer
  74. Left = 72
  75. Top = 240
  76. end
  77. end