|
Основной форум Сюда все проблемы связанные с программированием. |
27.04.2010, 19:54
|
#61
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: фотки
Чтоб больше такого не было поставь совместимость(как-то так ) Правая кнопка по ярлыку midletpascala - Свойства - Совместимость - Windows 98
|
(Offline)
|
|
30.04.2010, 22:47
|
#62
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
мальчики в чем ошибка пытаюсь сделать чтобы мои фотки показывали на мобильном у моей подруге у нас разное расширение на мобильном
но у меня не получается почему то два изображение показывает а мне надо то изображение которое подстраивается под мобильный т.е расширение . Помогите в чем ошибка и расталкуйте ошибку .спасибо
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.
|
(Offline)
|
|
01.05.2010, 17:35
|
#63
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: фотки
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.
|
(Offline)
|
|
03.05.2010, 18:53
|
#64
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
а почему стрелки не работают т.е не двигается картинка когда нажимаешь вверх вниз
|
(Offline)
|
|
03.05.2010, 19:05
|
#65
|
Знающий
Регистрация: 20.03.2010
Сообщений: 271
Написано 16 полезных сообщений (для 32 пользователей)
|
Ответ: фотки
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
стрелки вот
|
(Offline)
|
|
03.05.2010, 20:56
|
#66
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
ни поняла я ничего это все в справке написано зачем справку скопировал не понимаю т.е цитируешь
я спрашивала совершенно другой вопрос что дописать чтоб мидлет работал стрелочки чтоб работали
|
(Offline)
|
|
03.05.2010, 21:34
|
#67
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: фотки
Поясню
key:=getkeypressed;
если keytoaction(key)=Ga_up,
то нажата кнопка вверх или 2
|
(Offline)
|
|
04.05.2010, 11:10
|
#68
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: фотки
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.
|
(Offline)
|
|
04.05.2010, 11:12
|
#69
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: фотки
Как поймёшь свои ошибки удали все комментарии... Сори за два сообщения...
|
(Offline)
|
|
04.05.2010, 21:54
|
#70
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
мальчики этот мидлет работает только на одну фотку а если я соединяю фотки в одну он показывает как одну на весь экран и сильно жимает ее а зачем мне тогда стрелки вверх я же хочу просматривать все фотки а этот мидлет сжимает все в одну фотку
помогите может надо что то исправить
|
(Offline)
|
|
04.05.2010, 23:27
|
#71
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: фотки
проще написать тебе отдельную галерею, чем понять что ты хочешь от этой...
|
(Offline)
|
|
05.05.2010, 21:08
|
#72
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: фотки
привет скоро сделаю тебе надо типо нажимаешь вверх то картинка предыдущая вниз то картинка следующая я так понял??
|
(Offline)
|
|
05.05.2010, 22:37
|
#73
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: фотки
ява-мания накрылась и у меня двиг журнальный остался.
при условиях что никак не будешь распрастранять - могу дать. там в статьях реализована поддержка картинок, можно сделать фотоальбом))
|
(Offline)
|
|
05.05.2010, 22:45
|
#74
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: фотки
дай мне))
|
(Offline)
|
|
05.05.2010, 22:51
|
#75
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
im_zorg
ты все правильно понял
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 07:36.
|