Информатика. Программирование в Delphi
198
ms[ms_count-1]:=Path+searhrec.Name;
r:=FindNext(searhrec);
end;
FindClose(searhrec);
end;
if ms_count<>0 then
begin
curr:=0;
Form1.Button1.Enabled:=true;
Form1.Button2.Enabled:=true;
Form1.Image1.Picture.LoadFromFile(ms[curr]);
Form1.Caption:='Просмотр иллюстраций'+#32+
'"'+ExtractFileName(ms[curr]) +'"';
end
else
begin
Form1.Button1.Enabled:=false;
Form1.Button2.Enabled:=false;
Form1.Image1.Picture:=nil;
ms_count:=0;
SetLength(ms,ms_count);
Form1.Caption:='Просмотр иллюстраций';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
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(Edit1.Text);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
dec(curr);
if curr=-1 then
curr:=ms_count-1;
Form1.Image1.Picture.LoadFromFile(ms[curr]);
I...,188,189,190,191,192,193,194,195,196,197 199,200,201,202,203,204,205,206,207,208,...370