Второй день пытаюсь прикрутить библиотеку, но стабильного результата нет. На первых версиях библиотеки на эмуляторе всё работало стабильно,
на телефоне пустой экран и зависание.
Скачал новую версию библиотеки (вроде как последнюю - с функцией поворота). Демка не работает (эмулятор SjBoy).
Ладно. Попробовал использовать в проекте - пустой экран и зависание.
Вот выдрал функцию из проекта и немного подправил для лучшего восприятия:
program TestChat;
uses font32,vscroll;
function ShowChat: Integer;
var
i, wi, hi, text_height, key: integer;
fBack,fMsg,fClicked: Command;
begin
wi:=GetWidth;
hi:=GetHeight;
//задаём шрифт
font32.rotate(0);
font32.init(1);
font32.Font(0);
font32.LoadFont('Verdana');
font32.color(255, 0, 255, 0);
//задаём окно, текст и рисуем
font32.TextWindow(1, 1, wi - 16, hi);
text_height:=font32.Format('Нет сообщений',0);
font32.DrawTextWindow;
//если есть что прокручивать
if text_height>hi then
begin
//задаём и рисуем скроллер
vscroll.LoadVScroll(LoadImage('/vscroll.png'));
vscroll.SetVScroll(wi - VScrollWidth, 0, hi);
vscroll.SetOffset(16);
vscroll.DrawVScroll(0, text_height, 0, hi);
end;
//создаём и добавляем команды
fBack := createCommand('Назад', CM_BACK, 1);
fMsg:= createCommand('Написать', CM_ITEM, 2);
addCommand(fBack);
addCommand(fMsg);
//перерисовываем всё
Repaint;
repeat
Delay(100);
//если есть что прокручивать
if text_height>hi then
begin
//контролируем клавиши прокрутки
key:=KeyToAction(GetKeyPressed);
if key = GA_DOWN then
begin
FillRect(0,0,wi,hi);
font32.MoveDown(TextHeight);
font32.DrawTextWindow;
vscroll.DrawVScroll(0, text_height, GetPosition, hi);
Repaint;
end
else if key = GA_UP then
begin
FillRect(0,0,wi,hi);
font32.MoveUp(TextHeight);
font32.DrawTextWindow;
vscroll.DrawVScroll(0, text_height, GetPosition, hi);
Repaint;
end;
end;
fClicked := getClickedCommand;
until (fClicked = fBack) or (fClicked = fMsg);
if fClicked = fBack then
ShowChat := 0
else if fClicked = fMsg then
ShowChat := 1;
//else
removeCommand(fBack);
removeCommand(fMsg);
font32.init(0);
end;
begin
repeat
until ShowChat=0;
end.
Проект так же прикладываю в аттаче.
Допустил ли я какую-то ошибку при использовании библиотеки или
может кто-нибудь поделится ссылкой на стабильную версию библиотеки?
Спасибо