home *** CD-ROM | disk | FTP | other *** search
- object ThreadSortForm: TThreadSortForm
- Left = 199
- Top = 114
- BorderStyle = bsSingle
- Caption = 'Thread Sorting Demo'
- ClientHeight = 295
- ClientWidth = 563
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 24
- Width = 177
- Height = 233
- end
- object Bevel3: TBevel
- Left = 376
- Top = 24
- Width = 177
- Height = 233
- end
- object Bevel2: TBevel
- Left = 192
- Top = 24
- Width = 177
- Height = 233
- end
- object BubbleSortBox: TPaintBox
- Left = 8
- Top = 24
- Width = 177
- Height = 233
- OnPaint = BubbleSortBoxPaint
- end
- object SelectionSortBox: TPaintBox
- Left = 192
- Top = 24
- Width = 177
- Height = 233
- OnPaint = SelectionSortBoxPaint
- end
- object QuickSortBox: TPaintBox
- Left = 376
- Top = 24
- Width = 177
- Height = 233
- OnPaint = QuickSortBoxPaint
- end
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 55
- Height = 13
- Caption = 'Bubble Sort'
- end
- object Label2: TLabel
- Left = 192
- Top = 8
- Width = 66
- Height = 13
- Caption = 'Selection Sort'
- end
- object Label3: TLabel
- Left = 376
- Top = 8
- Width = 50
- Height = 13
- Caption = 'Quick Sort'
- end
- object StartBtn: TButton
- Left = 240
- Top = 264
- Width = 75
- Height = 25
- Caption = 'Start Sorting'
- TabOrder = 0
- OnClick = StartBtnClick
- end
- end
-