05.05.2009, 23:53
|
#39
|
Нуждающийся
Регистрация: 02.05.2009
Сообщений: 68
Написано 6 полезных сообщений (для 6 пользователей)
|
Ответ: Lib_font32: Графические шрифты
хелп
Сижу юзаю библиотеку 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", на экране было написано "###" – конец ресурсного файла . т.е. вероятнее всего что обработка (применение шрифта) верная, наверное
|
|
(Offline)
|
|