forum.clarionlife.net

Код: Выделить всё

PROGRAM
  MAP
  END
  INCLUDE('KEYCODES.CLW')

Window WINDOW('TAB'),AT(,,245,182),FONT('Segoe UI',8,,),GRAY,DOUBLE
       PROMPT('Press TAB or Ctrl+T in text box'),AT(24,9),USE(?Prompt1)
       TEXT,AT(24,26,197,126),USE(?Text1),BOXED,ALRT(TabKey),ALRT(CtrlT)
       BUTTON('Button 1'),AT(74,160,45,14),USE(?Button1)
       BUTTON('Button 2'),AT(126,160,45,14),USE(?Button2)
     END
  CODE
  OPEN(Window)
  ! demo
  ?Text1{PROP:Text} = '1234567890123456789'
  ?Text1{PROP:Selected} = 5
  !
  ACCEPT
    CASE EVENT()
    OF EVENT:Alertkey
      CASE FIELD()
      OF ?Text1
        CASE KEYCODE()
        OF CtrlT
        OROF TabKey
          S# = ?Text1{PROP:Selected}
          ?Text1{PROP:Text} = SUB(?Text1{PROP:Text},0,?Text1{PROP:Selected}-1) & '<9>' & SUB(?Text1{PROP:Text},?Text1{PROP:Selected},LEN(CLIP(?Text1{PROP:Text}))-?Text1{PROP:Selected}-1)
          ?Text1{PROP:Selected} = S#+1
        END
      END
    END
  END
  CLOSE(Window)