home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 200
- Top = 99
- AutoScroll = False
- Width = 243
- Height = 147
- Caption = 'TabSet Drag/Drop Demo'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- TextHeight = 13
- object TabSet1: TTabSet
- Left = 0
- Top = 99
- Width = 235
- Height = 21
- Align = alBottom
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Tabs.Strings = (
- 'First'
- 'Second'
- 'Third'
- 'Fourth'
- 'Fifth')
- TabIndex = 0
- TabOrder = 0
- OnDragDrop = TabSet1DragDrop
- OnDragOver = TabSet1DragOver
- OnMouseDown = TabSet1MouseDown
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 235
- Height = 99
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 4
- Caption = 'Panel1'
- TabOrder = 1
- object Label1: TLabel
- Left = 4
- Top = 4
- Width = 227
- Height = 91
- Align = alClient
- AutoSize = False
- Caption =
- 'The TabSet below supports rearranging the tabs by dragging them ' +
- 'to a new position.'
- WordWrap = True
- end
- end
- end
-