forum.boolean.name - JournalEngine v0.6.8

forum.boolean.name (http://forum.boolean.name/index.php)

- Проекты на MidletPascal (http://forum.boolean.name/forumdisplay.php?f=88)

- - JournalEngine v0.6.8 (http://forum.boolean.name/showthread.php?t=14755)

im_zorg

17.05.2011 12:52

JournalEngine v0.6.8

Вложений: 1

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

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

cherepets

17.05.2011 13:10

Ответ: JournalEngine v0.6.8

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

cherepets

17.05.2011 13:14

Ответ: JournalEngine v0.6.8

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

PHP код:


		
			
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);

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

PHP код:


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

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

AVL	17.05.2011 13:44

Ответ: JournalEngine v0.6.8

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

Код:

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

17.05.2011 20:17

Ответ: JournalEngine v0.6.8

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

im_zorg

17.05.2011 20:18

Ответ: JournalEngine v0.6.8

Цитата:

Сообщение от cherepets (Сообщение 188742)

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

PHP код:


		
			
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);

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

PHP код:


		
			
for d:=1 to c do

        drawimage(img[ig[d]],10,sz-getposition+im[d]);

    drawtextwindow;

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

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

cherepets

17.05.2011 20:20

Ответ: JournalEngine v0.6.8

Цитата:

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

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

im_zorg

17.05.2011 20:33

Ответ: JournalEngine v0.6.8

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

cherepets

17.05.2011 20:39

Ответ: JournalEngine v0.6.8

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

im_zorg

18.05.2011 18:26

Ответ: JournalEngine v0.6.8

Вложений: 1

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

Код:

^images

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

JACUK

18.05.2011 19:36

Ответ: JournalEngine v0.6.8

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

im_zorg

18.05.2011 20:18

Ответ: JournalEngine v0.6.8

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

JACUK

19.05.2011 05:24

Ответ: JournalEngine v0.6.8

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

im_zorg

19.05.2011 10:34

Ответ: JournalEngine v0.6.8

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

JACUK

19.05.2011 12:26

Ответ: JournalEngine v0.6.8

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

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