REVO2700
JpTooltip # @ R7 Japanese Tooltip U Osaka,Japanese U Lucida Grande U Lucida Grande,Unicode
U Lucida Grande U Lucida Grande U Geneva U Osaka,Japanese cREVGeneral breakpointconditions breakpoints breakpointstates stackfileversion 2.7 Pglobal jpTooltipID, tooltipTimerID
local lEnterSec, lStartSec
on setJpTooltip
put the seconds into lEnterSec
set the unicodeText of fld "jpTooltip" to uniencode(the cJpTooltip of the target, utf8)
set the width of fld "jpTooltip" to the formattedWidth of fld "jpTooltip" + 8
jpTooltipShow
end setJpTooltip
on jpTooltipShow
send jpTooltipShow to me in 100 milliseconds
put the result into jpTooltipID
if the seconds - lEnterSec >1 then
set the loc of fld "jpTooltip" to item 1 of the mouseLoc + the width of fld "jpTooltip" div 2, item 2 of the mouseLoc +26
show fld "jpTooltip"
put the seconds into lStartSec
tooltipTimer tStartSec
cancel jpTooltipID
end if
end jpTooltipShow
on tooltipTimer
send tooltipTimer to me in 100 milliseconds
put the result into tooltipTimerID
if the seconds - lStartSec >4 then
hide fld "jpTooltip"
cancel tooltipTimerID
end if
if the mouse is down then
hide fld "jpTooltip"
cancel tooltipTimerID
end if
end tooltipTimer
on endJpTooltip
hide fld "jpTooltip"
cancel jpTooltipID
cancel tooltipTimerID
end endJpTooltip
7 cREVGeneral scripteditorvscroll 155scripteditorselection 997 shikaku e ]
on mouseEnter
setJpTooltip
end mouseEnter
on mouseLeave
endJpTooltip
end mouseLeave
M 9 ` cJpTooltip 四角いボタン2 0000000 cREVGeneral revUniqueID
1224860514036scripteditorvscroll 0scripteditorselection 92 maru ex ]
on mouseEnter
setJpTooltip
end mouseEnter
on mouseLeave
endJpTooltip
end mouseLeave
9 a cJpTooltip 両脇が丸いボタンです6 0000000 cREVGeneral revUniqueID
1224867149426scripteditorvscroll 0scripteditorselection 92
sampleFld )p ]
on mouseEnter
setJpTooltip
end mouseEnter
on mouseLeave
endJpTooltip
end mouseLeave
@ - s> cJpTooltip 0このフィールドはタイプできません
cREVTable currentview send the scripts from Message Box
set the cJpTooltip of btn "shikaku" to unidecode("四角いボタンです", utf8)
set the cJpTooltip of btn "maru" to unidecode("丸いボタンです", utf8)
cREVGeneral scripteditorvscroll 0 revUniqueID
1224868573875scripteditorselection 92 "send the scripts from Message Box Gset the cJpTooltip of btn "shikaku" to unidecode("Vۉ0D000", utf8)
2
2
> Lset the cJpTooltip of btn "maru" to unidecode("N!0LN80D0000g0Y", utf8)
/
/
C ]set the cJpTooltip of fld "sampleFld" to unidecode("0S0n000000o0000g0M0~0[0", utf8)
4
4
T
jpTooltip h ffffff cREVGeneral revUniqueID
1224860520337 !0S0n000000o0000g0M0~0[0