Results 1 to 2 of 2

Thread: Bitmap Cursor in Win98

  1. #1

    Bitmap Cursor in Win98

    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?

    [pascal]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;
    [/pascal]

  2. #2

    Bitmap Cursor in Win98

    I'm not exactly sure what you are on about, but you should read this article:

    http://www.efg2.com/Lab/Graphics/CursorOverlay.htm

    Purpose
    The purpose of this project is to show how to convert a cursor to a bitmap and overlay its bitmap on another bitmap.
    The article and program were originally made to work on win98. i hope it helps

    edit: also see the program notes:

    Hardware Requirements
    True color (24 or 32-bit) display. Fails on many high color (16 bit) displays.
    so check out if you are running in 16 bit color depth!
    This is my game project - Top Down City:
    http://www.pascalgamedevelopment.com...y-Topic-Reboot

    My OpenAL audio wrapper with Intelligent Source Manager to use unlimited:
    http://www.pascalgamedevelopment.com...source+manager

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •