1个画图的源码

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7   Dialogs, ComCtrls, Buttons, StdCtrls, ExtCtrls;
 8 
 9 type
10   TForm1 = class(TForm)
11     Panel1: TPanel;
12     Label1: TLabel;
13     Label2: TLabel;
14     Edit1: TEdit;
15     SpeedButton1: TSpeedButton;
16     SpeedButton2: TSpeedButton;
17     SpeedButton3: TSpeedButton;
18     SpeedButton4: TSpeedButton;
19     UpDown1: TUpDown;
20     procedure SpeedButton1Click(Sender: TObject);
21     procedure SpeedButton2Click(Sender: TObject);
22     procedure SpeedButton3Click(Sender: TObject);
23     procedure SpeedButton4Click(Sender: TObject);
24     procedure Edit1Change(Sender: TObject);
25     procedure FormCreate(Sender: TObject);
26     procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
27       Shift: TShiftState; X, Y: Integer);
28     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
29       Y: Integer);
30     procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
31       Shift: TShiftState; X, Y: Integer);
32   private
33     { Private declarations }
34   jyX,jyY:integer;
35   blht:boolean;
36   public
37     { Public declarations }
38   end;
39 
40 var
41   Form1: TForm1;
42 
43 implementation
44 
45 {$R *.dfm}
46 procedure TForm1.SpeedButton1Click(Sender: TObject);
47 begin
48 canvas.Pen.color:=clred;
49 end;
50 procedure TForm1.SpeedButton2Click(Sender: TObject);
51 begin
52 canvas.Pen.color:=clgreen;
53 end;
54 procedure TForm1.SpeedButton3Click(Sender: TObject);
55 begin
56 canvas.Pen.Color:=clblue;
57 end;
58 procedure TForm1.SpeedButton4Click(Sender: TObject);
59 begin
60 close;
61 end;
62 procedure TForm1.Edit1Change(Sender: TObject);
63 begin
64 canvas.Pen.Width:=strtoint(edit1.Text);
65 end;
66 procedure TForm1.FormCreate(Sender: TObject);
67 begin
68  blht:=false;
69  speedbutton1.Down:=true;
70  canvas.Pen.Color:=clred;
71 end;
72 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
73   Shift: TShiftState; X, Y: Integer);
74 begin
75 jyX:=x;
76 jyY:=y;
77 blht:=true;
78 end;
79 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
80   Y: Integer);
81 begin
82 if blht then
83 begin
84 canvas.MoveTo(jyX,jyY);
85 canvas.LineTo(x,y);
86 jyX:=x;
87 jyY:=y;
88 end;
89 end;
90 procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
91   Shift: TShiftState; X, Y: Integer);
92 begin
93 blht:= not blht;
94 end;
95 end.