Разработка прикладных программ для ОС WINDOWS с помощью интегрированных сред Delphi / C++Builder. Баканов В.М. - 76 стр.

                                      - 76 -


 procedure BitBtn1Click(Sender: TObject);
 procedure BitBtn2Click(Sender: TObject);
 procedure BitBtn3Click(Sender: TObject);

private
 { Private declarations }
public
 { Public declarations }
end;

var
 Form_1: TForm_1;

implementation

{$R *.DFM}

procedure TForm_1. BitBtn1Click(Sender: TObject);
{ выбирает и загружает файл для просмотра }
begin
 if OpenDialog1.Execute then
   Image1. Picture.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm_1.BitBtn2Click(Sender: TObject);
{ включает и выключает режим масштабирования изображения }
begin
 Image1.Stretch := not Image1.Stretch;
end;

procedure TForm_1.BitBtn3CIick(Sender: TObject);
{ заканчивает работу }
begin
  Close;
end;

end.

   Рис.22 представляет копию окна приложения в режиме масштабирования
(изображение 'растянуто' согласно размерам окна вывода), на рис.23 то же
самое без масштабирования (виден только верхний левый угол изображения).
   Сторонний разработчик может сколь угодно усложнить данную програм-
му (чему имеется немало причин).