发表于 2009-1-5 19:48
| 
蹇熷皢鏌愪竴鍖哄煙鐨勯鑹插彇鍙
鍙戝竷: 2008-6-26 20:23 | 浣滆: admin | 鏌ョ湅: 10娆
width="84%">蹇熷皢鏌愪竴鍖哄煙鐨勯鑹插彇鍙
銆蹇熷皢鏌愪竴鍖哄煙鐨勯鑹插彇鍙,涓昏搴旂敤鍦ㄥ埗浣滆〃鏍兼椂鐨勯夋嫨鍖哄煙.
API鍑芥暟:PatBlt(MyHDC:HDC;X,Y,WIDTH,HEIGHT:INTEGER;MODE);
渚嬪:
var
MyDC:HDC;
Begin
MyDC:HDC;
MyDC:=GetDC(Form1.Handle);
if not PatBlt(MyDC,
1,
1,
100,
100,
DSTINVERT) then
ShowMessage('ERROR :~(');
End;
