Канва. Графика

var
  mx,my:integer;
  p:boolean=false;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
 if p then Canvas.Rectangle(mx,my,x,y);
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mx:=x;
my:=y;
p:=true;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
p:=false;
end;

  public
    procedure makelayer;
    procedure drawon(sender: Tobject);
  end;
var
  Form1: TForm1;
  implementation
 
{$R *.dfm}
 
var layer, layer1: Tform;
img,img1: Timage;
bmp,bmp1: Tbitmap;
pencolor,pencolor1: Tcolor;
btn,btn1: Tbutton;
Transpcolor: Tcolor=4; //цвет, который мы видеть не будем
procedure makebmp(bmp:Tbitmap); // заполняем вспомогательный битмэп цветом, которого мы видеть не будем
var x,y: integer;
begin
for y:=1 to bmp.Height do begin
x:=1;
repeat
bmp.Canvas.Pixels[x,y]:=Transpcolor;
inc(x);
until x=bmp.Width;
end;
end;
 
procedure Tform1.makelayer;
 
begin
layer:=TForm.Create(nil);
layer.Parent:=nil;
layer.Show;
 
layer1:=TForm.Create(nil);
layer1.Parent:=nil;
layer1.Show;
 
bmp:=Tbitmap.Create;
img:=Timage.Create(layer);
img.Align:=alclient;
 
bmp1:=Tbitmap.Create;
img1:=Timage.Create(layer1);
img1.Align:=alclient;
 
bmp.Width:=img.Width;
bmp.Height:=img.Height;
 
bmp1.Width:=img1.Width;
bmp1.Height:=img1.Height;
 
makebmp(bmp1);
makebmp(bmp);
 
btn:=Tbutton.Create(nil);
btn.Parent:=layer;
btn.OnClick:=drawon;
 
btn1:=Tbutton.Create(nil);
btn1.Parent:=layer1;
btn1.OnClick:=drawon;
 
end;
 
procedure inflict(image: Timage; bmp: Tbitmap);
var img: Timage;
x,y:integer;
begin
img:=Timage.Create(nil);
img.Parent:=nil;
img.Height:=image.Height;
img.Width:=image.Width;
img.Canvas.StretchDraw(rect(0,0,img.Width,img.Height),bmp);
for y:=1 to img.Height do begin
x:=1;
repeat
if img.Canvas.Pixels[x,y]<>Transpcolor then image.Canvas.Pixels[x,y]:=img.Canvas.Pixels[x,y]; // наносим только цвет, который не считается прозрачным
inc(x);
until x=img.Width;
end;
end;
procedure Tform1.drawOn(sender: Tobject);
begin
 // В этой процедуре отпределяется какой слой будет нанесён сначала, а какой после
if sender= btn1 then begin
image1.Canvas.StretchDraw(rect(0,0,image1.Width,image1.Height),bmp1);
inflict(image1,bmp);
end;
if sender= btn then begin
image1.Canvas.StretchDraw(rect(0,0,image1.Width,image1.Height),bmp);
inflict(image1,bmp1);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  makelayer;
end;