Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

#include "Setcurs.ch"
SET SCOREBOARD ON
eingabe=SPACE(20)
      @ 5,10  SAY  " Eingabe: "  GET eingabe
      SetCursor( IIf( ReadInsert(), SC_SPECIAL2, SC_NORMAL) )
      READ
Return

Code: Alles auswählen

   // Tasten zum Editieren
   CASE nKey == K_INS                  
        Set( _SET_INSERT, !Set(_SET_INSERT) )
        DispScoreboard()

PROCEDURE DispScoreboard()
   IF Set( _SET_SCOREBOARD )
      Eval( SCORE_BLOCK, Row(), Col(), ;
            IIf( Set(_SET_INSERT), NAT_MSG_INSERT_ON, NAT_MSG_INSERT_OFF) ;
          )

      // hier erweitern
      SetCursor( IIf( ReadInsert(), SC_SPECIAL2, SC_NORMAL) )
   ENDIF
RETURN

Code: Alles auswählen

// In the example, a very frequent use of
// ReadInsert() is illustrated:
//
//     Toggling the cursor form and insert mode
//     automatically when the insert key is pressed.
//
// In insert mode, a full block cursor is displayed; in
// overwrite mode, the cursor is a normal underscore.
// This occurs in a code block which is executed when the insert key
// is pressed. MemoEdit() is used as the data input function.

   #include "Inkey.ch"
   #include "Setcurs.ch"

   PROCEDURE Main
      LOCAL cText, bBlock

      cText  := MemoRead("TEST.TXT")

      bBlock := ;
         {|| SetCursor( ;                         // Changes cursor form
              IIf( ReadInsert( ! ReadInsert() ),; // Inserts .T.|.F.
                   SC_NORMAL, SC_SPECIAL1 ;       // value for
             )   ) ;                              // Setcursor()
         }


      SET SCOREBOARD OFF
      SetKey( K_INS, bBlock )         // Assigns code block to key
      cText := MemoEdit( cText, 5, 5, 20, 75 )    // Edits
      MemoWrit( "TEST.TXT", cText )

      SET SCOREBOARD ON
      SetKey( K_INS, NIL )                        // Reset

   RETURN

Code: Alles auswählen

#command  MENU TO <var> ;
      =>  <var> := _MenuTo(PromptList, <var>, UPPER(#<var>))

Code: Alles auswählen

#command  MENU TO <var> ;
      =>  <var> := ButtonMenuTo(promptList, <var>, UPPER(#<var>))

Code: Alles auswählen

SET OPTIMIZE OFF
SET RUSHMORE OFF
SET SMARTFILTER OFF