Основные элементы языка программирования Icon. Чанышев О.Г. - 24 стр.

UptoLike

ВУЗ: 

ОмГУ | Омск

Составители: 

Рубрика: 

47
Строки можно записать на экран также при помощи функ-
ций:
DrawString(x,y,s), CenterString(x,y,s), LeftString(x,y,s) и
RightString(x,y,s)
В данном случае s – выводимая строка, а x,y – координаты
начала вывода, центра строки, крайнего левого символа и крайне-
го правого символа соответственно.
13.3. Диалоги
Для краткого сообщения пользователю используется No-
tice(S).
Выбрать файл (name и path могут быть записаны в кирилли-
це) Вы можете при
помощи функции: OpenDialog(caption,
filename).
Параметры можно опустить. Выбранное имя файла будет за-
гружено в глобальную переменную dialog_value.
Например:
case OpenDialog("Выберите файл","*.txt") of
{
"Okay": {
f:=open(dialog_value);WWrite(read(f));close(f);Notice("Вы
выбрали файл"||dialog_value)
EraseArea(1, 1, 600, 400)
}
"Cancel": {}
}
Перед установкой цвета Вы можете выбрать его из палитры
при помощи ColorDialog().
case ColorDialog() of
{
"Okay": Notice("Цвет: "||dialog_value)
"Cancel": {}
}
Функции
Dialog(W,caption,L1,L2,L3,L4,i) и
48
TextDialog(W,caption,L1,L2,L3,L4,L5,i)
позволяют вводить текстовые строки в латинице.
caption – это список строк оглавления диалогового окна,
L1 – наименования текстовых боксов,
L2 – значения боксов по умолчанию,
L3 – максимальная ширина боксов в символах,
L4 – наименования кнопок.
i – номер кнопки по умолчанию, либо 0 – нет кнопок по
умолчанию.
Функции возвращают имена кнопок, а глобальная перемен-
ная dialog_value содержит введенные значения.
Пример:
case TextDialog("Выберите нужное",
["Строка 1","Строка 2", "Строка 3"],,[32,32,32], ["Okey",
"cancel"], 2) of
{
"Okey":
{
GotoRC(4,1)
every i:=1 to 3 do WWrite(i," "||dialog_value[i])
}
"Cancel": {}
}
13.4. Создание меню
Меню создается функцией WinMenuBar, вызов которой мо-
жет выглядеть следующим образом:
WinMenuBar(W, ["&File", "&Open", "&Save", "E&xit"],
["&Edit", "C&ut", "&Paste", "C&opy"],["&Help", "&About"])
Однако Вы можете создать список, описывающий меню, а
затем создать меню:
menu := [
["&Open","E&xit","Т&екстовый диалог","П&росто диалог"],
["&Options", "&Font...","&Залить фоновым цветом"],
["&Help", "&Wi Programming Environment", 
       Строки можно записать на экран также при помощи функ-              TextDialog(W,caption,L1,L2,L3,L4,L5,i)
ций:                                                                      позволяют вводить текстовые строки в латинице.
      DrawString(x,y,s), CenterString(x,y,s), LeftString(x,y,s) и         caption – это список строк оглавления диалогового окна,
RightString(x,y,s)                                                        L1 – наименования текстовых боксов,
      В данном случае s – выводимая строка, а x,y – координаты            L2 – значения боксов по умолчанию,
начала вывода, центра строки, крайнего левого символа и крайне-           L3 – максимальная ширина боксов в символах,
го правого символа соответственно.                                        L4 – наименования кнопок.
                                                                          i – номер кнопки по умолчанию, либо 0 – нет кнопок по
       13.3. Диалоги                                                умолчанию.
                                                                          Функции возвращают имена кнопок, а глобальная перемен-
       Для краткого сообщения пользователю используется No-
                                                                    ная dialog_value содержит введенные значения.
tice(S).
                                                                          Пример:
       Выбрать файл (name и path могут быть записаны в кирилли-
                                                                          case TextDialog("Выберите нужное",
це) Вы можете при помощи функции: OpenDialog(caption,
                                                                          ["Строка 1","Строка 2", "Строка 3"],,[32,32,32], ["Okey",
filename).
                                                                    "cancel"], 2) of
       Параметры можно опустить. Выбранное имя файла будет за-
                                                                          {
гружено в глобальную переменную dialog_value.
                                                                           "Okey":
       Например:
                                                                           {
       case OpenDialog("Выберите файл","*.txt") of
                                                                           GotoRC(4,1)
       {
                                                                           every i:=1 to 3 do WWrite(i," "||dialog_value[i])
       "Okay": {
                                                                           }
       f:=open(dialog_value);WWrite(read(f));close(f);Notice("Вы
                                                                           "Cancel": {}
       выбрали файл"||dialog_value)
                                                                           }
       EraseArea(1, 1, 600, 400)
       }
                                                                         13.4. Создание меню
       "Cancel": {}
       }                                                                 Меню создается функцией WinMenuBar, вызов которой мо-
                                                                    жет выглядеть следующим образом:
     Перед установкой цвета Вы можете выбрать его из палитры             WinMenuBar(W, ["&File", "&Open", "&Save", "E&xit"],
при помощи ColorDialog().                                                ["&Edit", "C&ut", "&Paste", "C&opy"],["&Help", "&About"])
     case ColorDialog() of
     {                                                                    Однако Вы можете создать список, описывающий меню, а
      "Okay": Notice("Цвет: "||dialog_value)                        затем создать меню:
      "Cancel": {}
      }                                                                  menu := [
                                                                         ["&Open","E&xit","Т&екстовый диалог","П&росто диалог"],
       Функции                                                           ["&Options", "&Font...","&Залить фоновым цветом"],
       Dialog(W,caption,L1,L2,L3,L4,i) и                                 ["&Help", "&Wi Programming Environment",

                                 47                                                               48

Страницы