|
Основной форум Сюда все проблемы связанные с программированием. |
22.09.2008, 21:26
|
#1
|
AnyKey`щик
Регистрация: 21.09.2008
Сообщений: 4
Написано 0 полезных сообщений (для 0 пользователей)
|
построчный вывод
Уважаемые, а есть ли возможность построчного вывода в showTextBox.
Следующего вида:
Пункт1: Текст
Пункт1: Текст
Пункт1: Текст
Если есть то подскажите как
(только начал осваивать, а на форуме че то не нашел)
заранее Спасибо
|
(Offline)
|
|
22.09.2008, 23:03
|
#2
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: построчный вывод
Нет, TextBox позволяет вводить только сплошной текст.
|
(Offline)
|
|
23.09.2008, 06:17
|
#3
|
Мастер
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений (для 713 пользователей)
|
Ответ: построчный вывод
Попробуй вставить в текст chr(13) или chr(10). И посмотри на результат.
|
(Offline)
|
|
25.09.2008, 19:04
|
#4
|
AnyKey`щик
Регистрация: 21.09.2008
Сообщений: 4
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Чтобы новую тему не создавать
Не соображу как оживить кнопку Назад. При нажатии Назад происходит выход из программы.
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.
Тоесть возврат к предыдущему меню
|
(Offline)
|
|
10.11.2008, 23:06
|
#5
|
AnyKey`щик
Регистрация: 01.10.2008
Сообщений: 8
Написано одно полезное сообщение (для 2 участников)
|
Ответ: построчный вывод
При нажатии Назад происходит выход из программы.
|
Я думаю так:
back := CreateCommand('Назад', CM_BACK, 1);
и
click := getClickedCommand;
возвращают одно и тоже значение, собственно из-за
until click = back;
происходит конец программы.
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 08:53.
|