Высокоуровневые методы информатики и программирования. Сивохин А.В - 106 стр.

     Initialization
     end.//—7. Конец модуля для работы с файлами.




     unit OrlovGraphicUnit;//—8. Модуль для работы с графикой:

     interface

     uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, Buttons;

     type
      TOrlovGraphicForm = class(TForm)
       Panel1: TPanel;
       SpbtnLoad: TSpeedButton;
       SpbtnStretch: TSpeedButton;
       SpbtnCenter: TSpeedButton;
       Panel2: TPanel;
       OrlovImage: TImage;
       OpndlgLoad: TOpenDialog;
       procedure SpbtnStretchClick(Sender: TObject);
       procedure SpbtnCenterClick(Sender: TObject);
       procedure SpbtnLoadClick(Sender: TObject);
      private
       { Private declarations }
      public
       { Public declarations }
      end;

     var
      OrlovGraphicForm: TOrlovGraphicForm;

     implementation

     {$R *.dfm}

     procedure TOrlovGraphicForm.SpbtnStretchClick(Sender: TObject);
     begin
     OrlovImage.Stretch:=SpbtnStretch.Down;
     end;

     procedure TOrlovGraphicForm.SpbtnCenterClick(Sender: TObject);
     begin
83