Class TThreadedListForm (unit Thread) |
Inherits from
TForm
Next cell in ID order.
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.
OrderOptions : TRadioGroup;
bottom_sentinel : TEmPEmpCell;
top_sentinel : TEmPEmpCell;
Private declarations
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.
OrderOptions : TRadioGroup;
bottom_sentinel : TEmPEmpCell;
top_sentinel : TEmPEmpCell;
Private declarations