Class TThreadSortForm (unit Thsort)

Inherits from

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;

Private declarations

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;