| Class TThreadSortForm (unit Thsort) |
TForm
| Constructors |
| Functions |
procedure BubbleSortBoxPaint(Sender: TObject);
procedure BubbleSortThread(Sender: TObject;
var Finished: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure QuickSortBoxPaint(Sender: TObject);
procedure QuickSortThread(Sender: TObject; var Finished: Boolean);
procedure SelectionSortBoxPaint(Sender: TObject);
procedure SelectionThreadThread(Sender: TObject;
var Finished: Boolean);
procedure StartBtnClick(Sender: TObject);
procedure DoneThread;
procedure PaintArray(Box: TPaintBox; const A: array of Integer);
procedure RandomizeArrays;| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
BubbleSort : TActiveComponent;
BubbleSortBox : TPaintBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
QuickSort : TActiveComponent;
QuickSortBox : TPaintBox;
SelectionSort : TActiveComponent;
SelectionSortBox : TPaintBox;
StartBtn : TButton;
BubbleSorter : TSortThread;
QuickSorter : TSortThread;
SelectionSorter : TSortThread;
ThreadsRunning : Integer;| Constructors |
| Functions |
procedure BubbleSortBoxPaint(Sender: TObject);
procedure BubbleSortThread(Sender: TObject;
var Finished: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure QuickSortBoxPaint(Sender: TObject);
procedure QuickSortThread(Sender: TObject; var Finished: Boolean);
procedure SelectionSortBoxPaint(Sender: TObject);
procedure SelectionThreadThread(Sender: TObject;
var Finished: Boolean);
procedure StartBtnClick(Sender: TObject);
procedure DoneThread;
procedure PaintArray(Box: TPaintBox; const A: array of Integer);
procedure RandomizeArrays;| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
BubbleSort : TActiveComponent;
BubbleSortBox : TPaintBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
QuickSort : TActiveComponent;
QuickSortBox : TPaintBox;
SelectionSort : TActiveComponent;
SelectionSortBox : TPaintBox;
StartBtn : TButton;
BubbleSorter : TSortThread;Private declarations
QuickSorter : TSortThread;
SelectionSorter : TSortThread;
ThreadsRunning : Integer;