放大镜的程序如何来实现呢？给点原理和代码。

CPerlAsm_Lx 2003-10-22 07:39:20

...全文

45 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

CPerlAsm_Lx 2003-10-25

打赏
举报

只是有人说我，我故意UP。

下次再这样，别怪我不客气
结铁

constantine 2003-10-25

打赏
举报

来慢了

aaalouis 2003-10-25

打赏
举报

呵呵，应该给…

czxwm 2003-10-25

打赏
举报

see

jiangchun_xn 2003-10-25

打赏
举报

Up什么阿,给分阿,CPerlAsm_Lx(一叶知秋)

CPerlAsm_Lx 2003-10-25

打赏
举报

ccrun.com 2003-10-22

打赏
举报

等楼主结帖，恐怕需要时间。

楼上谢我干嘛，我只是路过。呵呵。

jiangchun_xn 2003-10-22

打赏
举报

感谢大家不抢，我的了分就是5格内哭了。。。：））））

jiangchun_xn 2003-10-22

打赏
举报

ccrun(老妖)(www.ccrun.com):

谢谢。：）

SCUM 2003-10-22

打赏
举报

jiangchun_xn(【GrayMemory】) 说得不错

jiangchun_xn 2003-10-22

打赏
举报

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
POINT mp;
HDC hdc=GetDC(0);
GetCursorPos(&mp);
StretchBlt(this->Canvas->Handle,0,0,100,100,hdc,mp.x-15,mp.y-15,30,30,SRCCOPY);
}
//---------------------------------------------------------------------------

jiangchun_xn 2003-10-22