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

UptoLike

ВУЗ: 

ОмГУ | Омск

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

Рубрика: 

49
"Icon &Обзор возможностей учителя",
Icon &Language Reference",
"I&dol Reference",
"Icon &Graphics Facilities Reference",
"Icon &Program Library Reference",
"&Visual Interface Builder Reference",
"&Frequently Asked Questions",
"&About..."]
]
WinMenuBar ! menu |{GotoRC(5,1);WWrite("Не могу создать
меню")}
mainloop()
Пример
обработки команд меню:
procedure mainloop()
while e := Event() do
case e of {
........................................
"&Залить фоновым цветом":
{
dflt:=&null
ColorDialog(,dflt)
WAttrib("bg="||dialog_value)
EraseArea(&window, 1, 1, 600, 400)
}
"Т&екстовый диалог":
{
WAttrib("fg=black")
SS:=TextDialog(&window, ["Введите в поля что угодно"],
["1","2","3"], [], [24,24,24], ["Yes","CANCEL"], i)
if SS=="Yes" then
{
D:=dialog_value[1]
GotoRC(5,3)
WWrite(D)
}
}
50
"П&росто диалог":
{
EraseArea(&window, 1, 1, 600, 400)
WAttrib("fg=black")
GotoRC(1,1);WWrite("Введите строку")
WAttrib("echo=on")
GotoRC(2,1);SU:=WRead()
GotoRC(3,1);WWrite(SU)
}
..........................................
13.5. Чтение и запись изображений
Для чтения и записи изображений используются функции
ReadImage(W,s1,x,y) и WriteImage(W,s,x,y,w,h),
s1 и s – файлы, w,h – ширина и высота, W – окно.
Работают с *.gif и *.bmp форматами. 
     "Icon &Обзор возможностей учителя",                       "П&росто диалог":
     Icon &Language Reference",                                {
     "I&dol Reference",                                        EraseArea(&window, 1, 1, 600, 400)
     "Icon &Graphics Facilities Reference",                    WAttrib("fg=black")
     "Icon &Program Library Reference",                        GotoRC(1,1);WWrite("Введите строку")
     "&Visual Interface Builder Reference",                    WAttrib("echo=on")
     "&Frequently Asked Questions",                            GotoRC(2,1);SU:=WRead()
     "&About..."]                                              GotoRC(3,1);WWrite(SU)
     ]                                                         }
     WinMenuBar ! menu |{GotoRC(5,1);WWrite("Не могу создать   ..........................................
меню")}
     mainloop()                                                13.5. Чтение и запись изображений
                                                               Для чтения и записи изображений используются функции
     Пример обработки команд меню:
                                                               ReadImage(W,s1,x,y) и WriteImage(W,s,x,y,w,h),
     procedure mainloop()
                                                               s1 и s – файлы, w,h – ширина и высота, W – окно.
     while e := Event() do
                                                               Работают с *.gif и *.bmp форматами.
     case e of {
     ........................................
     "&Залить фоновым цветом":
     {
     dflt:=&null
     ColorDialog(,dflt)
     WAttrib("bg="||dialog_value)
     EraseArea(&window, 1, 1, 600, 400)
     }
     "Т&екстовый диалог":
     {
     WAttrib("fg=black")
     SS:=TextDialog(&window, ["Введите в поля что угодно"],
     ["1","2","3"], [], [24,24,24], ["Yes","CANCEL"], i)
     if SS=="Yes" then
     {
     D:=dialog_value[1]
     GotoRC(5,3)
     WWrite(D)
     }
     }

                              49                                                           50

Страницы