[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
