| Class TThreadedListForm (unit Thread) |
TForm
Next cell in ID order.
| Constructors |
| Functions |
procedure DrawList;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure Insert(last_name, first_name : String; emp_id : Longint);
procedure OrderOptionsClick(Sender: TObject);| Properties |
| Events |
| Variables |
OrderOptions : TRadioGroup;
bottom_sentinel : TEmPEmpCell;
top_sentinel : TEmPEmpCell;| 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