Intercepting a part of the TRECT

xiaoxiao2021-03-06  62

Procedure TForm1.Button3Click (Sender: Tobject); Var Bitmap: Tbitmap; MyRect, Myother: TRECT; Begin

MyRect: = Rect (0, 0, 100, 100); Myother: = Rect (0, 101, 100, 200); Bitmap: = Tbitmap.create; Bitmap.LoadFromFile ('d: /aa.bmp'); Form1.canvas.brushcopy (MyRect, Bitmap , MyRect, CLRED; // Cancel the Copy Form1.canvas.copyRect (Myother, Bitmap.canvas, Myother); Bitmap.Free; End;

转载请注明原文地址:https://www.9cbs.com/read-118657.html

New Post(0)