_DiaSelItem

(dim Odd    : Byte;
 dim Idx    : Word   [;
     Mask   : Byte=7 [;
     Enum   : String="" ]]) : Word

Tato funkce zobrazí dialog s možností výběru jedné položky ze:

1.  tří oddělení O, P a M (Enum="")(nezobrazují se skryté položky) jejichž zobrazení se řídí podle bitové masky Mask:
   • $01 = Viditelné budou položky osobního oddělení
   • $02 = Viditelné budou položky oddělení pam
   • $04 = Viditelné budou položky mzdového oddělení
2. nebo zobrazí pouze výčet položek poslaný ve formě řetězce v parametru Enum (Př.:O0100|P0456|M0532) (položky v tomto formátu dodá funkce _ItemToStr), v tom případě musí být Mask = 0
3.  zobrazí položky jako v bodě 1, ale v parametru Enum bude výčet dalších (skrytých) položek, které se zobrazí také

Zaostřena bude ta položka, jejíž oddělení a index bude v proměnných Odd a Idx po vstupu do funkce. Ve stejných proměnných bude vrácena výsledná hodnota, jestliže funkce vrátí hodnotu cmOK. Tato hodnota říká, že uživatel stiskl tlačítko [OK]. V případě, že uživatel stiskl tlačítko [Přeruš], vrací funkce cmCancel.

Nebude-li nepovinný parametr Maska použit, bude místo něho vložena číselná hodnota $07, takže budou zobrazeny položky všech tří oddělení.

Podívejte se na: Procedury a funkce - Objekty

Příklad 1:

dim Dep : Byte;
dim Idx : Word;
if _DiaSelItem(Dep, Idx) = cmOK then
    ...
endif

Příklad 2:

dim Dep : Byte;
dim Idx : Word;
Dep := dbtO;
Idx := 26;
if _DiaSelItem(Dep, Idx, 0, "O0012|O0026|P0022|P0030|M0035|M0100") = cmOK then
    ...
endif