EricLang
01-10-2006, 02:05 PM
For creating a custom cursor in normal windowed mode I use the code down here. In Win2000 or XP it works OK. I see my cursor but in Win98 the cursor stays just as always.
Why doesn't this work in Win98?
How to get it working in Win98?
var
BmpColor, BmpMask: TBitmap;
Info: TIconInfo;
Cur : HCURSOR;
BmpColor := TBitmap.Create;
BmpMask := TBitmap.Create;
BmpColor.LoadFromSomething(...)
BmpMask.LoadFromSomething(...)
with Info do
begin
fIcon := False;
xHotspot := 7
yHotspot := 7
hbmMask := BmpMask.Handle;
hbmColor := BmpColor.Handle;
end;
Cur := CreateIconIndirect(LemCursorIconInfo);
Screen.Cursors[1] := Cur;
BmpColor.Free;
BmpMask.Free;
Why doesn't this work in Win98?
How to get it working in Win98?
var
BmpColor, BmpMask: TBitmap;
Info: TIconInfo;
Cur : HCURSOR;
BmpColor := TBitmap.Create;
BmpMask := TBitmap.Create;
BmpColor.LoadFromSomething(...)
BmpMask.LoadFromSomething(...)
with Info do
begin
fIcon := False;
xHotspot := 7
yHotspot := 7
hbmMask := BmpMask.Handle;
hbmColor := BmpColor.Handle;
end;
Cur := CreateIconIndirect(LemCursorIconInfo);
Screen.Cursors[1] := Cur;
BmpColor.Free;
BmpMask.Free;