Извините, ничего не найдено.

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



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