Алгоритм Грэхема / Source / MAIN

unit MAIN;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
ActnList, ToolWin, ImgList, CHILDWIN, about;


type PMDIChild=^TMDIChild;
TMainForm = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
FileNewItem: TMenuItem;
FileOpenItem: TMenuItem;
FileCloseItem: TMenuItem;
Window1: TMenuItem;
Help1: TMenuItem;
N1: TMenuItem;
FileExitItem: TMenuItem;
WindowCascadeItem: TMenuItem;
WindowTileItem: TMenuItem;
HelpAboutItem: TMenuItem;
OpenDialog: TOpenDialog;
FileSaveAsItem: TMenuItem;
WindowMinimizeItem: TMenuItem;
StatusBar: TStatusBar;
ActionList1: TActionList;
EditCut1: TEditCut;
EditCopy1: TEditCopy;
EditPaste1: TEditPaste;
FileNew1: TAction;
FileSave1: TAction;
FileExit1: TAction;
FileOpen1: TAction;
FileSaveAs1: TAction;
WindowCascade1: TWindowCascade;
WindowTileHorizontal1: TWindowTileHorizontal;
WindowArrangeAll1: TWindowArrange;
WindowMinimizeAll1: TWindowMinimizeAll;
HelpAbout1: TAction;
FileClose1: TWindowClose;
WindowTileVertical1: TWindowTileVertical;
WindowTileItem2: TMenuItem;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton3: TToolButton;
ToolButton9: TToolButton;
ToolButton8: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ImageList1: TImageList;
ToolBar1: TToolBar;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
ImageList2: TImageList;
ToolButton15: TToolButton;
ToolButton16: TToolButton;
ToolButton17: TToolButton;
SaveDialog1: TSaveDialog;
Button1: TButton;
ToolButton18: TToolButton;
SaveBitmap1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
ToolButton2: TToolButton;
procedure FileNew1Execute(Sender: TObject);
procedure FileOpen1Execute(Sender: TObject);
procedure HelpAbout1Execute(Sender: TObject);
procedure FileExit1Execute(Sender: TObject);
procedure ToolButton16Click(Sender: TObject);
procedure ToolButton17Click(Sender: TObject);
procedure ToolButton13Click(Sender: TObject);
procedure FileSaveAs1Execute(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FileSaveItemClick(Sender: TObject);
procedure SaveBitmap1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
noname_num: Integer;
procedure CreateMDIChild(const Name: string);
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

uses RandomForm;


{$R *.dfm}

procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
Child := TMDIChild.Create(Application);
Child.Caption := Name;
Child.SetAlgorithm(1);
if FileExists(Name) then Child.LoadFromFile(Name);
end;

procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
if(MDIChildCount = 0) then noname_num := 0;
CreateMDIChild('NONAME' + IntToStr(noname_num));
inc(noname_num);
end;

procedure TMainForm.FileOpen1Execute(Sender: TObject);
begin
if OpenDialog.Execute then
CreateMDIChild(OpenDialog.FileName);
end;

procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
AboutBox.ShowModal;
end;

procedure TMainForm.FileExit1Execute(Sender: TObject);
begin
Close;
end;

procedure TMainForm.ToolButton16Click(Sender: TObject);
var
i: integer;
begin
if (ActiveMDIChild <> nil) then
begin
(ActiveMDIChild as TMDIChild).Zoom(1.2);
(ActiveMDIChild as TMDIChild).ReDraw(Sender);
end;
end;

procedure TMainForm.ToolButton17Click(Sender: TObject);
var
i: integer;
begin
if (ActiveMDIChild <> nil) then
begin
(ActiveMDIChild as TMDIChild).Zoom(0.83333333333);
(ActiveMDIChild as TMDIChild).ReDraw(Sender);
end;
end;

procedure TMainForm.ToolButton13Click(Sender: TObject);
var i: integer;
begin
if (ActiveMDIChild <> nil) then
begin
(ActiveMDIChild as TMDIChild).Graham(Sender);
(ActiveMDIChild as TMDIChild).FormPaint(Sender);
end;
end;

procedure TMainForm.FileSaveAs1Execute(Sender: TObject);
var i: integer;
begin
if (ActiveMDIChild <> nil) then
begin
if SaveDialog1.Execute then
(ActiveMDIChild as TMDIChild).SaveToFile(SaveDialog1.FileName);
end;
end;

procedure TMainForm.ToolButton14Click(Sender: TObject);
var i: integer;
an: boolean;
begin
if (ActiveMDIChild <> nil) then
begin
an := (ActiveMDIChild as TMDIChild).StillGraham(Sender);
if( an ) then
an := (ActiveMDIChild as TMDIChild).StillGraham(Sender);
end;
end;


procedure TMainForm.Button1Click(Sender: TObject);
var i:integer;
begin
{
RandForm.ShowModal;
if ((RandForm.ModalResult=1) and (RandForm.EditNumRND.Text<>'')) then
begin
if (ActiveMDIChild <> nil) then
begin
(ActiveMDIChild as TMDIChild).RandomVertex(StrToInt(RandForm.EditNumRND.Text),
StrToInt(RandForm.EditXLeft.Text),
StrToInt(RandForm.EditYLeft.Text),
StrToInt(RandForm.EditXRight.Text),
StrToInt(RandForm.EditYRight.Text));
(ActiveMDIChild as TMDIChild).FormPaint(Sender);
end;
end;
}
ShowMessage('Для генерации случайных точек - выберете область генерации правой клавишей мыши');
end;

procedure TMainForm.FileSaveItemClick(Sender: TObject);
var i: integer;
begin
if (ActiveMDIChild <> nil) then
begin
if SaveDialog1.Execute then
(ActiveMDIChild as TMDIChild).SaveToFile(SaveDialog1.FileName);
end;
end;

procedure TMainForm.SaveBitmap1Click(Sender: TObject);
var i: integer;
str:string;
begin
if (ActiveMDIChild <> nil) then
begin
if SaveDialog1.Execute then
begin
str:=SaveDialog1.FileName;
str:=ChangeFileExt(str,'.bmp');
(ActiveMDIChild as TMDIChild).SaveToBMPFile(str);
end;
end;
end;

procedure TMainForm.ToolButton2Click(Sender: TObject);
var i: integer;
begin
if (ActiveMDIChild <> nil) then
begin
(ActiveMDIChild as TMDIChild).ClearCover;
(ActiveMDIChild as TMDIChild).FormPaint(Sender);
end;
end;

procedure TMainForm.N3Click(Sender: TObject);
var i:integer;
begin
if (ActiveMDIChild <> nil) then
begin
(ActiveMDIChild as TMDIChild).SetAlgorithm(1);
end;
end;

procedure TMainForm.N4Click(Sender: TObject);
var i:integer;
begin
if (ActiveMDIChild <> nil) then
begin
(ActiveMDIChild as TMDIChild).SetAlgorithm(2);
end;
end;

end.