Шаг 73.
Visual Prolog.
Стандартные диалоговые окна (продолжение)

    На этом шаге мы продолжим рассматривать стандартные диалоговые окна.

Выбор из списка строк

   Boolean=dlg_ListSelect(Title,StringList,
      PreSelectionlndexInteger,SelectedString,IndexInteger)
   Boolean=dlg_ListSelect(ParentWindow,Title,StringList,
      PreSelectionlndexInteger,SelectedString,IndexInteger) 
   Boolean=dlg_ListSelect(ParentWindow,Title,StringList,
      PreSelectionlndexInteger,SelectedString,IndexInteger,
      boolean Sort)

    Предикат dlg_ListSelect используется для выбора элемента из списка значений. Например, рассмотрим следующий вызов:

   Slist=["First string","Second String","Third string"],
   PreSel=1,
   dlg_ListSelect("MyTitle",Slist,PreSel, _StrSel,_Index)

    Он приведет к диалоговому окну, показанному на рис. 1.


Рис.1. Стандартное диалоговое окно dlg_ListSelect

Выбop цвета

   Color=dlg_ChooseColor(OldColor)
   Color=dlg_ChooseColor(ParentWindow,OldColor)

    Предикат dlg_ChooseColor используется для выбора цвета пользователем.

   InitColor=color_Red,
   _NewCOLOR=dlg_ChooseColor(InitCOLOR)

    В результате будет отображено диалоговое окно, показанное на рис. 2.


Рис.2. Стандартное диалоговое окно dlg_ChooseColor

    Предикат dlg_ChooseColor/2 используется для определения окна ParentWindow, которое получит фокус после закрытия диалогового окна.

Выбор шрифта

   NewFontBinary=dlg_ChooseFont(OldFontBinary)
   NewFontBinary=dlg_ChooseFont(
      font OldFont,
      string FontName,
      integer FontSize)

    Предикат dlg_ChooseFont используется для выбора шрифта пользователем.

   OldFont=font_Create(ff_fixed,[],9),
   _NewFont=dlg_ChooseFont(O1dFont)

    В результате будет отображено диалоговое окно, показанное на рис. 3.


Рис.3. Стандартное диалоговое окно dlg_ChooseFont

Отображение ошибки

   dlg_Error(MessageString)

    Если программе нужно показать сообщение об ошибке, должен быть вызван предикат dlg_Error. Например, следующий вызов:

   dlg_Error("My Error Message")

приведет к диалоговому окну, показанному на рис. 4.


Рис.4. Стандартное диалоговое окно dlg_Error

Отображение примечания

   dlg_Note(MessageString)
   dlg_Note(TitleString,MessageString)

    Предикат dlg_Note удобен для отображения маленького окна с коротким сообщением. Например, следующий вызов:

   dlg_Note("MyTitle","Привет всем!")

приведет к диалоговому окну, показанному на рис. 5.


Рис.5. Стандартное диалоговое окно dlg_Note

    На следующем шаге мы рассмотрим диалоговые окна, определенные программистом.




Предыдущий шаг Содержание Следующий шаг