forum.boolean.name - фотки

Страница 5 из 6

Показывать 64 сообщений этой темы на одной странице

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

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - фотки (http://forum.boolean.name/showthread.php?t=12361)

im_zorg

27.04.2010 19:54

Ответ: фотки

Чтоб больше такого не было поставь совместимость(как-то так :-)) Правая кнопка по ярлыку midletpascala - Свойства - Совместимость - Windows 98

www12

30.04.2010 22:47

Ответ: фотки

мальчики в чем ошибка пытаюсь сделать чтобы мои фотки показывали на мобильном у моей подруге у нас разное расширение на мобильном
но у меня не получается почему то два изображение показывает а мне надо то изображение которое подстраивается под мобильный т.е расширение . Помогите в чем ошибка и расталкуйте ошибку .спасибо

Код:

uses canvas;

Var         x,y, xi, yi,xs, ys, xs1, ys1, state, i,w,h: integer;

ris,newimg: image;



 

Begin



        ris:=LoadImage('/wwww.png');

        w:=getwidth;h:=getheight;

        xi:=GetImageWidth(ris);

        yi:=GetImageHeight(ris);

        xs:=GetWidth;

        ys:=GetHeight;



        xs1:=GetStringWidth('вверх');

        ys1:=GetStringHeight('вверх');

  



        DrawImage(ris,x,y);Repaint;



        



        repeat



                state:=GetKeyClicked;

                                                        



                                if state=KE_KEY4  then begin x:=x-20; if (x<xs-xi) then x:=xs-xi; end;

                                if state=KE_KEY6  then begin x:=x+20; if (x>0) then x:=0; end;

                                if (state=KE_KEY2)  or (state=-6) then begin y:=y-20; if (y<ys-yi) then y:=ys-yi; i:=i+1; end;



                                if (state=KE_KEY8)  or (state=-7) then begin y:=y+20; if (y>0) then y:=0; end;

                                if w<h then

newimg:=canvas.resize_image(ris,w,trunc((getimageHeight(ris)*w)/getimagewidth(ris)));

if w>h then

newimg:=canvas.resize_image(ris,trunc((getimageWidth(ris)*h)/getimageheight(ris)),h);

if w=h then ris:=newimg;

DrawImage(newimg,0,0);





                                



                                DrawImage(ris,x,y);



                                

                                SetColor(0, 0, 255); 

                                FillRect(xs-xs1,ys-ys1,xs1,ys1); FillRect(0,ys-ys1,xs1,ys1); 

                                



                                SetColor(0, 255, 0); 

                                DrawText('вверх',xs-xs1+5,ys-ys1);

                                DrawText('вниз',0,ys-ys1);



                





                 Repaint;

                 Delay(20);



        until false;

         

End.

im_zorg

01.05.2010 17:35

Ответ: фотки

PHP код:


		
			
uses canvas;

Var     x,y, xi, yi,xs, ys, xs1, ys1, state, i,w,h: integer;

ris,newimg: image;

Begin

                ris:=LoadImage('/icon.png');

                w:=getwidth;h:=getheight;

                xi:=GetImageWidth(ris);

                yi:=GetImageHeight(ris);

                xs:=GetWidth;

                ys:=GetHeight;

                xs1:=GetStringWidth('вверх');

                ys1:=GetStringHeight('вверх');

                DrawImage(ris,x,y);Repaint;

repeat

                state:=GetKeyClicked;

                if state=KE_KEY4  then begin x:=x-20; if (x<xs-xi) then x:=xs-xi; end;

                if state=KE_KEY6  then begin x:=x+20; if (x>0) then x:=0; end;

                if (state=KE_KEY2)  or (state=-6) then begin y:=y-20; if (y<ys-yi) then y:=ys-yi; i:=i+1; end

                if (state=KE_KEY8)  or (state=-7) then begin y:=y+20; if (y>0) then y:=0; end;

                if w<h then

                newimg:=canvas.resize_image(ris,w,trunc((getimageHeight(ris)*w)/getimagewidth(ris)));

                if w>h then

                newimg:=canvas.resize_image(ris,trunc((getimageWidth(ris)*h)/getimageheight(ris)),h);

                if w=h then ris:=newimg;

                DrawImage(newimg,0,0);

                //DrawImage(ris,x,y); зачем ты рисуешь эту картинку???

                SetColor(0, 0, 255); 

                FillRect(xs-xs1,ys-ys1,xs1,ys1); FillRect(0,ys-ys1,xs1,ys1); 

                SetColor(0, 255, 0); 

                DrawText('вверх',xs-xs1+5,ys-ys1);

                DrawText('вниз',0,ys-ys1);

         Repaint;

         Delay(20);

    until false;

End.

www12

03.05.2010 18:53

Ответ: фотки

а почему стрелки не работают т.е не двигается картинка когда нажимаешь вверх вниз

psih1

03.05.2010 19:05

