Cursor blink 2.

[bereczki]

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.

 

[TonHu]

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.

 

[bereczki]

Mr. TonHu is my friend.

All is OK with threads and thank you again.

 

[TonHu]

1. an alternative graphics lib?

http://www.the-oasis.net/files/library/fgl_v30.zip

(Fern's Graphics Lib)

Just try it out, it also has nice docs ;-)

HTH
TonHu

 

[bereczki]

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.

 

[bereczki]

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" ?

 

[TonHu]

HTH = Hope To Help or Hope This Helps ;-)

HTH
TonHu