unit2.pas

本程序是图形的设计

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ToolWin, ComCtrls, ImgList, ExtDlgs;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    about1: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ImageList1: TImageList;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    ToolButton7: TToolButton;
    ColorDialog1: TColorDialog;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    procedure about1Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
{$R *.dfm}
uses unit1,unit3;

procedure TForm2.about1Click(Sender: TObject);
begin
with TAboutBox.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TForm2.ToolButton1Click(Sender: TObject);
begin
    form1.image1.Cursor:=crCross;
    form1.Label1.Caption:='直线（d\b\g）:';
    form1.edit1.Text:='';
    form1.edit1.SetFocus;
    unit1.com_sel:=2;
    toolbutton1.Down:=true;
    toolbutton2.Down:=false;
    toolbutton3.Down:=false;
    toolbutton4.Down:=false;
    toolbutton12.Down:=false;
    toolbutton13.Down:=false;
    toolbutton14.Down:=false;
end;

procedure TForm2.ToolButton2Click(Sender: TObject);
begin
    form1.image1.Cursor:=crCross;
    form1.label1.Caption:='请输入圆心横坐标：';
    form1.edit1.Text:='';
    form1.edit1.SetFocus;
    unit1.com_sel:=3;
    toolbutton1.Down:=false;
    toolbutton2.Down:=true;
    toolbutton3.Down:=false;
    toolbutton4.Down:=false;
    toolbutton12.Down:=false;
    toolbutton13.Down:=false;
    toolbutton14.Down:=false;
    form1.save_default();
end;

procedure TForm2.ToolButton3Click(Sender: TObject);
begin
    form1.image1.Cursor:=crCross;
    form1.Label1.Caption:='请输入椭圆中心横坐标：';
    form1.edit1.Text:='';
    form1.edit1.SetFocus;
    unit1.com_sel:=4;
    toolbutton1.Down:=false;
    toolbutton2.Down:=false;
    toolbutton3.Down:=true;
    toolbutton4.Down:=false;
    toolbutton12.Down:=false;
    toolbutton13.Down:=false;
    toolbutton14.Down:=false;
    form1.save_default();
end;

procedure TForm2.ToolButton4Click(Sender: TObject);
var bmp1:tbitmap;
begin
   bmp1:=tbitmap.Create;
   bmp1.Height:=form1.Image1.Height;
   bmp1.Width:=form1.Image1.Width;
   bmp1.Canvas.CopyRect(form1.image1.Canvas.ClipRect,form1.image1.Canvas,form1.image1.Canvas.ClipRect);
   form1.Image1.Canvas.CopyRect(form1.image1.Canvas.ClipRect,unit1.bmp1[unit1.rb].Canvas,form1.image1.Canvas.ClipRect);
   unit1.bmp1[unit1.rb+1].Width:=form1.Image1.Width;
   unit1.bmp1[unit1.rb+1].Height:=form1.Image1.Height;
   unit1.bmp1[unit1.rb+1].Canvas.CopyRect(bmp1.Canvas.ClipRect,bmp1.Canvas,bmp1.Canvas.ClipRect);
   bmp1.Free;
   form2.ToolButton11.Enabled:=true;
   unit1.rb:=unit1.rb-1;
   unit1.ud:=unit1.rb;
   if unit1.rb=0 then form2.ToolButton4.Enabled:=false;
end;

procedure TForm2.ToolButton6Click(Sender: TObject);
var bmp2:tbitmap;
    rect2:trect;
begin
   if savepicturedialog1.Execute then
   begin
    bmp2:=tbitmap.Create;
    bmp2.Width:=form1.Image1.Width;
    bmp2.Height:=form1.Image1.Height;
    rect2:=rect(0,0,form1.Image1.Width,form1.Image1.Height);
    bmp2.Canvas.CopyRect(rect2,form1.image1.Canvas,rect2);
    bmp2.SaveToFile(Savepicturedialog1.FileName);
    bmp2.free;
   end;
end;

procedure TForm2.ToolButton7Click(Sender: TObject);
var bitmap:tbitmap;
    rect1:trect;
begin
   if openpicturedialog1.Execute then
   begin
      bitmap:=tbitmap.Create;
      bitmap.Create;
      bitmap.LoadFromFile(openpicturedialog1.FileName);
      rect1:=rect(0,0,form1.Image1.Width,form1.Image1.Height);
      form1.Image1.Canvas.StretchDraw(rect1,bitmap);
      bitmap.Free;
   end;
end;

procedure TForm2.ToolButton8Click(Sender: TObject);
begin
   if colordialog1.Execute then
   begin
     cl:=colordialog1.Color;
   end;
end;

procedure TForm2.ToolButton9Click(Sender: TObject);
begin
form1.Image1.Picture := nil;
end;

procedure TForm2.ToolButton11Click(Sender: TObject);
begin
   form1.Image1.Canvas.CopyRect(form1.image1.Canvas.ClipRect,unit1.bmp1[unit1.ud+2].Canvas,form1.image1.Canvas.ClipRect);
   unit1.ud:=unit1.ud+1;
   unit1.rb:=unit1.ud;
   if unit1.rb=1 then form2.ToolButton4.Enabled:=true;
   if unit1.ud=unit1.st then form2.ToolButton11.Enabled:=false;
end;

procedure TForm2.ToolButton12Click(Sender: TObject);
begin
 form1.image1.Cursor:=crCross;
 form1.Label1.Caption:='请选择删除的图形';
 toolbutton12.Down:=true;
 toolbutton1.Down:=false;
 toolbutton2.Down:=false;
 toolbutton3.Down:=false;
 toolbutton4.Down:=false;
 toolbutton13.Down:=false;
 toolbutton14.Down:=false;
end;

procedure TForm2.ToolButton13Click(Sender: TObject);
begin
 form1.Label1.Caption:='请选择移动的图形';
 toolbutton13.Down:=true;
 toolbutton1.Down:=false;
 toolbutton2.Down:=false;
 toolbutton3.Down:=false;
 toolbutton4.Down:=false;
 toolbutton12.Down:=false;
 toolbutton14.Down:=false;
end;

procedure TForm2.ToolButton14Click(Sender: TObject);
begin
 form1.Label1.Caption:='请选择旋转的支点';
 toolbutton14.Down:=true;
 toolbutton1.Down:=false;
 toolbutton2.Down:=false;
 toolbutton3.Down:=false;
 toolbutton4.Down:=false;
 toolbutton12.Down:=false;
 toolbutton13.Down:=false;
end;

end.