OpenXTalk Forums

Code: Select all

on mouseUp
   put the short name of me into XXX
   delete char 1 of XXX
   if shiftKey() is down then
      put numToCodePoint(XXX) after fld "fOUTPUT"
   else
      put numToCodePoint(XXX) & (" + ") after fld "fBUILDER"
      if altKey() is down then
         -- do nothing
      else
         send "mouseUp" to img "VV"
      end if
      end if
end mouseUp
------
on mouseEnter
   lock screen
   set the coloroverlay["color"] of me to yellow
   set the coloroverlay["opacity"] of me to "75"
   unlock screen
   put "sh" into fld "TRANS"
end mouseEnter
-------
on mouseLeave
   set the outerGlow of me to empty
   set the colorOverlay of me to empty
   put empty into fld "TRANS"
end mouseLeave

Code: Select all

on mouseUp
   put empty into fld "SCL"
   ask "Start of Unicode range in Decimal: "
   put it into KOUNT
   put (KOUNT - 1) into LOWEND
   ask "End of Unicode range in Decimal: "
   put it into LIMIT
   repeat until KOUNT > LIMIT
      put ("0x") & baseConvert(KOUNT, 10, 16) && KOUNT  && numToCodePoint(KOUNT) into line (KOUNT - LOWEND) of fld "SCL"
      add 1 to KOUNT
   end repeat
end mouseUp