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