i did this:
my $LoadCursor = new Win32::API("user32", "LoadCursor", [N, N], P);
my $IDC_ARROW = 32512;
my $IDC_WAIT = 32514;
my $wait = $LoadCursor->Call(0, $IDC_HELP); # first param always zero
my $arrow = $LoadCursor->Call(0, $IDC_ARROW); # first param always zero
then i do this:
Win32::GUI::SetCursor($wait); if i move the mouse off the window and them
come back it is still invisible.
and the cursor dissapears. later on i do this:
Win32::GUI::SetCursor($arrow);
and then if i move the mouse off the window then come back the cursor is
arrow.
i am using windows nt 4.0 with service pack 4.
am i doing something wrong?
Chris
-----Original Message-----
From: Aldo Calpini [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 04, 1999 7:14 AM
To: [EMAIL PROTECTED]; Perl-Win32-Users Mailing List
Cc: [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui] mouse cosmetics
[EMAIL PROTECTED] wrote:
>> $C = new Win32::GUI::Bitmap("arrow.cur", 2); # 2 stands for cursor
>
>Last time I remember doing this, there was a LoadCursor() that could load a
>cursor resource or get a handle to various "stock cursors" - eg the
"current
>hourglass" etc.
well, now that you make me think about it, I've also implemented the
LoadCursorFromFile() API, but, as I said, next build will have a "regular"
Win32::GUI::Cursor class to accomodate both file-based and stock resources
:-)
>Can't this be called (with Win32::API) and passed to $w->SetCursor() ??
of course ;-)
$LoadCursor = new Win32::API("user32", "LoadCursor", [N, N]);
$IDC_APPSTARTING = 32650;
$C = $LoadCursor->Call(0, $IDC_APPSTARTING); # first param always zero
Win32::GUI::SetCursor($C);
this is a list of the available predefined cursor constants:
$IDC_ARROW = 32512;
$IDC_IBEAM = 32513;
$IDC_WAIT = 32514;
$IDC_CROSS = 32515;
$IDC_UPARROW = 32516;
$IDC_SIZE = 32640; # OBSOLETE: use IDC_SIZEALL
$IDC_ICON = 32641; # OBSOLETE: use IDC_ARROW
$IDC_SIZENWSE = 32642;
$IDC_SIZENESW = 32643;
$IDC_SIZEWE = 32644;
$IDC_SIZENS = 32645;
$IDC_SIZEALL = 32646;
$IDC_NO = 32648; # not in win3.1
$IDC_APPSTARTING = 32650; # not in win3.1
$IDC_HELP = 32651; # win4.0 and higher
bye,
Aldo Calpini
<[EMAIL PROTECTED]>
LIBERA ME DOMINE DE MORTE AETERNA
IN DIE ILLA TREMENDA
QUANDO COELI MOVENDI SUNT
ET TERRA