фотки

[FireOwl]

Как я понял, прочтя весь этот бред на двух страницах, надо так:
Нажимаешь на мобильнике кнопку вниз -> картинка ползет вниз -> в углу экрана появляется надпись "Вниз".
Я понял правильно? Но это действительн элементарно, насколько могу судить я, не зная MidletPascal

[www12]

кстати я уже сама разобралась с этим


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

[FireOwl]

Давно пора разобраться.
Что касается шпилек, >>

[www12]

помогите собрать в один мидлет нужно сделать на кнопку ВВЕРХ

Var	 x,y, xi, yi,xs, ys, xs1, ys1, state: integer;
ris: image;
Begin
	ris:=LoadImage('/image.png');
	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; end;
				if (state=KE_KEY8)  or (state=-7) then begin y:=y+20; if (y>0) then y:=0; end;
				
				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.

Var	i, key: integer;

Begin
repeat
 key:=GetKeyClicked; 
 if key=ke_key5 then 
 begin 
  if i=4 then 
   //требуемое действие 
  i:=i+1; 
 end; 
 if key=ke_key1 then 
  i:=0;
 until key=ke_pound;
  end.

[Tadeus]

Мы пока разбираемся со шпильками

[www12]

со шпильками оооо могу советы дать как дама

[www12]

ну помогите товарищи Программи́сты

[cherepets]

ну, в смысл кода вдаваться не буду, но думаю как-то так:

program bred;
Var    i, key: integer;

procedure hren;
Var     x,y, xi, yi,xs, ys, xs1, ys1, state: integer;
ris: image;
Begin
    ris:=LoadImage('/image.png');
    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; end;
                if (state=KE_KEY8)  or (state=-7) then begin y:=y+20; if (y>0) then y:=0; end;
                
                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;

Begin
repeat
 key:=GetKeyClicked; 
 if key=ke_key5 then 
 begin 
  if i=4 then hren;
  i:=i+1; 
 end; 
 if key=ke_key1 then 
  i:=0;
 until key=ke_pound;
  end. 


[www12]

cherepets все компилируется но ни че не видно ни фото ни кнопок белый экран

почему?
тестила на эмуляторе Sjboy Emulator

[DIMMON4IK]

Пользуйся KEmulator - он намного лутше

[cherepets]

эм, потому что видно ток при удержании 5 (код от винта)

[www12]

товарищи Программи́сты

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

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

[ViNT]

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

товарищи Программи́сты

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

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

Какая модель телефона, на котором работает неправильно?

[www12]

сони эриксон T650i

[www12]

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