JournalEngine v0.6.8

[im_zorg]

Всем привет. Решил написать движок для журнала ModCity. Прошу оценить. На софт клавиши пока любуемся, они не работаю, пока что. Управление джоем.
Парочка вопросов:

1. Как правильно определять нажатие софт клавиш, что бы отлавливал на всех аппаратах?
2. Как сделать нормальную вставку картинок в текст?

[cherepets]

1. Lib_scodes
2. Я ж тебе кидал вроде исходники своего аналогичного творения или ты его декомпилировал, уже не помню. Там я в текст на font32 (старой) вставлял картинки.

[cherepets]

При чтении из файла:

res:=openresource(s);
while temp<>'###' do begin
if temp<>'' then begin
    if copy(temp,0,1)<>'^' then text:=text+temp+chr(13) else begin
    if text<>'' then h:=format(text,0);
    if text<>'' then im[c+1]:=h;
    ig[c+1]:=stringtointeger(copy(temp,1,length(temp)));
    img[ig[c+1]]:=loadimage('/'+ig[c+1]+'.png');
    h:=trunc(getimageheight(img[stringtointeger(copy(temp,1,length(temp)))])/textheight);
    for d:=0 to h+1 do ot:=ot+chr(13);
    text:=text+ot;
    ot:='';
    c:=c+1;
    end;
end;
temp:=win2utf(readline(res));
end;
temp:=win2utf(readline(res));
if temp<>'NULL' then lnk:=true else lnk:=false;
    closeresource(res);
h:=format(text,0); 


Потом при отрисовке:

for d:=1 to c do
        drawimage(img[ig[d]],10,sz-getposition+im[d]);
    drawtextwindow; 


Честно говоря понять свой старый код до конца даже я сам не в силах, но идея в принципе видна, что уже хорошо))

[AVL]

Функция для работы с софтами, сразу для всех телефонов и для сенсоров:

function softkey(key,draw:boolean;text:string):boolean;//true - левый, false - правый
var
 x,y,kw,kh:integer;
 xp,yp:integer;
 k,v1,v2,v3:integer;
begin
 kh:=h div 10;
 y:=h-kh;
 kw:=w div 2;
 if key then begin
  x:=0;
  v1:=-1;v2:=-6;v3:=21;
 end
 else begin
  x:=w div 2;
  v1:=-4;v2:=-7;v3:=22;
 end;
 if copy(getproperty('microedition.platform'),0,7)<>'Siemens' then v1:=9999;
 k:=getkeypressed;
 xp:=pointer_pressed_x;
 yp:=pointer_pressed_y;
 softkey:=((pointer_is_pressed=1) and (xp>x) and (xp<x+kw) and (yp>y) and (yp<y+kh)) OR (k=v1) or (k=v2) or (k=v3);
 if draw then begin
  drawrect(x,y,kw,kh);
  drawtext(text,x+(kw-getstringwidth(text)) div 2,y+(kh-getstringheight(text))div 2);
  repaint;
 end;
end;

[im_zorg]

Cherepets а ты не мог бы пример без свистелок и перделок кинуть?)
AvL спасибо!!!

[im_zorg]

Сообщение от cherepets

При чтении из файла:

res:=openresource(s);
while temp<>'###' do begin
if temp<>'' then begin
    if copy(temp,0,1)<>'^' then text:=text+temp+chr(13) else begin
    if text<>'' then h:=format(text,0);
    if text<>'' then im[c+1]:=h;
    ig[c+1]:=stringtointeger(copy(temp,1,length(temp)));
    img[ig[c+1]]:=loadimage('/'+ig[c+1]+'.png');
    h:=trunc(getimageheight(img[stringtointeger(copy(temp,1,length(temp)))])/textheight);
    for d:=0 to h+1 do ot:=ot+chr(13);
    text:=text+ot;
    ot:='';
    c:=c+1;
    end;
end;
temp:=win2utf(readline(res));
end;
temp:=win2utf(readline(res));
if temp<>'NULL' then lnk:=true else lnk:=false;
    closeresource(res);
h:=format(text,0); 


Потом при отрисовке:

for d:=1 to c do
        drawimage(img[ig[d]],10,sz-getposition+im[d]);
    drawtextwindow; 


Честно говоря понять свой старый код до конца даже я сам не в силах, но идея в принципе видна, что уже хорошо))

кинь еще пример файла пожалуйста))

[cherepets]

^5
Тут всякий текст
###
Ссылка
http://link.no
###

На последние строчки не смотри, ^5 вставит картинку img[5];

[im_zorg]

Смысли 5.png или ее как то особенно над загружать?

[cherepets]

В начале программы заполни массив img

[im_zorg]

Я не много изменил теперь картинки загружаются так:

^images

загрузится картинка images.png)
Добавил файл настроек, настройки цвета и т.д.)
В просмотре статей теперь работает кнопка назад, а не кнопочка 5)
В меню пока что не работают, по куда меню это отдельный модуль.
Планы:
Реализовать проверку софт кеев и в меню(надо найти инфу как вызывать функции и процедуры из главного класса)
Найти лаве на кофе, много кофе З.Ы. не сплю два дня...
Переписать все на...й без библиотек и модулей.
Вот и все вроде.

[JACUK]

Как по мне, неудачный красный й цвет в нижнем баре.
Также приложение зависло при попытке выбрать пункт меню "Автор".

[im_zorg]

Настройки цвета можно менять как душе угодно... в файле settings.css. Насчет "Автор" Sjboy, keemulator, lj cockie, samsung M610 все хорошо работает и отображается.

[JACUK]

Значит тел подвис.

[im_zorg]

А какой телефон?

[JACUK]

Toshiba g900. Но дело с wm устройствами состоит иначе-множество jvm. Лично у меня стоит дефолтная и есть инсталаха еще какой то. Так что рится и искать баг как по мне лишено всякого смысла.