OpenEuphoria

caret cursor in a window

• Posted by Dan B Moyer <DANMOYER at PRODIGY.NET> Jan 14, 2000
• 511 views

All,

Greg Harris sent me a nice little piece of code which does let me put a
caret based cursor in a window; I modified it a little to what's below, in
case it's of any use to anyone else.

Dan Moyer

--------------------start code-----------------
include win32lib.ew

constant SimpleWin =
create( Window, "Simple Window", 0, Default, Default, 200, 100, 0 )

atom MyCursor
atom result

MyCursor = getHandle(SimpleWin)

result = c_func( xCreateCaret,{MyCursor,NULL,2,20})-- NULL is for bmp?
result = c_func( xSetCaretBlinkTime,{300})
result = c_func( xSetCaretPos,{100,25})
result = c_func( xShowCaret,{MyCursor})

WinMain( SimpleWin, Normal )

---------------- end code -------------------