1个画图的源码

delphi

 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 .

 

转载于:https://www.cnblogs.com/heimei/archive/2009/12/09/1620717.html