做的是一个简单的 2D游戏坐标抓取的小工具
我的Form上有个ScrollBox1(用于image太大的时候有滚动条出现可以看到整个地图图片)
ScrollBox1上有个image(用于显示地图图片啦)
image 上面有个PaintBox1,用于画图(比如说画一块矩形来表示这个区域无法行走,再记录下坐标)问题来了,我需要动态创建了一些一些小图片精灵,其实就是把这些小图片摆在地图上,记录下他们的坐标。
Image[Rec_count]:= Timage.Create(Self);
Image[Rec_count].Picture.LoadFromFile('.\Sprite\'+Filename+'.bmp');
Image[Rec_count].Parent:=ScrollBox1; //这里应该设置成什么 ?
Image[Rec_count].Left:= Map_X1;
Image[Rec_count].Top:= Map_Y1;其中 Map_X1 跟 Map_Y1是在PaintBox1 的MouseDown事件里面得到的。
上面的语句,在滚动条没变化的时候是对的。但是当滚动条有动的时候,Image[Rec_count].Left 就忽略了当前滚动条滚了多少,还是把窗口的左上角作为原点。这样图片摆进去的时候就偏到右边了,滚动条滚得越多偏得越多,怎么解决这个问题 ?
我希望我的Image[Rec_count].Left跟Image[Rec_count].Top还是用Map_X1跟Map_Y1来获取,怎么让程序知道我要的原点跟 PaintBox1 的圆点一样?
我的Form上有个ScrollBox1(用于image太大的时候有滚动条出现可以看到整个地图图片)
ScrollBox1上有个image(用于显示地图图片啦)
image 上面有个PaintBox1,用于画图(比如说画一块矩形来表示这个区域无法行走,再记录下坐标)问题来了,我需要动态创建了一些一些小图片精灵,其实就是把这些小图片摆在地图上,记录下他们的坐标。
Image[Rec_count]:= Timage.Create(Self);
Image[Rec_count].Picture.LoadFromFile('.\Sprite\'+Filename+'.bmp');
Image[Rec_count].Parent:=ScrollBox1; //这里应该设置成什么 ?
Image[Rec_count].Left:= Map_X1;
Image[Rec_count].Top:= Map_Y1;其中 Map_X1 跟 Map_Y1是在PaintBox1 的MouseDown事件里面得到的。
上面的语句,在滚动条没变化的时候是对的。但是当滚动条有动的时候,Image[Rec_count].Left 就忽略了当前滚动条滚了多少,还是把窗口的左上角作为原点。这样图片摆进去的时候就偏到右边了,滚动条滚得越多偏得越多,怎么解决这个问题 ?
我希望我的Image[Rec_count].Left跟Image[Rec_count].Top还是用Map_X1跟Map_Y1来获取,怎么让程序知道我要的原点跟 PaintBox1 的圆点一样?
解决方案 »
- inttostr 溢出问题
- 请问[Fatal Error] XMLParse.pas(1112): Could not create output file 'C:\Dcu(D5)\XMLParse.dcu'
- 谁用鼎铭语音卡做过开发?我们急需你的帮助!
- sql语句,谢谢
- 过年快放假了,开心,放点分之1
- excel操作﹐請問如何復制一個工作表?
- 生日放分,人气几何?
- 有关intraweb的IWURL的超级链接问题....
- 请各位看看这方法!!!
- flatstyle 控件包有支持DELPHI6的吗? flatstyle 控件包5的,能在DELPHI6下用吗?
- 请问主键重复问题如何处理,在线等,TKS!
- delphi 画正态分布图
-----------------
ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + 100;
ScrollBox1.HorzScrollBar.Position := ScrollBox1.HorzScrollBar.Position + 100;
ScrollBox1.HorzScrollBar.Position//水平