maindraw.pas

在Delphi中

begin
num:=13;pb.Canvas.Pen.Width:=1;myr(num);
n10.Click;
end;

procedure TZQDraw.FormCreate(Sender: TObject);
var
i:integer;
begin
 s2.Hint:='画椭圆：左上角拖到右下角'+#10+'画圆：左上角单击不松左键，按Shift,拖到右下角';
 for i:=1 to 4 do
   begin
     arc[i].X:=0;
     arc[i].Y:=0;
   end;
s[1]:=s1;
s[2]:=s2;
s[3]:=s3;
s[4]:=s4;
s[5]:=s5;
s[6]:=s6;
s[7]:=s7;
s[8]:=s8;
s[9]:=s9;
s[10]:=s10;
s[11]:=s11;
s[12]:=s12;
s[13]:=s13;
s[14]:=s14;
s[15]:=s15;
s[16]:=s16;
c17.Color:=rgb(0,220,255);
c19.Color:=rgb(100,200,255);
c20.Color:=rgb(100,200,200);
c21.Color:=rgb(100,200,155);
c22.Color:=rgb(100,200,100);
c23.Color:=rgb(200,100,55);
c24.Color:=rgb(150,255,0);
c25.Color:=rgb(100,0,200);
c26.Color:=rgb(255,0,200);
c27.Color:=rgb(100,255,155);
c28.Color:=rgb(100,150,100);
c29.Color:=rgb(200,200,55);
c30.Color:=rgb(150,200,0);
end;

procedure TZQDraw.s15Click(Sender: TObject);
begin
num:=15;myr(num);
end;

procedure TZQDraw.s16Click(Sender: TObject);
begin
num:=16;myr(num);
end;

procedure TZQDraw.fcMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
pb.Canvas.Pen.Color:=fc.Color;
end;

procedure TZQDraw.bcMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
pb.Canvas.Pen.Color:=bc.Color;
end;

procedure TZQDraw.c1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c1.Color
  else
     bc.Color:=c1.Color;
end;

procedure c20MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
begin

end;

procedure TZQDraw.c21MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c21.Color
  else
     bc.Color:=c21.Color;
end;

procedure TZQDraw.c22MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c22.Color
  else
     bc.Color:=c22.Color;
end;

procedure TZQDraw.c23MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c23.Color
  else
     bc.Color:=c23.Color;
end;

procedure TZQDraw.c24MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c24.Color
  else
     bc.Color:=c24.Color;
end;

procedure TZQDraw.c25MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c25.Color
  else
     bc.Color:=c25.Color;
end;

procedure TZQDraw.c26MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c26.Color
  else
     bc.Color:=c26.Color;
end;

procedure TZQDraw.c27MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c27.Color
  else
     bc.Color:=c27.Color;
end;

procedure TZQDraw.c28MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c28.Color
  else
     bc.Color:=c28.Color;
end;

procedure TZQDraw.c29MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c29.Color
  else
     bc.Color:=c29.Color;
end;

procedure TZQDraw.c30MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c30.Color
  else
     bc.Color:=c30.Color;
end;

procedure TZQDraw.c2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if shift=[ssleft] then
     fc.Color:=c2.Color
  else
     bc.Color:=c2.Color;
end;

procedure TZQDraw.c3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if shift=[ssleft] then
     fc.Color:=c3.Color
  else
     bc.Color:=c3.Color;
end;

procedure TZQDraw.c4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c4.Color
  else
     bc.Color:=c4.Color;
end;

procedure TZQDraw.c5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c5.Color
  else
     bc.Color:=c5.Color;
end;

procedure TZQDraw.c6MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c6.Color
  else
     bc.Color:=c6.Color;
end;

procedure TZQDraw.c7MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c7.Color
  else
     bc.Color:=c7.Color;
end;

procedure TZQDraw.c8MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c8.Color
  else
     bc.Color:=c8.Color;
end;

procedure TZQDraw.c9MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c9.Color
  else
     bc.Color:=c9.Color;
end;

procedure TZQDraw.c10MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c10.Color
  else
     bc.Color:=c10.Color;
end;

procedure TZQDraw.c11MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c11.Color
  else
     bc.Color:=c11.Color;
end;

procedure TZQDraw.c12MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c12.Color
  else
     bc.Color:=c12.Color;
end;

procedure TZQDraw.c13MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c13.Color
  else
     bc.Color:=c13.Color;
end;

