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

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

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

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 28.07.2009, 16:52   #1
beisik
Нуждающийся
 
Аватар для beisik
 
Регистрация: 23.04.2008
Адрес: Брест, Беларусь
Сообщений: 53
Написано 10 полезных сообщений
(для 18 пользователей)
Проблема со шрифтами

Имеется вот такой вот юнит, реализующий загрузку шрифтов и вывод текста:
unit eFonts;

interface

var
  font: array[32..258] of image;

procedure FontInit(FileName: string; LetterWidth, LetterHeight: integer);
procedure FontPrint(str: string; x, y: integer);

implementation
  uses alpha;

procedure FontInit(FileName: string; LetterWidth, LetterHeight: integer);
var
  i, j: integer;
  fnt: image;
begin
  fnt := LoadImage('/' + FileName);
  for j := 0 to 13 do
    for i := 0 to 15 do
      font[j * 16 + i + 32] := ReplaceColor(ImageFromImage(fnt, i * LetterWidth, j * LetterHeight, LetterWidth, LetterHeight), TranslateColor(255, 0, 0, 0), 0);
end;

procedure FontPrint(str: string; x, y: integer);
var
  i, a : integer;
begin
  for i:= 0 to Length(str) - 1 do  
  begin
    a:= Ord(GetChar(str, i));
    if a > 255 then
      a := a - 848;
    DrawImage(font[a], x + i * GetImageWidth(font[32]), y);	
  end;
end;

initialization
	{ инициализация }
end.
Отказывается работать на SE (проверялось на K750). Вероятнее всего проблема в использовании ReplaceColor/TranslateColor (библиотека alpha) или в ImageFromImage. Подскажите как исправить.
__________________
diary
(Offline)
 
Ответить с цитированием
Старый 29.07.2009, 16:30   #2
odd
Мастер
 
Аватар для odd
 
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений
(для 713 пользователей)
Ответ: Проблема со шрифтами

Для начала попробуй вставить чистку памяти.
Такой код жрет очень много оперативки.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
beisik (30.07.2009)
Старый 30.07.2009, 19:25   #3
beisik
Нуждающийся
 
Аватар для beisik
 
Регистрация: 23.04.2008
Адрес: Брест, Беларусь
Сообщений: 53
Написано 10 полезных сообщений
(для 18 пользователей)
Ответ: Проблема со шрифтами

Спасибо, вроде бы помогло.
__________________
diary
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проблема с С++ HAMANN C++ 10 24.12.2009 09:31
Проблема Mark Castle Основной форум 2 12.11.2009 18:19
Проблема rr333 3D Моделирование 10 07.06.2009 17:08
Проблема в MP Nautilus MidletPascal 4 26.10.2008 05:30
Проблема с MP3 и EAX Maxim1441 2D-программирование 3 29.07.2008 18:29


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


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