123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778 |
- object TilePaletteFrame: TTilePaletteFrame
- Left = 0
- Height = 365
- Top = 0
- Width = 213
- ClientHeight = 365
- ClientWidth = 213
- TabOrder = 0
- DesignLeft = 492
- DesignTop = 164
- object TilePaletteTabControl: TTabControl
- Left = 0
- Height = 365
- Top = 0
- Width = 213
- OnChange = TilePaletteTabControlChange
- TabPosition = tpBottom
- TabIndex = 0
- Tabs.Strings = (
- 'A'
- 'B'
- 'C'
- 'D'
- 'E'
- )
- Align = alClient
- TabOrder = 0
- object TilePaletteScrollBox: TScrollBox
- Left = 2
- Height = 332
- Top = 2
- Width = 209
- HorzScrollBar.Page = 1
- HorzScrollBar.Visible = False
- VertScrollBar.Increment = 21
- VertScrollBar.Page = 216
- VertScrollBar.Smooth = True
- VertScrollBar.Tracking = True
- Align = alClient
- BorderStyle = bsNone
- ClientHeight = 332
- ClientWidth = 209
- DragMode = dmAutomatic
- TabOrder = 1
- TabStop = True
- OnResize = TilePaletteScrollBoxResize
- object TilePalettePaintBox: TPaintBox
- Left = 0
- Height = 216
- Top = 0
- Width = 210
- Anchors = [akTop, akLeft, akRight]
- OnMouseDown = TilePalettePaintBoxMouseDown
- OnMouseMove = TilePalettePaintBoxMouseMove
- OnMouseUp = TilePalettePaintBoxMouseUp
- OnPaint = TilePalettePaintBoxPaint
- end
- object UpdatingLabel: TLabel
- Left = 0
- Height = 332
- Top = 0
- Width = 209
- Align = alClient
- Caption = 'Please wait...'
- ParentColor = False
- Visible = False
- end
- end
- end
- object IdleTimerDrawPalette: TIdleTimer
- AutoEndEvent = itaOnIdleEnd
- Interval = 20
- OnTimer = IdleTimerDrawPaletteTimer
- Left = 72
- Top = 240
- end
- end
|