program ListTest;

(************************************************)
(* LISTTEST.PAS                                 *)
(* Author:   Daniel Marschall                   *)
(* Revision: 2020-09-07                         *)
(* License:  Apache 2.0                         *)
(* This file contains:                          *)
(* - Example how to use lists and select GUI    *)
(************************************************)

uses
  Crt, StrList, SelctGui;

var
  items: TStringList;
  i, itemIndex: integer;
  sTmp: string;
begin
  (* Fill the list for testing *)
  for i := 1 to 5 do
  begin
    str(i, sTmp);
    ListAppend(@items, 'list item '+sTmp);
  end;

  (* Do inserts and deletions to test their functionality *)
  ListInsert(@items, 'TEST', 0);
  ListDeleteElement(@items, 0);
  ListDeleteElement(@items, 0);
  ListInsert(@items, 'FirstElement', 0);

  (* Test the selection GUI unit *)
  itemIndex := DoScreenSelectionList(3, 5, 15, 10, @items);
  ClrScr;
  if itemIndex = -1 then
  begin
    WriteLn('Nothing was selected.');
  end
  else
  begin
    WriteLn('Following element was selected: "'+ListGetElement(@items,itemIndex)+'"');
  end;
  WriteLn('Press RETURN to return to DOS.');
  ReadLn;
end.