1个画图的源码

最新推荐文章于 2018-11-01 17:09:32 发布

zz1001

最新推荐文章于 2018-11-01 17:09:32 发布

阅读量535

点赞数

文章标签： integer button forms windows class

本文链接：https://blog.csdn.net/zz1001/article/details/4667021

版权

本文介绍了一个使用Delphi编写的简易绘图应用程序。该程序通过改变画笔颜色和宽度来绘制线条，并实现了鼠标拖动实时绘制的功能。具体而言，用户可以通过点击不同的按钮选择画笔的颜色，并可通过编辑框调整画笔的宽度。

摘要由CSDN通过智能技术生成

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Buttons, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Label1: TLabel; Label2: TLabel; Edit1: TEdit; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; UpDown1: TUpDown; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } jyX,jyY:integer; blht:boolean; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.SpeedButton1Click(Sender: TObject); begin canvas.Pen.color:=clred; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin canvas.Pen.color:=clgreen; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin canvas.Pen.Color:=clblue; end; procedure TForm1.SpeedButton4Click(Sender: TObject); begin close; end; procedure TForm1.Edit1Change(Sender: TObject); begin canvas.Pen.Width:=strtoint(edit1.Text); end; procedure TForm1.FormCreate(Sender: TObject); begin blht:=false; speedbutton1.Down:=true; canvas.Pen.Color:=clred; end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin jyX:=x; jyY:=y; blht:=true; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if blht then begin canvas.MoveTo(jyX,jyY); canvas.LineTo(x,y); jyX:=x; jyY:=y; end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin blht:= not blht; end; end.