forum.boolean.name - фотки

Страница 1 из 2

Показывать 64 сообщений этой темы на одной странице

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)

www12

12.04.2010 22:48

фотки

подскажите почему я не могу вставить мои фотки с расширением jpg

или напишите че нить по легче н.р я нажимаю верх вниз и смотрю фотки

Const

counter=5; //число слайдов

format='.png'; //формат файлов слайдов

Var

img: Array[0..counter] Of Image;

s: Array[1..3] Of String;

r: Array[1..3] Of Integer;

i, j, k, m, index, nameField, time: Integer;

next, prev, clicked, exit,yes: Command;

Procedure Menu; //процедура вывода меню выбора режима показа слайдов

Var

OK: Command;

Begin

ShowMenu('Режим управления', CH_EXCLUSIVE);

For j:=1 To 3 Do r[j]:=MenuAppendString(s[j]);

OK := CreateCommand('OK', CM_OK, 2);

AddCommand(OK);

repeat

clicked := GetClickedCommand;

until clicked = OK;

RemoveCommand(OK);

end;

Procedure HandSetMode; // процедура ручного режима показа слайдов

Var

OK: Command;

Begin

ShowCanvas;

Repaint;

next := CreateCommand('вперед', CM_SCREEN, 1);

prev := CreateCommand('назад', CM_BACK, 1);

AddCommand(next);

AddCommand(prev);

i:=1;

Repeat

DrawImage(img[i], 0, 0);

Repaint;

Repeat

clicked := GetClickedCommand;

Until clicked<> EmptyCommand;

If clicked=prev Then

Begin

If i>1 Then i:=i-1;

End;

If clicked=next Then

Begin

If i<=counter Then i:=i+1;

End;

Until i>counter;

RemoveCommand(next);RemoveCommand(prev);

OK := CreateCommand('Конец', CM_OK, 2);

AddCommand(OK);

repeat

clicked := GetClickedCommand;

until clicked = OK;

RemoveCommand(OK);

end;

Procedure ChoiseTime; // процедура ввода временного интервала

Var

OK: Command;

str:string;

Begin

ShowForm;

nameField := FormAddTextField('Время смены слайдов в секундах', '2', 2, TF_NUMERIC);

OK := CreateCommand('OK', CM_OK, 2);

AddCommand(OK);

Repeat

clicked := GetClickedCommand;

Until clicked = OK;

str:=FormGetText(nameField);

time:=StringToInteger(str);

time:=time*1000;

RemoveCommand(OK);

FormRemove(nameField);

End;

Procedure Show; // процедура автоматического показа слайдов

Var

OK: Command;

Begin

ShowCanvas;

OK := CreateCommand('Стоп', CM_OK, 2);

AddCommand(OK);

Repeat

For j:=1 To counter Do

Begin

DrawImage(img[j], 0, 0);

Repaint;

Delay(time);

clicked := GetClickedCommand;

If clicked=OK Then Break;

End;

Until clicked=OK;

RemoveCommand(OK);

End;

Procedure RandomShow; // процедура перетасованного показа слайдов

Var

OK: Command;

Begin

Randomize;

ShowCanvas;

OK := CreateCommand('Стоп', CM_OK, 2);

AddCommand(OK);

Repeat

j:=Random(counter)+1;

DrawImage(img[j], 0, 0);

Repaint;

Delay(time);

clicked := GetClickedCommand;

If clicked=OK Then Break;

Until clicked=OK;

RemoveCommand(OK);

End;

Procedure Choise; //процедура выбора режима показа слайдов

Begin

If MenuGetSelectedIndex = r[1] Then

Begin

ChoiseTime;

Show;

End;

If MenuGetSelectedIndex = r[2] Then

Begin

ChoiseTime;

RandomShow;

End;

If MenuGetSelectedIndex = r[3] Then HandSetMode;

End;

BEGIN

ShowCanvas;

Repaint;

img[0]:=LoadImage('/welcome.png');

For m:=1 To counter Do

Begin

img[m]:=LoadImage('/s'+IntegerToString(m)+'.png');

End;

s[1]:='Автоматический';

s[2]:='Случайный';

s[3]:='Ручной';

DrawImage(img[0], 0, 0);

Repaint;

Delay(2000);

index:=0;

Repeat

Menu;

Choise;

ShowForm;

k := FormAddString('Просмотреть еще раз?');

yes := CreateCommand('Да', CM_OK, 1);

exit := CreateCommand('Выйти', CM_EXIT, 1);

AddCommand(yes);

AddCommand(exit);

Repeat

clicked := GetClickedCommand;

Until clicked <> EmptyCommand;

If clicked = exit Then index:=1;

ClearForm;

Until index=1;

k := FormAddString('На выход...');

Delay(2000);

