Ins_ListBox

 (    NumWind  : Byte;
      NumObj   : Word;
      X1, Y1,
      X2, Y2   : Byte;
      Attr     : Word;
      MaxItem  : Word;
      NumCols  : Byte;
 dim  Array          ;
      SelLabel       )

Vložení objektu typu 'list box' do okna. Tento objekt se používá pro zobrazení prvků pole 'Array'.

'NumWind' je číslo okna, do kterého se bude objekt vkládat, 'NumObj' je číslo objektu v rámci okna. Objekty jsou vkládány v přirozeném pořadí. Atribut 'Attr' definuje chování objektu. Dvojice čísel [X1, Y1] a [X2, Y2] tvoří souřadnice objektu.

• 'MaxItem' je maximální počet prvků, které bude procedura brát v úvahu. Jestliže bude 'MaxItem' větší než maximální rozměr pole, bude se procedura řídit rozměrem pole.
• 'NumCols' je počet sloupců, ve kterých bude pole zobrazeno. Rozsah tohoto parametru je 1..5.
• 'Array' musí být pole typu String, Char, Byte, Integer, Word, LongInt, Real nebo Date.
• 'SelLabel' je návěst podprogramu, který bude spuštěn po stisknutí mezerníku nebo po dvojitém stisku levého tlačítka myši. V rámci tohoto podprogramu nelze samozřejmě zrušit rodičovské okno procedurou WDone! Pokud se tak přesto stane, hlásí program chybu.
• Datový obraz objektu je Word (1..x). Je to pozice na které bude resp. je kurzor. Zadáte-li číslo vyšší než je počet prvků, bude vybrán poslední prvek.

Podívejte se na: Objekty

Příklad:

            const Arr (5) : String[11] = (" Polozka 1", " Polozka 2",
                                          " Polozka 3", " Polozka 4",
                                          " Polozka 5");
            dim   W : Word;
            WInit(1, 1,1,11,11, "", winMove, 0)
            Ins_ListBox(1, 10, 02,02,14,7, 9, 5, 1, Arr, SelListBox)
            Ins_Button(1, 20, 2,8,14,10, "OK", cmOK, 1)
            SelObject(1, 10);
            SetData(1, 3)
            WOpen(1)
            _Execute(1)
            Exit
            SelListBox:
              GetDataObj(1, 10, W);
              if Arr[W,1] = " " then
                Arr[W,1] := "*";
              else
                Arr[W,1] := " ";
              endif
            return