unit1.~pas

本程序是用汇编语言设计的自由绘画程序,简单易懂

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    ColorBox1: TColorBox;
    Label1: TLabel;
    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);
    procedure FormCreate(Sender: TObject);
    procedure ColorBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
 //   var
       StartX,StartY,end_flag:integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    end_flag:=0;
    StartX:=X;
    StartY:=Y;
    Canvas.MoveTo(X,Y);        
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     If end_flag=0 then
       Canvas.LineTo(X,Y);
     StatusBar1.SimpleText:='鼠标当前位置：X='+IntToStr(X)+', Y='+IntToStr(Y);

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    end_flag:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    end_flag:=1;
end;

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
     Canvas.Pen.Color:= ColorBox1.Selected;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i:integer;
   old_color:TColor;
begin
    Label1.Enabled:=False;
    old_color:=Canvas.Pen.Color;

    for i:=0 to Form1.Height do
    begin
       Canvas.Pen.Color:=Form1.Color;
       Canvas.MoveTo(0,i);
       Canvas.LineTo(Form1.Width,i);
    end;

    Canvas.Pen.Color:=old_color;
    Label1.Enabled:=True;
end;

end.