|
02.05.2009, 05:08
|
#1
|
Нуждающийся
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений (для 6 пользователей)
|
Очистить окно с текстом (наверное это называется тек)
Суть такова
При загрузки начального меню, выбираю нужный пункт.
Загружается текст из файла, на этом этапе все хорошо.
Выхожу в меню и выбираю другой (или тот же самый) пункт меню. И вот тут оказывается, что новый текст загрузился но после старого. т.е. на экране отображаются оба текста, один за другим
Надеюсь, что объяснил понятно, как это выглядит.
Вот вопрос как очистить старое содержание и отображать только новое?
Достаточно объемная информация загружается. И не как не мог понять, почему загружается только первый открытый документ, пока не пролистал до места стыка разных документов
|
(Offline)
|
|
02.05.2009, 11:43
|
#2
|
Нуждающийся
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений (для 6 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
Плиз, хелп, кто-нибудь
|
(Offline)
|
|
02.05.2009, 12:19
|
#3
|
Знающий
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений (для 17 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
Исходник дай! Посмотреть что там да как... Какой функцией текст на эу
кран выводишь?
|
(Offline)
|
|
02.05.2009, 13:06
|
#4
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
procedure cls;//очищение экрана
begin
setcolor(255,255,255);
fillRect(0, 0,getWidth , getHeight);
end;{добавь в код} потом в каждой процедуре в конце добавь cls; и всё
|
(Offline)
|
|
02.05.2009, 13:07
|
#5
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
я так понял
|
(Offline)
|
|
02.05.2009, 13:21
|
#6
|
Нуждающийся
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений (для 6 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
Пользовался стандартными способами
procedure LoadRes(namefile: string);
var s, temp: string;
res: resource;
i: integer;
begin
if loadfile=false then begin
s:='';
res:=OpenResource(namefile+'.txt');
repeat
temp:=ReadLine(res);
if temp='###' then break;
s:=s + StrToUtf8(temp) + chr(10);
until false;
CloseResource(res);
ShowForm;
i:=FormAddString(s);
loadfile:=true;
addCom;
end;
end;
Пробовал сделать через библиотеку
procedure LoadRes(namefile: string);
Var s, temp: string;
i: integer;
begin
if loadfile=false then begin
s:=LoadText(namefile+'.txt');
ShowForm;
i:=FormAddString(s);
loadfile:=true;
addCom;
end;
end;
Результат одинаков
|
(Offline)
|
|
02.05.2009, 13:26
|
#7
|
Нуждающийся
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений (для 6 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
cls не сработал ((
Программа просто складывает два текста(
|
(Offline)
|
|
02.05.2009, 14:10
|
#8
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
исходник давай
|
(Offline)
|
|
02.05.2009, 14:50
|
#9
|
Нуждающийся
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений (для 6 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
|
(Offline)
|
|
02.05.2009, 15:19
|
#10
|
Нуждающийся
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений (для 6 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
Господа, какие будут предложения?
А!, еще вопрос, как можно будет сделать меню в два сотлбца?
Просто элементов 81 шт.
|
(Offline)
|
|
02.05.2009, 15:19
|
#11
|
Знающий
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений (для 17 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
ClearForm; - удаляй форму при помощи этой функци и всё...
__________________
И суслики вам не помогут
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
02.05.2009, 15:24
|
#12
|
Знающий
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений (для 17 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
И ещё... если хочешь чтоб было красиво - то пиши на канвасе, а не через формы.... а если текст большой, то фоспользуйся библиотекой font32
__________________
И суслики вам не помогут
|
(Offline)
|
|
02.05.2009, 15:34
|
#13
|
Нуждающийся
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений (для 6 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
Спасибо, все работает))
И ещё... если хочешь чтоб было красиво - то пиши на канвасе, а не через формы.... а если текст большой, то фоспользуйся библиотекой font32
|
Спасибо, учту
{---------------------------------}
Если кому интересно, "ClearForm;" я вставил в процедуру "remCom"
|
(Offline)
|
|
05.05.2009, 18:48
|
#14
|
Нуждающийся
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений (для 6 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
Сижу юзаю библиотеку Font32.., не как не могу понять почему не получается так:
procedure LoadRes(namefile: string);
var s, temp, ss: string;
res: resource;
i: integer;
begin
if loadfile=false then begin
ClearForm;
s:='';
res:=OpenResource(namefile+'.txt');
repeat
temp:=ReadLine(res);
if temp='###' then break;
s:=s + StrToUtf8(temp) + chr(10);
until false;
CloseResource(res);
//ShowCanvas
TextWindow(0,0,getWidth, getHeight);
i:=Format(s, 0);
SetColor(255,255,255);
FillRect(0,0,getWidth, getHeight);
Align(i);
DrawTextWindow;
loadfile:=true;
showForm;
addCom;
end;
что я не так делаю?
{Приложение компилируется, библиотеку подключил, шрифт добавил (и dat-файл к нему), при загрузке тишина }
Один раз случайно в команду " i:=Format(s, 0);", место "s", написал "temp", на экране было написано "###" – конец ресурсного файла . т.е. вероятнее всего что обработка (применение шрифта) верная, наверное
Последний раз редактировалось Richik, 05.05.2009 в 19:01.
|
(Offline)
|
|
07.05.2009, 12:35
|
#15
|
Нуждающийся
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений (для 6 пользователей)
|
Ответ: Очистить окно с текстом (наверное это называется тек)
обсуждение данного вопроса было продолжено в теме Lib_font32: Графические шрифты
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 11:51.
|