Стр. 194 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
194
SetLength(ms,ms_count);
//заголовок формы
Form1.Caption:='Просмотр иллюстраций';
end;
end;
8. Создадим процедуру FormCreate для обработки события OnCreate
формы. Оформим процедуру следующим образом.
//процедура выполняется при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим директорию для поиска картинок
Edit1.Text:=’c:\Windows\’;
//заголовок формы
Form1.Caption:='Просмотр иллюстраций';
//стиль границ формы
Form1.BorderStyle:=bsSingle;
//доступные иконки
Form1.BorderIcons:=[biSystemMenu,biMinimize];
//автоматическое изменение компонента запрещено
Image1.AutoSize:=false;
//автоматическое масштабирование картинки разрешено
Image1.Proportional:=true;
//картинка в центре компонента
Image1.Center:=true;
//кнопки запрещены
Button1.Enabled:=false;
Button2.Enabled:=false;
//вызов процедуры GetPicturePath
GetPicturePath(Edit1.Text);
end;
9. Создадим процедуру Button1Click для обработки события OnClick
компонента Button1 – назад. Оформим ее следующим образом.
//процедура выполняется при нажатии на кнопку назад «<<»
procedure TForm1.Button1Click(Sender: TObject);
begin
dec(curr); //текущий элемент динамического массива
if curr=-1 then //если текущий элемент равен -1
//текущим элементом становится последний элемент массива
curr:=ms_count-1;
//загрузка картинки из файла