1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| procedure TForm2.Button1Click(Sender: TObject);
var SrcRect, DstRect : TRectF;
begin
SrcRect := TRectF.Create(0, 0, Bitmap.Width, Bitmap.Height);
DstRect := TRectF.Create(0, 0, Bitmap.Width div 2, Bitmap.Height div 2);
Image1.Bitmap.Canvas.BeginScene;
Image1.Bitmap.Canvas.DrawBitmap(Bitmap, SrcRect, DstRect, 150);
Image1.Bitmap.Canvas.EndScene;
Image1.Bitmap.BitmapChanged;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Image1.Bitmap.Create(400, 400);
Image1.Bitmap.Clear(clawhite);
Bitmap := TBitmap.Create(250, 250);
Bitmap.LoadFromFile('candle.png');
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
Bitmap.Free;
end; |
Partager