Cursor no GET destacar com INSERT

[scom]

Ola amigos

Tenho um sistema em xharbour modo console, e um cliente me passou uma situação e até então não tinha percebido,
Quando ele esta no GET e aperta o insert para inserir textos o cursor fica do mesmo jeito, ou seja com insert ligado ou desligado o cursor no GET fica do mesmo jeito pequeniminho....alguem tem alguma ajuda sobre isto.

[alxsts]

Olá!

O código abaixo deveria funcionar. Testei em Harbour e xHarbour mas a mudança de formato do cursor não acontece...

Em Clipper isto funcionava (não me lembro mais com certeza). Se não funcionar, teria que embutir esta funcionalidade no GetSys.Prg.

Código: Selecionar todos

#include "set.ch"
#include "inkey.ch"
#include "setcurs.ch"

Procedure Main()

   LOCAL cCod As Numeric
   LOCAL cNome As Character
   LOCAL bSavIns As CodeBlock
   LOCAL GetList As Array := {}  

Altd()

   REQUEST HB_CODEPAGE_PTISO
   HB_CDPSELECT("PTISO")

   SetMode(25,80)
   CLS

   @ 10, 10 SAY "Código:" Get cCod PICT "9999"
   @ 12, 10 SAY "Nome  :" Get cNome PICT "@!"

   SetCursor( If( ReadInsert(), SC_INSERT, SC_NORMAL ) )

   bSavIns := Setkey( K_INS, { || InsToggle() } )

   WHILE LastKey() != K_ESC   
      cCod := Space(4)
      cNome := Space(20)

      Readmodal( GetList)

      Setcursor( SC_NONE )
      Setkey( K_INS, bSavIns )
   ENDDO

   RETURN
//-------------------------------------------------------------------------------------------------------
STATIC PROCEDURE InsToggle()

   If Readinsert()
      Readinsert( .F. )
      Setcursor( SC_NORMAL )
   Else
      Readinsert( .T. )
      Setcursor( SC_INSERT )
   Endif

   RETURN
//-------------------------------------------------------------------------------------------------------

[Kapiaba]

Código: Selecionar todos

/*
 * $Id: cursrtst.prg,v 1.1.1.1 2001/12/21 10:45:42 ronpinkas Exp $
 */

proc main
Local x
? "This lists the cursor modes, along with the expected shape"
? "Press a key after each example"
?
for x := 0 to 4
  CursTest( x )
next
? "Note: In Windows Console mode, Special2 can not be emulated (it is 2/3 size)"

SetCursor(1)

Proc CursTest( nCurs )
Local aTypes := { "None",    "Underline", "HalfBlock", "FullBlock",   "Upper Half"}
Local aNames := { "SC_NONE", "SC_NORMAL", "SC_INSERT", "SC_SPECIAL1", "SC_SPECIAL2"}

SetCursor( nCurs )
++nCurs
? Padr(aNames[nCurs],11), PadR(aTypes[nCurs],11), Str(SetCursor(),3)
Inkey(0)

[alxsts]

Olá!

Testei o código que postei acima com Clipper 5.2e e funciona perfeitamente.

O Harbour e xHarbour não são compatíveis com o Clipper neste código. Se alguém puder postar no grupo de desenvolvedores, agradeço.