Ｃｈａｐｔｅｒ４． 拡張関数

４.２ システム関数

関数名

S@IMESETEDITMODE

機能

日本語エディトの開始と終了を設定する。

書式

S@IMESETEDITMODE(mode)

《パラメーター》

mode	int。 ０：日本語エディットを終了する。 １：日本語エディットを開始する。

解説

日本語入力にはエディット機能付

用例

日本語エディト機能のサンプル

CH=G@SETUP(400,100,16,1)
S@IMESETMODE(1)
S@IMESETEDITMODE(1)
LOOP
  G@CHRCLEAR(CH)
  S@IMEGETEDITSTR(0)
  MX = 0
  I = 1
  LOOP
    MOJI$ = S@IMEGETEDITSTR( I )
    IF MOJI$ == "" THEN
      BREAK
    ENDIF
    ST=S@IMEGETEDITSTATE( I )
    SWITCH(ST)
    CASE 1:
      G@FONT( 24 , 0 , 0 , 3 , "ＭＳ 明朝" )
      BREAK;
    CASE 2:
      G@FONT( 24 , 0 , 1 , 3 , "ＭＳ 明朝" )
      BREAK;
    CASE 3:
      G@FONT( 24 , 0 , 2 , 3 , "ＭＳ 明朝" )
      BREAK;
    ENDSWITCH
    G@PRINT(CH,MX,0,MOJI$)
    MX = MX + LENG(MOJI$)*12
    I = I + 1
  ENDLOOP
  WKEKKA$ = S@IMEGETEDITRESULT()
  IF WKEKKA$ <> "" THEN
    KEKKA$ = WKEKKA$
  ENDIF
  G@FONT( 24 , 0 , 0 , 3 , "ＭＳ 明朝" )
  G@PRINT(CH,0,64,KEKKA$)
  CUR=S@IMEGETEDITCOLUMN()
  G@PRINT(CH,12*CUR,32,"^")
  G@FLIP()
ENDLOOP