On 3 Jul, 2006, at 3:42 PM, Yoshiyuki Hasegawa wrote:

> Hi
>
>
> What are "Pop up explanation" on and a formal way to call?
>
> I hope the method of displaying this.
>
> Yosiyuki
>
> 'Code that becomes origin
> '-----------------------------------

// add this line

include "Subs Help Tags.Incl"

> _cBev = 1
>
> local fn TestWnd
> dim as Rect   r
>
> SetRect(r, 0, 0, 300, 200)
> appearance window -1, "TestWnd", @r, _kDocumentWindowClass
>
> SetRect(r, 130, 70, 170, 110)
> //To this button
> appearance button _cBev, _activeBtn, 0,,,"Bevel", @r, ﾂ
>                   _kControlBevelButtonNormalBevelProc
>
// add this line

def buttonhelpsettext (_cBev,"Help Text")

> appearance window 1
> end fn
>
> local fn DoDialog
> dim as long ev, id
> ev = dialog(0)
> id = dialog(ev)
> select ev
> case _cursOverBtn
> select id
> case _cBev
> cursor _kThemePlusCursor, _themeCursorStatic
> end select
> case _cursOverNothing
> cursor _kThemeArrowCursor, _themeCursorStatic
> end select
> end fn
>
> fn TestWnd
>
> on dialog fn DoDialog
>
> do
> HandleEvents
> until gFBQuit
> '-----------------------------------
> --

--
Ted Spencer
--
The optimist sees the glass as almost full.
The pessimist sees the glass as almost empty.
The engineer sees the glass as being the wrong size.