PureBoard

Code: Alles auswählen

#HH_DISPLAY_TEXT_POPUP = $e

Structure HH_POPUP
cbStruct.l
hinst.l
idString.l
pszText.s
ppoint.point
clrForeground.l
clrBackground.l
rcMargins.rect
pszFont.s
EndStructure

pp.HH_POPUP

pp\cbStruct = SizeOf(pp)
pp\pszText = "1 2 3 4 5 6 7 8 9 0 test"
pp\ppoint\x = 300
pp\ppoint\y = 300
pp\clrForeground = RGB(255, 0, 0)
pp\clrBackground = RGB(0, 0, 255)
pp\rcMargins\left = -1
pp\rcMargins\top = -1
pp\rcMargins\right = -1
pp\rcMargins\bottom = -1
pp\pszFont= "Arial, 40, , BOLD"

OpenLibrary(1,"hhctrl.ocx") 
F1 = IsFunction(1, "HtmlHelpA")  

popuphandle = CallFunctionFast(F1,0,0,#HH_DISPLAY_TEXT_POPUP,@pp)

;...
Delay(6000)
;...

CloseLibrary(1)