Découpe d'image, différence entre deux fonctions

**SergioMaster** · 27/08/2022, 09h04

Bonjour,

j'ai deux procédures ayant le même objectif : découper une image
Nom : Capture.PNG
Affichages : 378
Taille : 191,6 Ko

la première

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.BtnClipClick(Sender: TObject);
  procedure Decoupe(InBitmap, OutBitMap: TBitmap; Selection : TSelection);
  var bmps : TBitmap;
     iRect : TRect;
  begin
      Selection.HideSelection:=True;
      bmps:=Image1.MakeScreenshot;
      Selection1.HideSelection:=False;
      OutBitMap.Width := Trunc(Selection.Width);
      OutBitMap.Height := Trunc(Selection.Height);
      iRect.Left :=Trunc(Selection.Position.X);
      iRect.Top :=Trunc(Selection.Position.Y);
      iRect.Width := Trunc(Selection.Width);
      iRect.Height := Trunc(Selection.Height);
      OutBitMap.CopyFromBitmap(InBitMap, iRect, 0, 0 );
      bmps.Free;
  end;
begin
Decoupe(Image1.Bitmap,Image2.Bitmap,Selection1);
end;

Nom : Capture_1.PNG
Affichages : 307
Taille : 259,0 Ko

la seconde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.btncropClick(Sender: TObject);
var bmps : TBitmap;
begin
  Selection1.HideSelection:=True;
  bmps:=Image1.MakeScreenshot;
  Selection1.HideSelection:=False;
  DecoupeBitmap(Bmps,Image2.Bitmap,Trunc(Selection1.Position.X),Trunc(Selection1.Position.y),Trunc(Selection1.Width),Trunc(Selection1.Height));
  bmps.Free;
end;
 
procedure TForm1.DecoupeBitmap(InBitmap, OutBitMap: TBitmap; X, Y, W, H: integer);
var
  iRect : TRect;
begin
    OutBitMap.Width := W;
    OutBitMap.Height := H;
    iRect.Left :=X;
    iRect.Top :=Y;
    iRect.Width := W;
    iRect.Height := H;
    OutBitMap.CopyFromBitmap( InBitMap, iRect, 0, 0 );
end;