manage accented chars from keyboard

[jmburnod]

I'm looking to manage the accented letters input from keyboard.
I wrote a function that works but I'm wondering if there is not a simplest or more elegant way

Code: Select all

local sKeyUpSpec
on rawkeyup pKey
   if the uMyjeu of this cd = "TexteAvecTrous" then
      if pKey is in "43,61,93" then--- "43 graveOnly,61 circumflex, 93 trema"
         put pKey into sKeyUpSpec
      end if
   end if
   pass rawkeyup
end rawkeyup

on keyUp pKey
   answer getLetterAccentSpec(pKey)
   ClearsKeyUpSpec
end keyUp

function getLetterAccentSpec pKey,pSpec
   put "61,93,43" into tAccentSpec
   if sKeyUpSpec <> empty then
      put itemoffset(sKeyUpSpec,tAccentSpec) into tAccentSpecFound
      if tAccentSpecFound = 0 then return pKey
   end if
   put "aâä,eêë,iîï,oôö,uûüù" into tLetterTarget
   put itemoffset(pkey,tLetterTarget) into tLetterFound
   if tLetterFound = 0 then return pKey
   put char (tAccentSpecFound + 1) of item tLetterFound of tLetterTarget into tLetterAcc
   return tLetterAcc
end getLetterAccentSpec

on ClearsKeyUpSpec
    put empty into sKeyUpSpec
end ClearsKeyUpSpec

Best regards
Jean-Marc

[richmond62]

This is a start to your problem using Function keys:

I have set things up ONLY for one character: à

as a proof of concept.

You need 3 field called "KODE3", "KEYZ" and "KEYZZ" and this in the cardScript:

on functionKey FK
put the keysdown into fld "KEYZ"
end functionKey

on keyDown
put empty into fld "KODE3"
set the useUnicode to true
put the keysdown into fld "KEYZZ"
if fld "KEYZ" contains "65470" then
if fld "KEYZZ" contains "97" then
set the unicodeText of fld "KODE3" to numToChar(224)
end if
end if
end keyDown

So first you press F1 and then 'a'.

Obviously you can extend this, so that F2, F3, F4 . . . can signal different diacritical marks,

and you can expand inside the loops to allow diacritical marks on other letters.