如何获得屏幕上某点的颜色.

CPerlAsm_Lx 2004-01-22 06:53:26

如何获得屏幕上某点的颜色.

...全文

133 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

goneaway1981 2004-01-23

打赏
举报

回复人： cupidvenus(小鱼儿) ( ) 信誉：100 2004-01-22 22:54:00 得分:0

GetCursorPos和GetPixel

lovebcb 2004-01-23

打赏
举报

改了它：
Panel1->Color=TColor(r);

dclman 2004-01-23

打赏
举报

哈哈``` 好!! 收了``` 嘿嘿~~

cupidvenus 2004-01-22

打赏
举报

GetCursorPos和GetPixel

lovebcb 2004-01-22

打赏
举报

//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TPoint p;
HDC d;
DWord r;
GetCursorPos(&p);
d=GetDC(0);
r=GetPixel(d,p.x,p.y);
Panel1->Color=r;
Edit1->Text=IntToStr(GetRValue(r));
Edit2->Text=IntToStr(GetGValue(r));
Edit3->Text=IntToStr(GetBValue(r));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled=True;
Button1->Enabled=False;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{

hotkeyid=GlobalAddAtom("UserDefined")-0xC000;
RegisterHotKey(NULL,hotkeyid,MOD_ALT,26);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
UnregisterHotKey(NULL,hotkeyid);
DeleteAtom(hotkeyid);
}
//---------------------------------------------------------------------------

void TForm1::WMHotKey(TWMHotKey Msg)
{
if (Msg.HotKey==hotkeyid)
{
Msg.Result=1;
Timer1->Enabled=True;
Button1->Enabled=False;
}
}

新年快乐！

lovebcb 2004-01-22