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 gSeconds, jpTooltipID, tooltipTimerID
local lStartSec
on setJpTooltip
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
end setJpTooltip
on jpTooltipShow
send jpTooltipShow to me in 100 milliseconds
put the result into jpTooltipID
if the seconds - gSeconds >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
end tooltipTimer
7 cREVGeneral scripteditorvscroll 0scripteditorselection 60 shikaku e global gSeconds, jpTooltipID, tooltipTimerID
on mouseEnter
put the seconds into gSeconds
setJpTooltip
jpTooltipShow
end mouseEnter
on mouseLeave
hide fld "jpTooltip"
cancel jpTooltipID
cancel tooltipTimerID
end mouseLeave
M 9 ` cJpTooltip 四角いボタン2 0000000 cREVGeneral scripteditorvscroll 0 revUniqueID
1224860514036scripteditorselection 244 maru ex global gSeconds, jpTooltipID, tooltipTimerID
on mouseEnter
put the seconds into gSeconds
setJpTooltip
jpTooltipShow
end mouseEnter
on mouseLeave
hide fld "jpTooltip"
cancel jpTooltipID
cancel tooltipTimerID
end mouseLeave
9 a cJpTooltip 両脇が丸いボタンです6 0000000 cREVGeneral scripteditorvscroll 0 revUniqueID
1224867149426scripteditorselection 59
sampleFld )p global gSeconds, jpTooltipID, tooltipTimerID
on mouseEnter
put the seconds into gSeconds
setJpTooltip
jpTooltipShow
end mouseEnter
on mouseLeave
hide fld "jpTooltip"
cancel jpTooltipID
cancel tooltipTimerID
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 revUniqueID
1224868573875scripteditorvscroll 0scripteditorselection 244 "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 b cREVGeneral revUniqueID
1224860520337 !0S0n000000o0000g0M0~0[0