Página 1 de 1
Cursor no GET destacar com INSERT
Enviado: 09 Mai 2014 11:42
por 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.
Cursor no GET destacar com INSERT
Enviado: 09 Mai 2014 15:51
por 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
//-------------------------------------------------------------------------------------------------------
Cursor no GET destacar com INSERT
Enviado: 09 Mai 2014 16:19
por 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)
Cursor no GET destacar com INSERT
Enviado: 09 Mai 2014 16:56
por 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.