forum.boolean.name - фотки

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)

Ответ: фотки

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

стрелки вот

Ответ: фотки

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

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

Ответ: фотки

Поясню

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

Ответ: фотки

Код:

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
ты все правильно понял

Ответ: фотки

лови примерно так)))

PHP код:


		
			
uses canvas; 

    Var     

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

    im: image; 

    youimage: array [1..5] of image;

Begin  

            w:=getwidth;h:=getheight; 

            xi:=w; 

            yi:=h;

            xs:=GetWidth; 

            ys:=GetHeight; 

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

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

            vibor:=1;

            for i:=1 to 5 do

            begin

                        im:=LoadImage('/'+i+'.png');

                        youimage[i]:=canvas.resize_image(im,w,h); 

            end;

            repeat 

            state:=GetKeyClicked; 

            if (state=KE_KEY2)  or (state=-6) then if vibor>1 then vibor:=vibor-1;

            if (state=KE_KEY8)  or (state=-7) then if vibor<5 then vibor:=vibor+1; 

            DrawImage(youimage[vibor],0,0);

            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.

картинки 1.png 2.png ... 5.png