Ins_GListBox

Vložení objektu typu 'grafický list box proudu ' do okna. Tento objekt se používá pro zobrazení prvků proudu F. 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.

• 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. Jestliže uvnitř podprogramu dojde pouze ke změně obsahu streamu (ne k přidání nebo smazání), použijte na jeho konci proceduru Invalidate .
• Datový obraz objektu je Longint (1..x). Je to klíč, podle kterého lze záznam v proudu vyhledat. Zadáte-li při SetData neexistující číslo, bude vybrán první záznam v proudu.
• Proud F nesmí být během života objektu Ins_GListBox uzavřen procedurou SClose! Chcete-li uvolnit všechny prvky najednou, použijte proceduru SDeleteAll.
• Funkcí _AddGLBOpt lze doplňovat vlastnosti objektu, třídit seznam atd.
• Procedurou AddGLBLab lze doplňovat podprogramy volané třeba po změně vybraného řádku.
• Procedurou AddGLBCol se přidávají sloupce.
• Procedurou DoneGLBCol se ukončuje přidávání sloupců.
• Procedurou GetGLBInfo se vrací aktuální stavy objektu.
• Procedura ReLoadGLB znovu načte data do seznamu.
• Procedura SSortByGLBFace setřídí připojený proud podle aktuálního zobrazení řádek.

Podívejte se na:
Procedury a funkce - Proudy
Procedury a funkce - Objekty

Příklad:

dim F       : File;
dim Idx     : Longint;
dim Comm    : Word;

WInit(10, 0,0,85,12, "Test", 7, 0); 
Ins_GListBox(10, 10, 01,01,35,10, ofSelectable, F, 0);

AddGLBCol(10, 10, "0_", 20, BROW_IMAGE + BROW_NOSORTARROW + BROW_NORESIZECOL); 
AddGLBCol(10, 10, "1_", 20, BROW_IMAGE + BROW_NOSORTARROW + BROW_NORESIZECOL); 
AddGLBCol(10, 10, "Text", 100, BROW_TEXT + BROW_SORTABLE + BROW_ALIGN_RIGHT); 
AddGLBCol(10, 10, "Číslo", 50, BROW_VALUTE + BROW_SORTABLE + BROW_SEARCHABLE); 
AddGLBCol(10, 10, "Datum", 100, BROW_DATETIME + BROW_SORTABLE); 

_AddGLBOpt(10, 10, GLBO_BMPCOLUMN,"\Bmp\Sorts.bmp", 16);
_AddGLBOpt(10, 10, GLBO_BMPHEADER,"\Bmp\Sorts_header.bmp", 16);
_AddGLBOpt(10, 10, GLBO_SAVERESTFACE,"abcde", 2);
AddGLBLab(10,  10, GLBL_SELCHANGE, ZmenaRadku);

DoneGLBCol(10, 10); 

_AddGLBOpt(10,10, GLBO_HORIZGRID, false);
_AddGLBOpt(10,10, GLBO_SHOWSELCELL, false);
_AddGLBOpt(10,10, GLBO_SELCOLUMN, 4);

SetDataObj(10,10,78) 

WOpen(10); 

repeat 
    Comm := _Execute(10); 
    ...
until Comm = cmCancel; 

Exit

ZmenaRadku:
    GetDataObj(10,10,Idx); 
    printup(Idx);
exit