Вот мой вариант: имеется область рисования image2
, и image1
с bitmap'ом растушеванной кисти. По событию OnMove
на image2
рисуется растушеванная кисть. Буфер bmp
(тип tbitmap
).
Проблема в том, что рисуется медленно
Вот код:
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
bmp:=image2.Picture.Bitmap;
for i:=1 to 99 do
for j:=1 to 99 do begin
alpha:=round(getrvalue(image1.Picture.Bitmap.Canvas.Pixels[i,j])/255*100);
bmp.Canvas.Pixels[i+x,j+y]:=rgb(
round(getrvalue(image2.Picture.Bitmap.Canvas.Pixels[i+x,j+y])*(alpha/100)),
round(getgvalue(image2.Picture.Bitmap.Canvas.Pixels[i+x,j+y])*(alpha/100)),
round(getbvalue(image2.Picture.Bitmap.Canvas.Pixels[i+x,j+y])*(alpha/100))
);
end;
image2.Picture.Bitmap:=bmp;
end;
Может, если писать на winapi, то поможет?