END.

www12

12.04.2010 23:32

Ответ: фотки

до перла как вставить фото

а как сделать так чтоб двигалась фото

Program graph;
var img: image;
Begin
img:=LoadImage('/image.png');
DrawImage(img,0,0);
Repaint;
Delay(5000);
End.

cherepets

12.04.2010 23:55

Ответ: фотки

ну тип так как-то

PHP код:


		
			
for i:=0 to getwidth do begin

drawimage(img,i,0);

repaint; delay(10); end;

IGR	13.04.2010 01:12

Ответ: фотки

www12

13.04.2010 07:15

Ответ: фотки

че то я не поняла ничего
что добавить сюда чтоб фото двигалось вверх и ввниз

СПАСИБО

Program graph;
var img: image;
Begin
img:=LoadImage('/image.png');
DrawImage(img,0,0);
Repaint;
Delay(5000);
End.

Reks888

13.04.2010 07:36

Ответ: фотки

Program graph;
var img: image;
Begin
img:=LoadImage('/image.png');
for i:=0 to getwidth do begin
drawimage(img,i,0);
repaint; delay(10); end;
End.

Если надо чтобы вверх и вниз O_o. Не знаком сильно с мидлет паскалем так что тапками не кидайтесь если что не так.

Program graph;
var img: image;
Begin
Randomize;
img:=LoadImage('/image.png');
for i:=0 to getwidth do begin
i:=i-Random(2);
If i<0 Then i:=0;//чисто дебаг
drawimage(img,i,0);
repaint; delay(10); end;
End.

www12

13.04.2010 07:43

Ответ: фотки

ОШИБКУ ВЫДАЕТ НЕ КОМПИЛИРУЕТ

ViNT	13.04.2010 08:00

Ответ: фотки

Изображение всетаки должно само вверх-вниз ползать, или его кнопками перемещать нужно?

www12

13.04.2010 08:09

Ответ: фотки

кнопками перемещать

cherepets

13.04.2010 09:35

Ответ: фотки

PHP код:


		
			
Program graph; 

var img: image;

i,key:integer;

Begin 

img:=LoadImage('/image.png'); 

repeat

drawimage(img,0,i); 

repaint; delay(10);

key:=keytoaction(getkeypressed);

if key=GA_UP then i:=i-1;

if key=GA_DOWN then i:=i+1;

until false;

End.

Пишу сразу здесь, так что ошибки не исключены. И еще проверь наличие '/image.png' в ресурсах.

www12

13.04.2010 09:55

Ответ: фотки

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

cherepets

13.04.2010 10:37

Ответ: фотки

начало я не понял, а по поводу того что размазывается - все просто.
перед отрисовкой картики (между repeat и drawimage) вставь:

PHP код:


		
			
fillrect(0,0,getwidth,getheight);

www12

13.04.2010 10:51

Ответ: фотки

cherepets спасибо теперь не расплываеться

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

cherepets

13.04.2010 11:18

Ответ: фотки

ну, нарисуй в пейнте две стрелочки вверх и вниз :)
а выход:

PHP код:


		
			
if getkeypressed=-7 then halt;

перед until вставь

www12

13.04.2010 11:32

Ответ: фотки

спасибо

www12

13.04.2010 18:49

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

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

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

что написать

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

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

Reks888

13.04.2010 19:55

Ответ: фотки

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

www12

13.04.2010 20:44

Ответ: фотки

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

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

Reks888

13.04.2010 20:57

Ответ: фотки

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

www12

13.04.2010 21:33

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

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

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

Reks888

13.04.2010 23:09

Ответ: фотки

Цитата:

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

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

www12

14.04.2010 11:04

Ответ: фотки

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

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

cherepets

14.04.2010 11:41

Ответ: фотки

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

www12

14.04.2010 13:24

Ответ: фотки

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

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

14.04.2010 13:24

Ответ: фотки

а не жостикам

odd	14.04.2010 14:09

Ответ: фотки

Цитата:

Сообщение от www12 (Сообщение 144699)

а не жостикам

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

PHP код:


		
			
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

14.04.2010 14:36

Ответ: фотки

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

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

ViNT	14.04.2010 14:53

Ответ: фотки

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

www12

14.04.2010 15:11

Ответ: фотки

vint

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

odd	14.04.2010 19:01

Ответ: фотки

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

FireOwl

14.04.2010 19:29

Ответ: фотки

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

www12

14.04.2010 20:11

Ответ: фотки

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

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

FireOwl

14.04.2010 23:29

Ответ: фотки

www12

16.04.2010 13:36

Ответ: фотки

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

Код:

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

16.04.2010 14:11

Ответ: фотки

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

www12

16.04.2010 14:13

Ответ: фотки

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

www12

16.04.2010 14:18