Ответ: фотки

keyToAction

function keyToAction(keyCode: integer): integer;

Функции getKeyClicked и getKeyPressed возвращают код нажатой клавиши. Но коды клавиш могут различаться для разных устройств. Например, одно устройство может возвращать для кнопки FIRE код 100, а другое - 120. Чтобы обойти данные разногласия, вы можете использовать функцию keyToAction, которая переводит код клавиши в условный код игрового действия. keyToAction может вернуть значения из следующего списка:

· GA_NONE

· GA_UP

· GA_DOWN

· GA_LEFT

· GA_RIGHT

· GA_FIRE

· GA_GAMEA

· GA_GAMEB

· GA_GAMEC

· GA_GAMED

begin
while keyToAction(getKeyClicked) <> GA_FIRE do
begin
delay(100);
end;
end.

См. также: getKeyPressed, getKeyClicked

стрелки вот

www12

03.05.2010 20:56

Ответ: фотки

ни поняла я ничего это все в справке написано зачем справку скопировал не понимаю т.е цитируешь

я спрашивала совершенно другой вопрос что дописать чтоб мидлет работал стрелочки чтоб работали

Igor	03.05.2010 21:34

Ответ: фотки

Поясню

key:=getkeypressed;
если keytoaction(key)=Ga_up,
то нажата кнопка вверх или 2

im_zorg

04.05.2010 11:10

Ответ: фотки

Код:

uses canvas; 

Var     x,y, xi, yi,xs, ys, xs1, ys1, state, i,w,h: integer; 

ris,newimg: image; 

Begin 

                ris:=LoadImage('/icon.png'); 

                w:=getwidth;h:=getheight; 

                xi:=GetImageWidth(ris); 

                yi:=GetImageHeight(ris); 

                xs:=GetWidth; 

                ys:=GetHeight; 

                xs1:=GetStringWidth('вверх'); 

                ys1:=GetStringHeight('вверх'); 

                //DrawImage(ris,x,y);Repaint;  зачем ты рисуешь эту картинку??? 

                newimg:=canvas.resize_image(ris,w,h); 

repeat 

                state:=GetKeyClicked; 

                if state=KE_KEY4  then begin x:=x-20; if (x<xs-xi) then x:=xs-xi; end; 

                if state=KE_KEY6  then begin x:=x+20; if (x>0) then x:=0; end; 

                if (state=KE_KEY2)  or (state=-6) then begin y:=y-20; if (y<ys-yi) then y:=ys-yi; i:=i+1; end 

                if (state=KE_KEY8)  or (state=-7) then begin y:=y+20; if (y>0) then y:=0; end; 

                {if w<h then 

                newimg:=canvas.resize_image(ris,w,trunc((getimageHeight(ris)*w)/getimagewidth(ris))); 

                if w>h then 

                newimg:=canvas.resize_image(ris,trunc((getimageWidth(ris)*h)/getimageheight(ris)),h); 

                if w=h then ris:=newimg; зачем ты это делаешь в цмкле?}

                DrawImage(newimg,x,y);//эта картинка рисовалась по координата 0,0 изменил на x,y

                //DrawImage(ris,x,y); //зачем ты рисуешь эту картинку??? 

                SetColor(0, 0, 255);  

                FillRect(xs-xs1,ys-ys1,xs1,ys1); FillRect(0,ys-ys1,xs1,ys1);  

                SetColor(0, 255, 0);  

                DrawText('вверх',xs-xs1+5,ys-ys1); 

                DrawText('вниз',0,ys-ys1); 

         Repaint; 

         Delay(20); 

         setcolor(255,255,255);

         FillRect(0,0,xs,ys); 

    until false; 

End.

im_zorg

04.05.2010 11:12

Ответ: фотки

Как поймёшь свои ошибки удали все комментарии... Сори за два сообщения...

www12

04.05.2010 21:54

Ответ: фотки

мальчики этот мидлет работает только на одну фотку а если я соединяю фотки в одну он показывает как одну на весь экран и сильно жимает ее а зачем мне тогда стрелки вверх я же хочу просматривать все фотки а этот мидлет сжимает все в одну фотку

помогите может надо что то исправить

cherepets

04.05.2010 23:27

Ответ: фотки

проще написать тебе отдельную галерею, чем понять что ты хочешь от этой...

im_zorg

05.05.2010 21:08

Ответ: фотки

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

cherepets

05.05.2010 22:37

Ответ: фотки

ява-мания накрылась и у меня двиг журнальный остался.
при условиях что никак не будешь распрастранять - могу дать. там в статьях реализована поддержка картинок, можно сделать фотоальбом))

im_zorg

05.05.2010 22:45

Ответ: фотки

дай мне))

www12

05.05.2010 22:51

Ответ: фотки

im_zorg
ты все правильно понял

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

Страница 5 из 6

Показывать 64 сообщений этой темы на одной странице