unit1.pas

delphi开发矢量图的源代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, UnitPaintPanel,UnitRock,ToolWin, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    PX1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    SaveDialog1: TSaveDialog;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    OpenDialog1: TOpenDialog;
    ColorDialog1: TColorDialog;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    PaintPanel: TPaintPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    procedure PX1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PX1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    if SaveDialog1.FileName <> '' then
       PaintPanel.SaveToFile(SaveDialog1.FileName);
  end;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    if SaveDialog1.FileName <> '' then
       PaintPanel.SaveToBitmap(SaveDialog1.FileName);
  end;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    if OpenDialog1.FileName <> '' then
       PaintPanel.LoadFromFile(OpenDialog1.FileName);
  end;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  PaintPanel.IsFill := True;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  PaintPanel.GraphClass := gcLine;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
  PaintPanel.GraphClass := gcRect;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
  PaintPanel.GraphClass := gcArc;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    PaintPanel.Color := ColorDialog1.Color ;
  end;
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    PaintPanel.FillColor := ColorDialog1.Color ;
  end;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
  PaintPanel.DrawClass := dcNotice;
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
  PaintPanel.DrawClass := dcGraph;
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
  PaintPanel.Clear;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
       0 :PaintPanel.NoticeClass := ncRect;
       1 :PaintPanel.NoticeClass := ncNotice;
  end;
end;

end.