Class TThreadedListForm (unit Thread)

Inherits from

TForm

Next cell in ID order.

Constructors



Functions

procedure DrawList;

Display the list, highlighting the selected item.

procedure FormCreate(Sender: TObject);

Initialize the threaded list.

procedure FormDestroy(Sender: TObject);

Free all the linked list memory.

procedure FormPaint(Sender: TObject);

Redraw the list.

procedure Insert(last_name, first_name : String; emp_id : Longint);

Add a new cell after the selected cell.

procedure OrderOptionsClick(Sender: TObject);

Redraw using the new ordering.

Properties

Events

Variables

OrderOptions : TRadioGroup;


bottom_sentinel : TEmPEmpCell;


top_sentinel : TEmPEmpCell;

Private declarations


Constructors


Functions


procedure DrawList;

Display the list, highlighting the selected item.


procedure FormCreate(Sender: TObject);

Initialize the threaded list.


procedure FormDestroy(Sender: TObject);

Free all the linked list memory. This doesn't matter for this example program. It would be important if the program created and destroyed many forms.


procedure FormPaint(Sender: TObject);

Redraw the list.


procedure Insert(last_name, first_name : String; emp_id : Longint);

Add a new cell after the selected cell.


procedure OrderOptionsClick(Sender: TObject);

Redraw using the new ordering.


Properties


Events


Variables


OrderOptions : TRadioGroup;


bottom_sentinel : TEmPEmpCell;


top_sentinel : TEmPEmpCell;

Private declarations