Ответ: фотки

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

cherepets

16.04.2010 14:49

Ответ: фотки

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

PHP код:


		
			
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

16.04.2010 16:08

Ответ: фотки

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

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

DIMMON4IK

16.04.2010 19:23

Ответ: фотки

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

cherepets

16.04.2010 20:07

Ответ: фотки

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

www12

26.04.2010 12:22

Ответ: фотки

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

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

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

ViNT	26.04.2010 16:00

Ответ: фотки

Цитата:

Сообщение от www12 (Сообщение 145516)

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

www12

26.04.2010 16:55

Ответ: фотки

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

www12

26.04.2010 16:58

Ответ: фотки

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

cherepets

26.04.2010 18:17

Ответ: фотки

http://forum.boolean.name/showthread.php?t=3515

а вобще мне кажется ты пытаешься сказать, что у вас разные разрешения экрана

www12

26.04.2010 19:47

Ответ: фотки

ни че не поняла
а можно че нить до писать например сюда

Код:

var img: image; 

Begin 

img:=LoadImage('/image.png'); 



DrawImage(img,0,0); 

Repaint; 

Delay(5000); 

End.

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

www12

26.04.2010 19:49

Ответ: фотки

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

DIMMON4IK

26.04.2010 20:15

Ответ: фотки

var img,newimg: image; w,h:integer;
Begin
img:=LoadImage('/image.png');
w:=getwidth;h:=getheight;
if w<h then
newimg:=canvas.resize_image(img,w,trunc((getimageH eight(img)*w)/getimagewidth(img)));
if w>h then
newimg:=canvas.resize_image(img,trunc((getimageWid th(img)*h)/getimageheight(img)),h);
if w=h then img:=newimg;
DrawImage(newimg,0,0);
Repaint;
Delay(5000);
End.

www12

26.04.2010 20:38

Ответ: фотки

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

DIMMON4IK

26.04.2010 21:51

Ответ: фотки

uses canvas;
var img,newimg: image; w,h:integer;
Begin
img:=LoadImage('/image.png');
w:=getwidth;h:=getheight;
if w<h then
newimg:=canvas.resize_image(img,w,trunc((getimageH eight(img)*w)/getimagewidth(img)));
if w>h then
newimg:=canvas.resize_image(img,trunc((getimageWid th(img)*h)/getimageheight(img)),h);
if w=h then img:=newimg;
DrawImage(newimg,0,0);
Repaint;
Delay(5000);
End.

www12

26.04.2010 22:02

Ответ: фотки

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

DIMMON4IK

26.04.2010 22:44

Ответ: фотки

в "getimageH eight" и "getimageWid th" убери пробелы
А вообще такие ошибки нужно исправлять самой, а не ждать ответа на такую елементарщину

www12

27.04.2010 07:06

Ответ: фотки

все равно некомпилируется

cherepets

27.04.2010 11:22

Ответ: фотки

рискну предположить что из указанной мной темы ты не скачала библиотеку (Lib_im.class) и не положила в папочку MidletPascal\Libs.

сделай это и попробуй заново скомпилить код от DIMMON4IK

www12

27.04.2010 16:22

Ответ: фотки

скачала я библиотеку вот здесь http://mobilepascal.ru/load/53-1-0-52 только эта библиотека называется "' загрузки изображении по HTTP"

не понимаю зачем мне библиотека для "' загрузки изображении по HTTP"
вывод со всего сказанного все равно не компилируется
помогите кто может может че нить другое написать можно?

www12

27.04.2010 16:26

Ответ: фотки

библиотеку скачала и поместила в папку как сказал cherepets

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

im_zorg

27.04.2010 17:23

Ответ: фотки

Надо lib_canvas
uses canvas;
var img,newimg: image; w,h:integer;
Begin
img:=LoadImage('/image.png');
w:=getwidth;h:=getheight;
if w<h then
newimg:=canvas.resize_image(img,w,trunc((getimageH eight(img)*w)/getimagewidth(img)));
if w>h then
newimg:=canvas.resize_image(img,trunc((getimageWid th(img)*h)/getimageheight(img)),h);
if w=h then img:=newimg;
DrawImage(newimg,0,0);
Repaint;
Delay(5000);
End.
Скачай вот Здесь

www12

27.04.2010 18:10

Ответ: фотки

библиотеку Lib_canvas скопировала ее в папку Libs и все больше ее не как не надо устанавливать

а то при компиляции у меня МП виснит почему

как устанавливать библиотеку

www12

27.04.2010 19:44

Ответ: фотки

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

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

Ответ: фотки

PHP код:


		
			
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

Ответ: фотки

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

Часовой пояс GMT +4, время: 16:03.

Страница 1 из 2

Показывать 64 сообщений этой темы на одной странице