Ins_DBBrowser
( NumWind : Byte;
NumObj : Word;
X1, Y1,
X2, Y2 : Byte;
Attr : Word;
F : File;
dim RefNr : LongInt;
Lab_GetText ;
Lab_Select ;
Lab_Filter )
Vložení objektu typu 'databázový browser' pro uživatelskou
databázi 'F' do okna. '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. 'RefNr' je fyzické umístění věty, které používá
podprogram pro 'Lab_GetText'. Definovaný text pro zobrazení se vrací pomocí
globální proměnné SetResult.
-
'Lab_GetText'je podprogram, který vrací znění aktuální věty v browseru
-
'Lab_Select' je podprogram, který je volán při vybrání věty browseru myší nebo
/mezerníkem/. Nechcete-li jej použít, pište 0. 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.
-
'Lab_Filter' je podprogram, který je volán před zobrazením každé věty. Ten musí
rozhodnout, zda bude věta platná či nikoli. Rozhodnutí vrací browseru pomocí
SetIResult(1). True (1) znamená, že věta je platná. Nechcete-li
filtr použít, pište 0. Před vstupem do všech tří podprogramů se nastaví
proměnná 'RefNr'.
-
Datový obraz objektu je LongInt - Ident na vybranou větu.
Podívejte se na: Uživatelské databáze