CodePudding user response:
Image1 import an image, in Image1. Drawing on the Canvas, finally Image1. Picture save to file,CodePudding user response:
var TheRect: TRect;
K: integer;
The begin
Image1. Picture. LoadFromFile (FileName1);
TheRect:=the Rect (X1, Y1, X2, Y2);
Image1. Canvas. Brush. Color:=clwhite;
Image1. Canvas. FrameRect (TheRect);
Image1. Picture. SaveToFile (FileName2);
end;
Generally true,
CodePudding user response:
Just to draw, is ok,CodePudding user response:
Fyi:http://blog.163.com/tab_98/blog/static/1192409720175612828617/
CodePudding user response:
Use ImageEn controlsCodePudding user response:
The second floor has solved your problemOther functions will expand on this line