Subversion Repositories oidplus

program LISTTEST;

(************************************************)

(* LISTTEST.PAS                                 *)

(* Author:   Daniel Marschall                   *)

(* Revision: 2022-02-13                         *)

(* License:  Apache 2.0                         *)

(* This file contains:                          *)

(* - Example how to use lists and selection CUI *)

(************************************************)

uses

  Crt, StrList, VtsCui;

var

  items: PStringList;

  i, itemIndex: integer;

  sTmp: string;

begin

  InitList(items);

  (* 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 *)

  ClrScr;

  itemIndex := DrawSelectionList(3, 5, 15, 10, items, true, 0);

  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.');

  FreeList(items);

  ReadLn;

end.