高分求一个有趣的小程序

[snowguy]

请问谁能写一个类似Photoshop里的图形取景框，具体要求：
1、可以控制长度和宽度比，无论框有多大，这个比例不变；
2、可以用鼠标移动取景框；
3、可以拉动四边改变大小，同时保证长宽比例不变。
4、单击时可以取消取景框；
5、四边可以闪烁或游动；
其时就是VB设计时添加image control的情况。

[wyy]

procedure TForm1.Button1Click(Sender: TObject);
var
Mybmp:tbitmap;
nl,nt,nr,nb:integer;
begin
nl:=strtoint(eleft.text);
nt:=strtoint(etop.text);
nr:=strtoint(eright.text);
nb:=strtoint(ebottom.text);

mybmp:=tbitmap.Create ;
mybmp.Handle :=caps(nl,nr,nt,nb);

image1.Picture.Bitmap:=mybmp;

end;

[wyy]

That is main capture.

[wyy]

oh,sorry, i use delphi.

[sky100]

是呀，请你告诉我什么是取景框？

[hsm]

关注

[bruce_lii]

1.加个picturebox做容器，在此基础上加入image,装载image.picture,设置stretch属性为true;picture尺寸和image一样
2.移动实现：1）image_mousedown记录x,y 2)image_mousemove设置drag属性为1 3)image_dragdrop重新设置image.left/top
3.调节image.width/height属性实现改变大小（如果你说的取景框是剪切的话，应该加入四个line控件，image_mousemove事件
4.调节line控件的属性可以达到四边闪烁或游动的效果.
email:[e-mail]

[flyinthesky]

呵呵，我想试试。能不能把你做的给我看看？！
[e-mail]

[snowguy]

从VB版转向VC版,向高手致敬!

[snowguy]

这样吧,理论上说起来这样确实都行;
但没人提到怎样拉动四边改变大小呢？在mousemove事件中又怎么能平滑地变化了？给人一种不连续的感觉！

相信大家都用过扫描仪吧，请问谁能能过程序控制扫描仪中取框的大小和长度／宽度比；大家谈一谈各自的思路！

[snowguy]

没人愿意发表高见?

[tlovexyj]

是要做抓图的程序吧？
是吗？
偶先去写，完了告诉你。

[happylaodu]

snowguy，把你的代码发给我吧，我给你看看。
[e-mail]

[snowguy]

请发言

[snowguy]

相信大家都用过扫描仪吧，请问谁能能过程序控制扫描仪中取框的大小和长度／宽度比；大家谈一谈各自的思路！

[snowguy]

分发不出去，怎么办？

[snowguy]

分发不出去，怎么办？

[lvlu]

我有一个关于屏幕捕捉的小程序，符合你的要求，是Charles Petzold写的，这可是个大牛人，你要的话，发个你，告诉我你的mail地址。

[lvlu]

呵呵

[snowguy]

To lvlu:[e-mail]

[snowguy]