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

UptoLike

Составители: 

- 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 то же
самое без масштабирования (виден только верхний левый угол изображения).
Сторонний разработчик может сколь угодно усложнить данную програм-
му (чему имеется немало причин).
                                      - 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 то же
самое без масштабирования (виден только верхний левый угол изображения).
   Сторонний разработчик может сколь угодно усложнить данную програм-
му (чему имеется немало причин).