урок на делфи 48 - Как рисовать на загруженной картинке
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Button1: TButton;
Image3: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
original,znak:TBitmap;
i,j:integer;
begin
original:=TBitmap.Create;
original.LoadFromFile('Desert.bmp');
Image1.Proportional:=true;
Image1.Picture.Assign(original);
znak:=TBitmap.Create;
znak.LoadFromFile('znak.bmp');
znak.Transparent:=true;
Image2.Proportional:=true;
Image2.Picture.Assign(znak);
original.Canvas.Draw(1,1,znak);
for I := 0 to 10 do
original.Canvas.Draw(Random(original.Width),Random(original.Height),znak);
Image3.Picture.Assign(original);
original.SaveToFile('gotov.bmp');
FreeAndNil(original);
FreeAndNil(znak);
end;
end.