CreateCursor API要如何使用? |
答題得分者是:timhuang
|
hsk6138
初階會員 發表:12 回覆:59 積分:49 註冊:2003-12-11 發送簡訊給我 |
各位大大請問一下CreateCursor API要如何使用 ************************************************************
這段引述不會使用.如有前輩會請指教
CONST VOID *pvANDPlane, // pointer to AND bitmask array
CONST VOID *pvXORPlane // pointer to XOR bitmask array
***********************************************************
help 說明 但不是很了 HCURSOR CreateCursor(
HINSTANCE hInst, // handle to application instance
int xHotSpot, // horizontal position of hot spot
int yHotSpot, // vertical position of hot spot
int nWidth, // cursor width
int nHeight, // cursor height
CONST VOID *pvANDPlane, // pointer to AND bitmask array
CONST VOID *pvXORPlane // pointer to XOR bitmask array
); < >< >
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
hsk6138
初階會員 發表:12 回覆:59 積分:49 註冊:2003-12-11 發送簡訊給我 |
自己解題
範例程式碼如下 const
MyCursor = 1;
procedure TForm1.FormCreate(Sender: TObject);
var
Am,Xm: array[0..127]of Byte;
cur: HCURSOR;
begin Am[ 0]:=$7F; Am[ 1]:=$FF; Am[ 2]:=$FF; Am[ 3]:=$FF;
Am[ 4]:=$3F; Am[ 5]:=$FF; Am[ 6]:=$FF; Am[ 7]:=$FF;
Am[ 8]:=$1F; Am[ 9]:=$FF; Am[ 10]:=$FF; Am[ 11]:=$FF;
Am[ 12]:=$0F; Am[ 13]:=$FF; Am[ 14]:=$FF; Am[ 15]:=$FF;
Am[ 16]:=$07; Am[ 17]:=$FF; Am[ 18]:=$FF; Am[ 19]:=$FF;
Am[ 20]:=$03; Am[ 21]:=$FF; Am[ 22]:=$FF; Am[ 23]:=$FF;
Am[ 24]:=$01; Am[ 25]:=$FF; Am[ 26]:=$FF; Am[ 27]:=$FF;
Am[ 28]:=$00; Am[ 29]:=$FF; Am[ 30]:=$FF; Am[ 31]:=$FF;
Am[ 32]:=$00; Am[ 33]:=$7F; Am[ 34]:=$FF; Am[ 35]:=$FF;
Am[ 36]:=$00; Am[ 37]:=$3F; Am[ 38]:=$FF; Am[ 39]:=$FF;
Am[ 40]:=$00; Am[ 41]:=$1F; Am[ 42]:=$FF; Am[ 43]:=$FF;
Am[ 44]:=$00; Am[ 45]:=$0F; Am[ 46]:=$FF; Am[ 47]:=$FF;
Am[ 48]:=$00; Am[ 49]:=$07; Am[ 50]:=$FF; Am[ 51]:=$FF;
Am[ 52]:=$00; Am[ 53]:=$03; Am[ 54]:=$FF; Am[ 55]:=$FF;
Am[ 56]:=$00; Am[ 57]:=$01; Am[ 58]:=$FF; Am[ 59]:=$FF;
Am[ 60]:=$00; Am[ 61]:=$00; Am[ 62]:=$FF; Am[ 63]:=$FF;
Am[ 64]:=$00; Am[ 65]:=$00; Am[ 66]:=$7F; Am[ 67]:=$FF;
Am[ 68]:=$00; Am[ 69]:=$00; Am[ 70]:=$3F; Am[ 71]:=$FF;
Am[ 72]:=$00; Am[ 73]:=$00; Am[ 74]:=$1F; Am[ 75]:=$FF;
Am[ 76]:=$00; Am[ 77]:=$00; Am[ 78]:=$0F; Am[ 79]:=$FF;
Am[ 80]:=$00; Am[ 81]:=$00; Am[ 82]:=$07; Am[ 83]:=$FF;
Am[ 84]:=$00; Am[ 85]:=$00; Am[ 86]:=$03; Am[ 87]:=$FF;
Am[ 88]:=$00; Am[ 89]:=$00; Am[ 90]:=$01; Am[ 91]:=$FF;
Am[ 92]:=$00; Am[ 93]:=$7F; Am[ 94]:=$FF; Am[ 95]:=$FF;
Am[ 96]:=$00; Am[ 97]:=$FF; Am[ 98]:=$FF; Am[ 99]:=$FF;
Am[100]:=$01; Am[101]:=$FF; Am[102]:=$FF; Am[103]:=$FF;
Am[104]:=$03; Am[105]:=$FF; Am[106]:=$FF; Am[107]:=$FF;
Am[108]:=$07; Am[109]:=$FF; Am[110]:=$FF; Am[111]:=$FF;
Am[112]:=$0F; Am[113]:=$FF; Am[114]:=$FF; Am[115]:=$FF;
Am[116]:=$1F; Am[117]:=$FF; Am[118]:=$FF; Am[119]:=$FF;
Am[120]:=$3F; Am[121]:=$FF; Am[122]:=$FF; Am[123]:=$FF;
Am[124]:=$7F; Am[125]:=$FF; Am[126]:=$FF; Am[127]:=$FF;
Xm[ 0]:=$00; Xm[ 1]:=$00; Xm[ 2]:=$00; Xm[ 3]:=$00;
Xm[ 4]:=$00; Xm[ 5]:=$00; Xm[ 6]:=$00; Xm[ 7]:=$00;
Xm[ 8]:=$40; Xm[ 9]:=$00; Xm[ 10]:=$00; Xm[ 11]:=$00;
Xm[ 12]:=$60; Xm[ 13]:=$00; Xm[ 14]:=$00; Xm[ 15]:=$00;
Xm[ 16]:=$70; Xm[ 17]:=$00; Xm[ 18]:=$00; Xm[ 19]:=$00;
Xm[ 20]:=$78; Xm[ 21]:=$00; Xm[ 22]:=$00; Xm[ 23]:=$00;
Xm[ 24]:=$7C; Xm[ 25]:=$00; Xm[ 26]:=$00; Xm[ 27]:=$00;
Xm[ 28]:=$7E; Xm[ 29]:=$00; Xm[ 30]:=$00; Xm[ 31]:=$00;
Xm[ 32]:=$7F; Xm[ 33]:=$00; Xm[ 34]:=$00; Xm[ 35]:=$00;
Xm[ 36]:=$7F; Xm[ 37]:=$80; Xm[ 38]:=$00; Xm[ 39]:=$00;
Xm[ 40]:=$7F; Xm[ 41]:=$C0; Xm[ 42]:=$00; Xm[ 43]:=$00;
Xm[ 44]:=$7F; Xm[ 45]:=$E0; Xm[ 46]:=$00; Xm[ 47]:=$00;
Xm[ 48]:=$7F; Xm[ 49]:=$F0; Xm[ 50]:=$00; Xm[ 51]:=$00;
Xm[ 52]:=$7F; Xm[ 53]:=$F8; Xm[ 54]:=$00; Xm[ 55]:=$00;
Xm[ 56]:=$7F; Xm[ 57]:=$FC; Xm[ 58]:=$00; Xm[ 59]:=$00;
Xm[ 60]:=$7F; Xm[ 61]:=$FE; Xm[ 62]:=$00; Xm[ 63]:=$00;
Xm[ 64]:=$7F; Xm[ 65]:=$FF; Xm[ 66]:=$00; Xm[ 67]:=$00;
Xm[ 68]:=$7F; Xm[ 69]:=$FF; Xm[ 70]:=$80; Xm[ 71]:=$00;
Xm[ 72]:=$7F; Xm[ 73]:=$FF; Xm[ 74]:=$C0; Xm[ 75]:=$00;
Xm[ 76]:=$7F; Xm[ 77]:=$FF; Xm[ 78]:=$E0; Xm[ 79]:=$00;
Xm[ 80]:=$7F; Xm[ 81]:=$FF; Xm[ 82]:=$F0; Xm[ 83]:=$00;
Xm[ 84]:=$7F; Xm[ 85]:=$FF; Xm[ 86]:=$F8; Xm[ 87]:=$00;
Xm[ 88]:=$7F; Xm[ 89]:=$80; Xm[ 90]:=$00; Xm[ 91]:=$00;
Xm[ 92]:=$7F; Xm[ 93]:=$00; Xm[ 94]:=$00; Xm[ 95]:=$00;
Xm[ 96]:=$7E; Xm[ 97]:=$00; Xm[ 98]:=$00; Xm[ 99]:=$00;
Xm[100]:=$7C; Xm[101]:=$00; Xm[102]:=$00; Xm[103]:=$00;
Xm[104]:=$78; Xm[105]:=$00; Xm[106]:=$00; Xm[107]:=$00;
Xm[108]:=$70; Xm[109]:=$00; Xm[110]:=$00; Xm[111]:=$00;
Xm[112]:=$60; Xm[113]:=$00; Xm[114]:=$00; Xm[115]:=$00;
Xm[116]:=$40; Xm[117]:=$00; Xm[118]:=$00; Xm[119]:=$00;
Xm[120]:=$00; Xm[121]:=$00; Xm[122]:=$00; Xm[123]:=$00;
Xm[124]:=$00; Xm[125]:=$00; Xm[126]:=$00; Xm[127]:=$00; cur := CreateCursor(hInstance, 1, 2, 32, 32, @Am[0], @Xm[0]);
Screen.Cursors[MyCursor] := cur;
Form1.Cursor := MyCursor; End;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |