unit1.pas

这是个可以划出不同几何图形的程序

unit Unit1;
 {***************************************************************}
{		 HQJDraw  demo project						}
{              }
{                  }
{               }
{            }
{								}
{  E-Mail: [e-mail]				}
{                          04-2004	 by	Hu Qing Jiang		}
{								}
{***************************************************************}
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,UntHqjDraw,UntShape, StdCtrls, ExtCtrls, ColorGrd;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    RGroup: TRadioGroup;
    Panel5: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    CBPen: TColorBox;
    CBPenWidth: TComboBox;
    CBBrush: TColorBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CBBrushChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
      aa:THqjDraw;
      ShpStr:TShapeProperty;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
aa:=ThqjDraw.Create(self);
aa.Parent:=panel2;
aa.Align:=alClient;
 with ShpStr do
  begin
       FHeadPnt:=Point(10,10);
       FEndPnt:=Point(100,100);
       FLineWidth:=1;
       FLineColor:=clBlack;
       FColor:=clLime;
       FText:='';
       FDir:=sdUp;
       FFontSize:=10;
       FTransparent:=true;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
aa.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 case RGroup.ItemIndex of
  1:aa.AddOne(seSLine,ShpStr);
  2:aa.AddOne(seRectangle,ShpStr);
  3:aa.AddOne(seArrow,ShpStr);
  4:aa.AddOne(seCylinder,ShpStr);
  5:aa.AddOne(seDiamond,ShpStr);
  6:aa.AddOne(seEchelon,ShpStr);
  7:aa.AddOne(seEllipse,ShpStr);
  8:aa.AddOne(seTriangle,ShpStr);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
aa.DeleteCurrent;
end;

procedure TForm1.CBBrushChange(Sender: TObject);
begin
   ShpStr.FColor:=CBBrush.Selected;
   ShpStr.FLineColor:=CBPen.Selected;
   ShpStr.FLineWidth:=CBPenWidth.ItemIndex;
end;

end.