一个小问题,看看吧
下面是一段对图像进行镜像处理的代码,怎样改能使图像翻转90度??
var
dmimage:timage;
x,y:integer;
srcrect,dstrect:trect;
begin
x:=imagej[0].Picture.Width ;
y:=imagej[0].Picture.Height ;
dmimage:=timage.Create(self);
try
srcrect:=rect(0,0,x,y);
dstrect:=rect(0,y,x,0);
dmimage.Width :=x;
dmimage.Height :=y;
dmimage.Canvas.CopyMode :=cmsrccopy;
dmimage.Canvas .Copyrect(dstrect,imagej[0].Canvas,srcrect);
imagej[0].Picture :=dmimage.Picture ;
finally
dmimage.Free;
end;