На этом шаге мы продолжим рассматривать стандартные диалоговые окна.
Выбор из списка строк
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
На следующем шаге мы рассмотрим диалоговые окна, определенные программистом.
