forum.boolean.name - фотки

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)

подскажите почему я не могу вставить мои фотки с расширением 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.

Ответ: фотки

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

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

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

Ответ: фотки

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

PHP код:




for i:=0 to getwidth do begin 
drawimage(img,i,0); 
repaint; delay(10); end;

Ответ: фотки

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

СПАСИБО

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

Ответ: фотки

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.

Ответ: фотки

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

Ответ: фотки

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

Ответ: фотки

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

Ответ: фотки

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' в ресурсах.

Ответ: фотки

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

Ответ: фотки

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

PHP код:




fillrect(0,0,getwidth,getheight);

Ответ: фотки

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

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

Ответ: фотки

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

PHP код:




if getkeypressed=-7 then halt;

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

Ответ: фотки