unit MAIN;

interface

uses Windows, Classes, Graphics, Forms, Controls, Menus,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
  ActnList, ToolWin, jpeg, SysUtils, LIB ;

type
  TSDIAppForm = class(TForm)
    SecondForm : TForm1;
    ImageLayout: TImage;
    ImageLib: TImage;
    ImageZoom: TImage;
    ImageSet: TImage;
    ImageHigh: TImage;
    ImageNote: TImage;
    ImageFirst: TImage;
    ImagePrev: TImage;
    ImageNext: TImage;
    ImageLast: TImage;
    ImageView: TImage;
    procedure ImageSetMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ImageSetClick(Sender: TObject);
    procedure ImageZoomMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ImageLibMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SDIAppForm: TSDIAppForm;

implementation

uses about;

{$R *.dfm}

//===========================CHECK CIRCLE=====================================
function checkCircleClick(X,Y: Integer): Boolean;
var
  midx: Integer;
  midy: Integer;
  r: Integer;
begin
  midx:=28;
  midy:=29;
  r:=24;
  if Sqr(midx-X)+Sqr(midy-Y)<=Sqr(r) then
    Result :=  True
  else
    Result := False;
end;
//===================================LIBLARY==================================
procedure TSDIAppForm.ImageLibMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if checkCircleClick(X,Y) then
    SecondForm := TForm1.Create(Application);
    SecondForm.Show;
  end
end;

//===================================ZOOM=====================================
procedure TSDIAppForm.ImageZoomMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if checkCircleClick(X,Y) then
    ShowMessage('Wow');
end;

//==================================SETTINGS==================================
procedure TSDIAppForm.ImageSetMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if checkCircleClick(X,Y) then
    ShowMessage('Wow');
end;

end.