|
Основной форум Сюда все проблемы связанные с программированием. |
12.04.2010, 22:48
|
#1
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
фотки
подскажите почему я не могу вставить мои фотки с расширением 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.
|
(Offline)
|
|
12.04.2010, 23:32
|
#2
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
до перла как вставить фото
а как сделать так чтоб двигалась фото
Program graph;
var img: image;
Begin
img:=LoadImage('/image.png');
DrawImage(img,0,0);
Repaint;
Delay(5000);
End.
|
(Offline)
|
|
12.04.2010, 23:55
|
#3
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: фотки
ну тип так как-то
for i:=0 to getwidth do begin drawimage(img,i,0); repaint; delay(10); end;
|
(Offline)
|
|
13.04.2010, 01:12
|
#4
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Ответ: фотки
до перла как вставить фото
|
Ты девушка ??
|
(Offline)
|
|
13.04.2010, 07:15
|
#5
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
че то я не поняла ничего
что добавить сюда чтоб фото двигалось вверх и ввниз
СПАСИБО
Program graph;
var img: image;
Begin
img:=LoadImage('/image.png');
DrawImage(img,0,0);
Repaint;
Delay(5000);
End.
|
(Offline)
|
|
13.04.2010, 07:36
|
#6
|
Дэвелопер
Регистрация: 04.11.2009
Адрес: Украина, Днепропетровск
Сообщений: 1,480
Написано 662 полезных сообщений (для 1,985 пользователей)
|
Ответ: фотки
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.
|
(Offline)
|
|
13.04.2010, 07:43
|
#7
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
ОШИБКУ ВЫДАЕТ НЕ КОМПИЛИРУЕТ
|
(Offline)
|
|
13.04.2010, 08:00
|
#8
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: фотки
Изображение всетаки должно само вверх-вниз ползать, или его кнопками перемещать нужно?
|
(Offline)
|
|
13.04.2010, 08:09
|
#9
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
кнопками перемещать
|
(Offline)
|
|
13.04.2010, 09:35
|
#10
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: фотки
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' в ресурсах.
|
(Offline)
|
|
13.04.2010, 09:55
|
#11
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
все хорошо получилось спасибо но картинка переходит вниз и вверх а самой кнопки нет ну типо чтоб было видно что вверх или вниз и картинка почему то растягиваеться при движение типо расплываеться спасибо
|
(Offline)
|
|
13.04.2010, 10:37
|
#12
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: фотки
начало я не понял, а по поводу того что размазывается - все просто.
перед отрисовкой картики (между repeat и drawimage) вставь:
fillrect(0,0,getwidth,getheight);
|
(Offline)
|
|
13.04.2010, 10:51
|
#13
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
cherepets спасибо теперь не расплываеться
ну чтобы внизу мобильника были видны кнопки где вниз где вверх и еще как сделать выход а то не выходит
спасибо
|
(Offline)
|
|
13.04.2010, 11:18
|
#14
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: фотки
ну, нарисуй в пейнте две стрелочки вверх и вниз
а выход:
if getkeypressed=-7 then halt;
перед until вставь
|
(Offline)
|
|
13.04.2010, 11:32
|
#15
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
спасибо
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 10:25.
|