Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Cursor blink 2.

Status
Not open for further replies.

bereczki

Programmer
Joined
Jun 28, 2004
Messages
5
Location
HU
My cursor isn't blink in graph mode."

1. If I don't use LLIBG.LIB, how could I use the graph mode?
With other .LIB
2. In \CLIP53\SOURCE\SYS exist "getsys.prg".
To my mind must modifiyng this program. But how?


Thanks a lot TonHu for quick reply.
 
2. If you need to change getsys.prg, make a copy of the .prg in your application folder, and #include it in one of the application sources. It will overrule the default getsys from Clipper.lib

HTH
TonHu

N.b.: Replies should better go in the original thread ;-) Additional questions can (should) go in a new thread, but are often asked in a running thread.
 
Mr. TonHu is my friend.

All is OK with threads and thank you again.:)

 
Fern's Graphics Lib is good idea, but I appended (enclosed(?))at the end of "getsys.prg" the next function:

Static Function CursBlink()
Local nKey:=0,nCur
While nKey==0
kes(1)
If SetCursor()==SC_NONE
SetCursor(if;(SET_SET_INSERT) ,SC_INSERT,SC_NORMAL))
Else
SetCursor(SC_NONE)
Endif
nKey:=Inkey()
End
Return(nKey)


and I inserted at the right place (in other function call) in "getsys.prg".

After this save file as: getsysbz.prg

Link with: BLINKER FI %1,getsysbz, etc....

The cursor is blinking.
 
In my previous message is a wrong line:
"Setcursor(if;(SET_SET_INSERT),SC_INSERT,SC_NORMAL)"

Replace it with good :
SetCursor(if(SET( _SET_INSERT) ,SC_INSERT,SC_NORMAL))

TonHu,
what is in the end of your reply: "HTH" ?
 
HTH = Hope To Help or Hope This Helps ;-)

HTH
TonHu
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top