From: "Earl F. Glynn"
Subject: Re: Cursors
Date: Tuesday, March 13, 2001 9:34 AM

"David Brännvall" <david@brannvall.net> wrote in message news:3aae34d2$1_1@dnews...
> Is the "whole open hand" cursor available somewhere in windows or should I
> make one myself (used for scrolling the content of a PaintBox).
>
> btw, why isn't the cursor available as IDC_HAND with LoadCursor is not the
> same as the crHandPoint cursor in delphi?

// crHandPoint is slightly different from IDC_HAND

// Derived from postings to borland.public.cppbuilder.winapi and
// borland.public.delphi.winapi by CC Chong and MrBaseball34 on
// 18-19 Dec 2000

// Comments from CC Chong:
// "Yes IDC_HAND is the hidden resource of Windows. On Win98 and above (or since
// ActiveDesktop Update in IE4, if I'm not mistaken) Windows has the IDC_HAND
// cursor built in to the system."

// "But it is not the same as Delphi's crHandPoint. Delphi doesn't use Windows'
// IDC_HAND. crHandPoint is Delphi's own inclusion in it's Controls.res (found
// in your Delphi\lib)."
//
// "Delphi copies crHandPoint into your exe during linking.:
//
// Below, crHandpoint has a black "wrist band" that is not present with IDC_HAND.



Const
  // Declare the cursor constant that contains the resource identifier
  // of the system Hand cursor.

  IDC_HAND = MakeIntResource(32649);

  // Declare the cursor constant for our own use. Constant value must
  // not conflict with any existing Delphi cursor constant.

  NIDC_HAND = 32649;


procedure TForm1.FormCreate(Sender: TObject);

begin
  Screen.Cursors[NIDC_HAND] := LoadCursor(0, IDC_HAND)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursor := NIDC_HAND
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Screen.Cursor := crHandPoint
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Screen.Cursor := crDefault
end;


--
efg     efg2@efg2.com     Earl F. Glynn, Overland Park, KS  USA

efg's Computer Lab:  http://www.efg2.com/Lab
Mirror:  http://homepages.borland.com/efg2lab/Default.htm