Ответ: Чтобы новую тему не создавать
Не соображу как оживить кнопку Назад. При нажатии Назад происходит выход из программы.
Код:
Program menu;
var
pt1,pt2,pt3,pt4,pt5,pt6,pt7,pt8,pt9,pt10,pt11,pt12,pt13,pt14: integer;
ppt1,ppt2,ppt3,ppt4,ppt5,ppt6,ppt7,ppt8,ppt9,ppt10,ppt11,ppt12,ppt13,ppt14: integer;
t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14: integer;
submenu1, submenu2: integer;
img: image;
show,click,exit,back: command;
Begin
ShowMenu('Монеты РСФСР СССР 1921-2008', CH_IMPLICIT);
img:=loadImage('/icon.png');
pt1 := MenuAppendStringImage(' Новодел 1923-82', img);
pt2 := MenuAppendStringImage(' Банк России 1997-2008', img);
pt3 := MenuAppendStringImage(' Монеты РФ 1992-93', img);
pt4 := MenuAppendStringImage(' Банк СССР 1991-92', img);
pt5 := MenuAppendStringImage(' СССР рег чек 1987-91', img);
pt6 := MenuAppendStringImage(' СССР рег чек 1976-86', img);
pt7 := MenuAppendStringImage(' СССР рег чек 1965-75', img);
pt8 := MenuAppendStringImage(' СССР рег чек 1953-64', img);
pt9 := MenuAppendStringImage(' СССР рег чек 1942-52', img);
pt10 := MenuAppendStringImage(' СССР рег чек 1932-41', img);
pt11 := MenuAppendStringImage(' РСФСР и СССР рег чек 1921-31', img);
pt12 := MenuAppendStringImage(' Наборы юбилейных монет', img);
pt13 := MenuAppendStringImage(' Юбилейные монеты банка России', img);
pt14 := MenuAppendStringImage(' Юбилейные монеты СССР', img);
show:= CreateCommand('Выбор', CM_SCREEN, 1);
addCommand(show);
repaint;
Repeat
Delay(100);
click:= getClickedCommand;
until click=show;
if menuGetSelectedIndex = pt1 then
begin
showmenu('Новодел 1923-82', CH_IMPLICIT);
ppt1 := MenuAppendStringImage(' 1923', img);
ppt2 := MenuAppendStringImage(' 1975', img);
ppt3 := MenuAppendStringImage(' 1976', img);
ppt4 := MenuAppendStringImage(' 1977', img);
ppt5 := MenuAppendStringImage(' 1978', img);
ppt6 := MenuAppendStringImage(' 1979', img);
ppt7 := MenuAppendStringImage(' 1980', img);
ppt8 := MenuAppendStringImage(' 1981', img);
ppt9 := MenuAppendStringImage(' 1982', img);
show := CreateCommand('Выбор', CM_OK, 1);
back := CreateCommand('Назад', CM_BACK, 1);
addCommand(show);
addCommand(back);
Repaint;
repeat
delay(100);
click := getClickedCommand;
until click = show;
end;
begin
if menuGetSelectedIndex = ppt1 then
begin
showmenu('', CH_IMPLICIT);
t1 := MenuAppendString('Год: 1923');
t2 := MenuAppendString('Номинал: Червонец');
t3 := MenuAppendString('Название: Сеятель');
t4 := MenuAppendString('Металл: Au900');
t5 := MenuAppendString('Вес: 8.6 гр');
t6 := MenuAppendString('Цена: 125000');
{showTextBox('Сеятель', 'Год: 1923 Номинал: Червонец Название: Сеятель || Металл: Au900 || Вес: 8.6 гр || Цена: 125000', 1000, TF_ANY);}
show := CreateCommand('', CM_SCREEN, 0);
addCommand(show);
back := CreateCommand('Назад', CM_BACK, 1);
addCommand(back);
repeat
delay(100);
click := getClickedCommand;
until click = back;
end;
end;
End.
Тоесть возврат к предыдущему меню :wallbash:
|