Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal

Ответ
 
Опции темы
Старый 02.05.2009, 05:08   #1
Richik
Нуждающийся
 
Аватар для Richik
 
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений
(для 6 пользователей)
Вопрос Очистить окно с текстом (наверное это называется тек)

Суть такова
При загрузки начального меню, выбираю нужный пункт.
Загружается текст из файла, на этом этапе все хорошо.
Выхожу в меню и выбираю другой (или тот же самый) пункт меню. И вот тут оказывается, что новый текст загрузился но после старого. т.е. на экране отображаются оба текста, один за другим

Надеюсь, что объяснил понятно, как это выглядит.

Вот вопрос как очистить старое содержание и отображать только новое?


Достаточно объемная информация загружается. И не как не мог понять, почему загружается только первый открытый документ, пока не пролистал до места стыка разных документов
(Offline)
 
Ответить с цитированием
Старый 02.05.2009, 11:43   #2
Richik
Нуждающийся
 
Аватар для Richik
 
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений
(для 6 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

Плиз, хелп, кто-нибудь
(Offline)
 
Ответить с цитированием
Старый 02.05.2009, 12:19   #3
demon112
Знающий
 
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений
(для 17 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

Исходник дай! Посмотреть что там да как... Какой функцией текст на эу
кран выводишь?
(Offline)
 
Ответить с цитированием
Старый 02.05.2009, 13:06   #4
KAK? TAK!
Нуждающийся
 
Регистрация: 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
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

я так понял
(Offline)
 
Ответить с цитированием
Старый 02.05.2009, 13:21   #6
Richik
Нуждающийся
 
Аватар для Richik
 
Регистрация: 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
Richik
Нуждающийся
 
Аватар для Richik
 
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений
(для 6 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

cls не сработал ((

Программа просто складывает два текста(
(Offline)
 
Ответить с цитированием
Старый 02.05.2009, 14:10   #8
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

исходник давай
(Offline)
 
Ответить с цитированием
Старый 02.05.2009, 14:50   #9
Richik
Нуждающийся
 
Аватар для Richik
 
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений
(для 6 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

Вот целый проект NewProject.zip (5.5 Кб)
Вложения
Тип файла: zip NewProject.zip (5.5 Кб, 1026 просмотров)
(Offline)
 
Ответить с цитированием
Старый 02.05.2009, 15:19   #10
Richik
Нуждающийся
 
Аватар для Richik
 
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений
(для 6 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

Господа, какие будут предложения?

А!, еще вопрос, как можно будет сделать меню в два сотлбца?
Просто элементов 81 шт.
(Offline)
 
Ответить с цитированием
Старый 02.05.2009, 15:19   #11
demon112
Знающий
 
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений
(для 17 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

ClearForm; - удаляй форму при помощи этой функци и всё...
__________________
И суслики вам не помогут
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Richik (02.05.2009)
Старый 02.05.2009, 15:24   #12
demon112
Знающий
 
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений
(для 17 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

И ещё... если хочешь чтоб было красиво - то пиши на канвасе, а не через формы.... а если текст большой, то фоспользуйся библиотекой font32
__________________
И суслики вам не помогут
(Offline)
 
Ответить с цитированием
Старый 02.05.2009, 15:34   #13
Richik
Нуждающийся
 
Аватар для Richik
 
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений
(для 6 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

Спасибо, все работает))

И ещё... если хочешь чтоб было красиво - то пиши на канвасе, а не через формы.... а если текст большой, то фоспользуйся библиотекой font32
Спасибо, учту
{---------------------------------}
Если кому интересно, "ClearForm;" я вставил в процедуру "remCom"
(Offline)
 
Ответить с цитированием
Старый 05.05.2009, 18:48   #14
Richik
Нуждающийся
 
Аватар для Richik
 
Регистрация: 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
Richik
Нуждающийся
 
Аватар для Richik
 
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений
(для 6 пользователей)
Ответ: Очистить окно с текстом (наверное это называется тек)

обсуждение данного вопроса было продолжено в теме Lib_font32: Графические шрифты
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как очистить фон в коммандах? vad74 MidletPascal 7 18.12.2009 22:11
Работа с текстом и файлом pepel 2D-программирование 8 08.10.2009 23:13
Проблема с текстом в Ashadow LEON 3D-программирование 8 01.08.2007 14:12
Как очистить меню om2804 Основной форум 6 26.05.2007 00:01
Хитрости с текстом root 3D-программирование 3 24.02.2006 18:42


Часовой пояс GMT +4, время: 00:30.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com