фотки

[www12]

нихочу я рисовать в паинте стрелочки

как сделать чтобы картинка опускалось вниз

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

что написать

ну подскажите блондинке а то уже голова болит все читать в гугле да и толком там ни че нет

т.е в левом углу

[Reks888]

Как в гугле ничего нет?
Посмотрел - действительно пустовато.
Народ скиньте девушке ссылку на русский базовый туториал по MidletPascal

[www12]

русский help вы про это говорите у меня он есть тож не че не понятно

напишите кому не трудно

[Reks888]

Если ничего не понятно в хелпе - учи школьные учебники по Turbo Pascal, после чего поймешь. Иначе - забудь о программировании. Без труда не выловишь и рыбку из пруда. Ещё можно заплатить кому-то денег и он сделает за тебя. Ну просто не дело когда спрашиваешь элементарные вещи которые можно объяснить даже без знания языка.

[www12]

спасибо за совет поступлю так

а мидлет паскаль и Turbo Pascal это одно и тоже

тоже новерное элементарный вопрос я наверное дура

[Reks888]

а мидлет паскаль и Turbo Pascal это одно и тоже

Это не одно и то же, это Паскаль). Как Русский и Украинский языки. Оба словянские - говоришь на русском, значит можешь и на украинском и наоборот. В то же время у обоих этих языков есть свои особенности без которых сильно и не поговоришь. С Turbo и Midlet Паскалями та же ситуация.

[www12]

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


p.s я русская но украинский язык я не знаю вообще

[cherepets]

www12, он о том что на украине и так бы тебя поняли.
http://mobilepascal.ru/ раздел статьи

[www12]

помогите сделать кнопку вниз



program Map;
const step = 8;
var
x,y,key,i,j,hi,wi:integer;
imm : image;
begin
y:=0; x:=0;
imm:=loadImage('/map.jpg');
i:=GetImageHeight(imm);
j:=getImageWidth(imm);
wi:=GetWidth;
hi:=GetHeight;
repeat
key:=KeyToAction(GetKeyPressed); Delay(30);
if (key = GA_DOWN) and (y-step>=hi-i) then y:=y-step;
if (key = GA_UP) and (y+step<=0) then y:=y+step;
if (key = GA_RIGHT) and (x-step>=wi-j) then x:=x-step;
if (key = GA_LEFT) and (x+step<=0) then x:=x+step;
DrawImage(imm, x, y);
repaint; delay(20);
until false;
end.

[www12]

а не жостикам

[odd]

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

а не жостикам

Можно джойстиком, можно цифровыми кнопками:

Program Map;
const step = 8;
var
x, y, key, key2, i, j, hi, wi: integer;
imm : image;
rep: boolean;
begin
y:=0; x:=0;
imm:=loadImage('/icon.png');
i:=GetImageHeight(imm);
j:=getImageWidth(imm);
wi:=GetWidth;
hi:=GetHeight;
rep:=true;

repeat

key2:=GetKeyPressed;
key:=KeyToAction(key2); Delay(20);
if (key2 = 50) then key:=GA_UP;
if (key2 = 52) then key:=GA_LEFT;
if (key2 = 54) then key:=GA_RIGHT;
if (key2 = 56) then key:=GA_DOWN;
if (key = GA_DOWN) and (y < hi - step - i) then begin y:=y+step; rep:=true; end;
if (key = GA_UP) and (y > 0) then begin y:=y-step; rep:=true; end;
if (key = GA_RIGHT) and (x < wi - step - j) then begin x:=x+step; rep:=true; end;
if (key = GA_LEFT) and (x > 0) then begin x:=x-step; rep:=true; end;

if (rep) then
begin
    SetColor(255, 255, 255);
    FillRect(0, 0, wi, hi);
    DrawImage(imm, x, y);
    repaint; rep:=false;
end;

until false;
end. 


[www12]

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



I it is necessary was an arrow downwards and picture moved and was written adown that downwards

[ViNT]

Что-то совсем непонятно...
Может имеется ввиду рисование кнопок на сенсорном экране и перемещение при их нажатии?

[www12]

vint




вот как мне надо

[odd]

Пора открывать раздел форума "Чего хочет женщина" и там гадать чего же ей действительно надо. Жаль, что штатных телепатов тут нет.