What does my cursor look like ?

Recently I needed to render the Screen's Cursor image to

a bitmap. This is how to do it.

var

  HCursor: THandle;

begin

  //Get the handle of the current cursor

  HCursor := Screen.Cursors[Ord(Screen.Cursor)];

  //Draw the icon to a canvas

  DrawIconEx(MyBitmap.Canvas.Handle,

    XPos,Ypos,HCursor,32,32,0,0,DI_NORMAL);

end;



See DrawIconEx in the Delphi help for combinations which may replace DI_NORMAL, like DI_MASK or DI_DEFAULTSIZE

 

Share this article!

Follow us!

Find more helpful articles: