卷大侠登个记吧 (200分)

203010 · 2002-01-07

下面是我写的一个建立Cursor的函数，想建立一个橡皮的Cursor，可以用的，只是当 Size = 8 * 奇数时会有问题，其它到都正常，百思不得其解 function CreateRubberCursor(Size: Integer): HCursor; var   A, B: array of Byte;   LineBytes: Integer;   AndByte: Byte;   i: Integer; begin   LineBytes := Round(Size / 16 + 0.5) * 2;   SetLength(A, LineBytes * Size);   SetLength(B, LineBytes * Size);   for i := 0 to LineBytes * Size - 1 do   begin     A := 0;     B := 255;   end;   for i := 0 to LineBytes - 1 do     B := 0;   for i := LineBytes * (Size - 1) to LineBytes * Size - 1 do     B := 0;   for i := 1 to Size - 2 do     B[i * LineBytes] := B[i * LineBytes] and 127;   for i := 1 to Size - 2 do   begin     AndByte := not Trunc(Power(2, (8 - (Size mod 8))));     B[i * LineBytes + Round(Size / 8 + 0.5) - 1] :=       B[i * LineBytes + Round(Size / 8 + 0.5) - 1] and AndByte;   end;   Result := CreateCursor(Application.Handle, 0, 0, Size, Size, @A[0], @B[0]); end;

203010 · 2002-01-07

帮我提前的一律有分

delphiwolf · 2002-01-07

gzfrank · 2002-01-07

看看.

taozhiyu · 2002-01-07

cfx · 2002-01-07

up

203010 · 2002-01-07

搞定了，代码如下，谢谢大家， 另：上午出现过本来要24*24的Cursor,可出来了24*12的，现在有好了 function CreateRubberCursor(Size: Integer): HCursor; var   A, B: array of Byte;   LineBytes: Integer;   AndByte: Byte;   i: Integer; begin   LineBytes := Round(Size / 16 + 0.5) * 2;   SetLength(A, LineBytes * Size);   SetLength(B, LineBytes * Size);   for i := 0 to LineBytes * Size - 1 do   begin     A := 0;     B := 255;   end;   for i := 0 to LineBytes - 1 do     B := 0;   for i := LineBytes * (Size - 1) to LineBytes * Size - 1 do     B := 0;   for i := 1 to Size - 2 do     B[i * LineBytes] := B[i * LineBytes] and 127;   for i := 1 to Size - 2 do   begin     if (Size mod 8) <> 0 then     begin       AndByte := not Trunc(Power(2, (8 - (Size mod 8))));       B[i * LineBytes + Round(Size / 8 + 0.5) - 1] :=         B[i * LineBytes + Round(Size / 8 + 0.5) - 1] and AndByte;     end     else       B[i* LineBytes + Size div 8 - 1] :=         B[i* LineBytes + Size div 8 - 1] and 254;   end;   Result := CreateCursor(Application.Handle, 0, 0, Size, Size, @A[0], @B[0]); end;

卷起千堆雪tyn · 2002-01-07

让我登什么记啊？ ^_^

203010 · 2002-01-07

发分啦

taozhiyu · 2002-01-07

瓦！卷卷，我好羡慕你!

卷大侠登个记吧 (200分)

203010

Unregistered / Unconfirmed

203010

Unregistered / Unconfirmed

delphiwolf

Unregistered / Unconfirmed

gzfrank

Unregistered / Unconfirmed

taozhiyu

Unregistered / Unconfirmed

cfx

Unregistered / Unconfirmed

203010

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

203010

Unregistered / Unconfirmed

taozhiyu

Unregistered / Unconfirmed

Similar threads