procedure TZQDraw.c14MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c14.Color
  else
     bc.Color:=c14.Color;
end;

procedure TZQDraw.c15MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c15.Color
  else
     bc.Color:=c15.Color;
end;

procedure TZQDraw.c16MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c16.Color
  else
     bc.Color:=c16.Color;
end;

procedure TZQDraw.c17MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c17.Color
  else
     bc.Color:=c17.Color;
end;

procedure TZQDraw.c18MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c18.Color
  else
     bc.Color:=c18.Color;
end;

procedure TZQDraw.c19MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c19.Color
  else
     bc.Color:=c19.Color;
end;

procedure TZQDraw.c20MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=[ssleft] then
     fc.Color:=c20.Color
  else
     bc.Color:=c20.Color;
end;

procedure TZQDraw.pbMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if shift=[ssleft] then
    pb.Canvas.Pen.Color:=fc.Color
 else
    pb.Canvas.Pen.Color:=bc.Color;
 if num=9 then   pb.Canvas.Pen.Color:=clwhite;

   if ((num in [3,9,10]))and((shift=[ssleft])or(shift=[ssright])) then
    begin
      pb.Canvas.LineTo(p2.X,p2.y);
      p2.X:=x;
      p2.Y:=y;
    end;
 statusbar1.Panels[1].Text:='x:'+inttostr(x)+' y:'+inttostr(y);
end;

procedure TZQDraw.w1Click(Sender: TObject);
begin
pb.Canvas.Pen.Width:=w1.Height-2;

end;

procedure TZQDraw.w2Click(Sender: TObject);
begin
pb.Canvas.Pen.Width:=w2.Height-2;

end;

procedure TZQDraw.w3Click(Sender: TObject);
begin
pb.Canvas.Pen.Width:=w3.Height-2;

end;

procedure TZQDraw.w4Click(Sender: TObject);
begin
pb.Canvas.Pen.Width:=w4.Height-2;
end;

procedure TZQDraw.w5Click(Sender: TObject);
begin
pb.Canvas.Pen.Width:=w5.Height-2;
end;

procedure TZQDraw.w7Click(Sender: TObject);
begin
  pb.Canvas.Pen.Width:=w7.Height-2;
end;

procedure TZQDraw.w6Click(Sender: TObject);
begin
  pb.Canvas.Pen.Width:=w6.Height-2;
end;

procedure TZQDraw.N9Click(Sender: TObject);
begin
  if bfill then
    begin
      pb.Canvas.Brush.Style:=bssolid;
      bfill:=not bfill;
      n9.Caption:='有填充色';
      n9.Checked:=true;
    end
  else
    begin
      pb.Canvas.Brush.Style:=bsclear;
      bfill:=not bfill;
      n9.Caption:='无填充色';
      n9.Checked:=false;
    end; 
  statusbar1.Panels[2].Text:=n9.Caption;
end;

procedure TZQDraw.N10Click(Sender: TObject);
begin
  if colordialog1.Execute then
  pb.Canvas.Brush.Color:=colordialog1.Color;
end;

procedure TZQDraw.FormActivate(Sender: TObject);
begin
s3Click(self);
setlength(pp,3);
pp[0].X:=0;pp[0].Y:=0;
pp[1].X:=1;pp[1].Y:=0;
pp[2].X:=0;pp[2].Y:=1;
n9.Click;
end;

procedure TZQDraw.N11Click(Sender: TObject);
begin
  if opp.Execute then
    pb.Picture.LoadFromFile(opp.FileName);
  pb.Width:=pb.Picture.Width;
  pb.Height:=pb.Picture.Height;
  pb.Left:=0;
  pb.Top:=0;
  if www.Width>=pb.Picture.Width then
    zt.Width:=pb.Picture.Width
  else
    zt.Width:=www.Width;
  if www.Height>=pb.Picture.Height then
    zt.Height:=pb.Picture.Height
  else
    zt.Height:=www.Height;
  zt.Left:=0;
  zt.Top:=0;

end;

procedure TZQDraw.N3Click(Sender: TObject);
begin
if savp.Execute then
  pb.Picture.SaveToFile(savp.FileName+'.bmp');
end;

procedure TZQDraw.s14Click(Sender: TObject);
begin
num:=14;pb.Canvas.Pen.Width:=1;
  myr(num);

end;

procedure TZQDraw.N2Click(Sender: TObject);
begin
pb.Canvas.FloodFill(110,110,clred,fsBorder);
end;

end.