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

     OrlovImage.Center:=SpbtnCenter.Down;
     end;

     procedure TOrlovGraphicForm.SpbtnLoadClick(Sender: TObject);
     begin
     If opndlgLoad.Execute
     then OrlovImage.Picture.LoadFromFile(opndlgLoad.FileName);
     end;

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




     unit OrlovTableUnit; //—9. Модуль для работы с таблицами:

     interface

     uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, OrlovSellerUnit, OrlovBuyersUnit, OrlovProductsAUnit,
      OrlovProductsUnit, OrlovAuctionsUnit;

     type
      TOrlovTableForm = class(TForm)
       OrlovProductsButton: TButton;
       OrlovAuctionsButton: TButton;
       OrlovProductsAButton: TButton;
       OrlovSellerButton: TButton;
       OrlovBuyersButton: TButton;
       procedure OrlovSellerButtonClick(Sender: TObject);
       procedure OrlovProductsButtonClick(Sender: TObject);
       procedure OrlovAuctionsButtonClick(Sender: TObject);
       procedure OrlovBuyersButtonClick(Sender: TObject);
       procedure OrlovProductsAButtonClick(Sender: TObject);
      private
       { Private declarations }
      public
       { Public declarations }
      end;

     var
      OrlovTableForm: TOrlovTableForm;

     implementation
84