BorlandTalk.com

Henrik Bruhn · Guest

Hi

I want to mirror the crHandpoint cursor so it is turned upside down and
points down instead of up. How to do that?

Henrik

Henrik Bruhn · Guest

Hi

Found the solution
Read the cursorfile into TC, mirror the AND and XOR planes and write back
the cursor file.
Then use resource workshop to set the hotspot.

Henrik
----------------------------------
type
TPlane= array[0..31] of integer;
TC = packed record
Bytes: array[0..69] of byte;
XORPlane, ANDPlane: TPlane;
end;

procedure MirrorPlane(var Plane: TPlane);
var
n: integer;
Temp: integer;
begin
for n:= 0 to 15 do begin
Temp:= Plane[n];
Plane[n]:= Plane[31-n];
Plane[31-n]:= Temp;
end;
end;