Windows "wait" cursor shape suggestion

[Carlo Hogeveen]

The below demo macro shows alternate cursor shapes while running in Windows GUI TSE.
More specifically, the text cursor disappears and the mouse cursor takes alternate shapes.

My actual need was and is to show a spinner during longer macro operations, and I can now do so.
I would like to suggest that this might also be nice to have as a native Windows GUI TSE feature.

Carlo


/*
The alternate cursor shapes automatically disappear when the editor is idle.

Because I only need the spinner shape IDC_WAIT during a running macro,
my suggestion is that it would be "nice to have" for
Set(Cursor, ON)
Set(Cursor, OFF)
to be extended with
Set(Cursor, _CURSOR_WAIT_)
.
*/

#define IDC_ARROW 32512
#define IDC_IBEAM 32513
#define IDC_WAIT 32514
#define IDC_CROSS 32515
#define IDC_UPARROW 32516

#define NULL 0


dll "<user32.dll>"
integer proc LoadCursor(
integer hInstance,
integer lpSubKey // Was: [in] LPCSTR
):'LoadCursorA'

integer proc SetCursor(
integer hCursor
)
end


proc Main()
integer module_instance = NULL
integer h_cursor = 0
integer i = 0
integer t0 = 0

for i = IDC_UPARROW downto IDC_ARROW
h_cursor = LoadCursor(module_instance, IDC_ARROW)
SetCursor(h_cursor)

Sound(200 , 200)
Delay(1)

h_cursor = LoadCursor(module_instance, i)
SetCursor(h_cursor)

if i <> IDC_ARROW
t0 = GetTime()
while GetTime() < t0 + 400
Delay(1)
endwhile
endif
endfor

PurgeMacro(CurrMacroFilename())
end Main

[Carlo Hogeveen]

Oops,
In my enthusiasm I jumped to erroneous conclusions about the text cursor.
The new method only affects the mouse cursor.
It therefore does not make sense to natively implement it in TSE using TSE's "Cursor" variable as the macro's comments suggested.
A new TSE "MouseCursor" variable or a new function might be better solution.

Carlo

[S.E. Mitchell]

I will work on this - thanks for the suggestion!
--
Sammy Mitchell

> --
>
> ---
> You received this message because you are subscribed to the Google Groups "SemWare TSE Pro text editor" group.
> To unsubscribe from this group and stop receiving emails from it, send an email to semware+u...@googlegroups.com.
> To view this discussion visit https://groups.google.com/d/msgid/semware/001401dc83c8%240bb71d00%2423255700%24%40ecarlo.nl.