var
maxx,minx,maxy,miny :integer;
begin
maxx :=300;
minx := -100;
maxy := 400;
miny := -100;
BackImage.Picture := nil; BackImage.Left := 0;
BackImage.Top := 0;
BackImage.Width := maxX - minX;
BackImage.Height := maxY - minY; SetMapMode(BackImage.Canvas.Handle,MM_LOMETRIC);
SetViewportOrgEx(BackImage.Canvas.Handle,abs(MinX),abs(maxy),nil);
BackImage.Canvas.MoveTo(0,0);
BackImage.Canvas.LineTo(maxX,0);
BackImage.Canvas.LineTo(maxX,maxY);
BackImage.Canvas.LineTo(0,maxY);
BackImage.Canvas.LineTo(0,0);
BackImage.Canvas.LineTo(minX,0);
BackImage.Canvas.LineTo(minX,maxY); BackImage.Canvas.LineTo(0,maxY);
BackImage.Canvas.LineTo(0,0);发现有映射后,原来的图变成了在backimage中的一个部份!
请问如何才能得到映射后的这一块图形(或都是说是它在原图中的坐标)?
maxx,minx,maxy,miny :integer;
begin
maxx :=300;
minx := -100;
maxy := 400;
miny := -100;
BackImage.Picture := nil; BackImage.Left := 0;
BackImage.Top := 0;
BackImage.Width := maxX - minX;
BackImage.Height := maxY - minY; SetMapMode(BackImage.Canvas.Handle,MM_LOMETRIC);
SetViewportOrgEx(BackImage.Canvas.Handle,abs(MinX),abs(maxy),nil);
BackImage.Canvas.MoveTo(0,0);
BackImage.Canvas.LineTo(maxX,0);
BackImage.Canvas.LineTo(maxX,maxY);
BackImage.Canvas.LineTo(0,maxY);
BackImage.Canvas.LineTo(0,0);
BackImage.Canvas.LineTo(minX,0);
BackImage.Canvas.LineTo(minX,maxY); BackImage.Canvas.LineTo(0,maxY);
BackImage.Canvas.LineTo(0,0);发现有映射后,原来的图变成了在backimage中的一个部份!
请问如何才能得到映射后的这一块图形(或都是说是它在原图中的坐标)?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货