第一次提问：怎样取矢量图XY坐标？

[yyp629]

程序要在大图（wmf格式）上取到相对位置来放置小图（wmf格式），把小图在大图中的XY坐标记录在数据库中，在显示大图的同时小图也根据XY坐标显示出来。实现一起放大缩小平移等。现在就是取小图显示时XY坐标麻烦，请高手赐教~~谢谢！

[yyp629]

自己顶顶~~~~
加分了~~~

[fangsp]

再帮你顶一个

[yyp629]

结贴时大家有分~~
觉得分不够还可以再加~~谢了

都是同一格式的图（wmf或dxf），比如大图是张建筑平面图，图上有N个房间，每个房间里面装有灯（小图），程序运行时，小图的位置不能移动。设定小图显示区域不知怎弄，大图比如是某层楼平面有4个房间，4个小图显示区域分别在4个房间，得有一个方式知道房间的坐标，图是可放大的，放大大图那小图也跟着放大。

[yyp629]

哭~~没人理~~伤心

[fangsp]

呵呵 帮顶一个

[robinevangel]

帮你顶，我也没这方面的例子哇。。。。

[robinevangel]

只能给点建议了：

如何缩放图片

unit alabel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
        Bmp1,Bmp2:TBitmap;//Bmp1是提原图，Bmp2是缩放以后的图片
begin
        Bmp1:=TBitmap.create;
        Bmp2:=TBitmap.create;
        Bmp1.LoadFromFile('1.bmp');
        Bmp2.PixelFormat:=Bmp1.PixelFormat ;
        Bmp2.Width:=200;
        Bmp2.Height:=round(800);
        Bmp2.Canvas.StretchDraw(Bounds(0,0, Bmp2.Width,Bmp2.Height),Bmp1);
        //对图片进行缩放
        Bmp2.SaveToFile('d:\temp2.bmp'); //将图片对象保存为文件
end;

end.

希望能对你有帮助

[yyp629]

谢谢各位~~~ 中国这么多牛人就不信搞不定这问题
加分求解~~~

[yyp629]

我用sgImage控件，可查看矢量图

//放大========================================================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
sgImage1.ChangeScale(False, 1.5, sgImage1.Center);
end;
//缩小========================================================================
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
sgImage1.ChangeScale(False, 0.5, sgImage1.Center);
end;

//============================================================================
procedure TForm1.sgImage1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
vX, vY: Single;
begin
if sgImage1.Picture.Graphic is TsgDXFImage then
begin
vX := X / sgImage1.Scale + TsgDXFImage(sgImage1.Picture.Graphic).Extents.Left;
vY := TsgDXFImage(sgImage1.Picture.Graphic).Extents.Top - Y / sgImage1.Scale;
Form1.Caption := Format('(%.3f, %.3f)', [vX, vY]);
end;
end;

现在就是取矢量图XY坐标不懂~~~~

[yyp629]

:(
要沉了，自己顶~~~

[yyp629]

UP