TOOLTIPCOLOR and TOOLTIPFONT problem

[rdonnay]

I got an unexpected error from Windows when trying to extract files from the zip.

[slobodan1949]

Hi Roger,

It exists in eXpress++ code:
<<< Jack Duijf's Single-Thread system -> oHelp := JD_MagicHelp():New()
All functions related to this are in _DCJDHLP.PRG and in _DCGETBX.PRG

In eXpress++, there is no example for using JD_MagicHelp() in any prg file.
I haven't been able to figure out how it works, and I have the impression that it's a good thing,
as soon as you put it in dclipx.dll

Please, could you write an example of using JD_MagicHelp() in this attached code:

#include "Appevent.ch"
#include "Xbp.ch"
#include "common.ch"
#include "dcdialog.ch"

PROCEDURE APPSYS()
RETURN
PROCEDURE MAIN()
TOOLTIPMAGIC()
RETURN
PROCEDURE TOOLTIPMAGIC()
LOCAL GetList := {}, GetOptions, oDlg
LOCAL hor, ver, xx,yy , oParent := SetAppWindow()
LOCAL aCUR := {"user32.dll",114}, of1, of2
of1 := "11.Verdana"
of2 := "11.Consolas Bold"
hor := 40
ver := 3
DC_ToolTipEnable( .T. )

yy := 0; xx := 0
@ xx,yy DCPUSHBUTTON CAPTION "BUTTON A" ;
ACTION { |x,y,z| msgbox("BUTTON A")} ;
SIZE hor,ver CURSOR aCUR FONT of2 ;
TOOLTIP " Test for ; button A "
xx := xx + ver + 0.2
@ xx,yy DCPUSHBUTTON CAPTION "BUTTON B" ;
ACTION { |x,y,z| msgbox("BUTTON B")} ;
SIZE hor,ver CURSOR aCUR FONT of2 ;
TOOLTIP " ;" +;
" Test for ; button B ;" +;
" "
DCGETOPTIONS ;
TOOLTIPCOLOR GRA_CLR_BLACK, GRA_CLR_YELLOW TOOLTIPFONT of1

DCREAD GUI OPTIONS GetOptions TITLE "Tooltip JD_MagicHelp" ;
FIT ;
PARENT @oDlg ;
EVAL {|o| SetAppWindow(o)} ;
MODAL
RETURN

[rdonnay]

This is one of Jack Djuif's contributions so that tooltips work in multiple threads.

If I can reproduce the problem, I can fix it.
Still trying to do that.