XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tooltip erstellen
Lauffähig ab Profan-Version 5.0
 $P+
------------ Für Tooltip -----------------------
Def InitCommonControls(0) !COMCTL32,InitCommonControls

Proc AddToolTip

    Parameters ___Handle&,___Text$
    String ___Text1#,0=___Text$
    LONG ToolinfoButton#,0=40Strukturgroesse
    LONG ToolinfoButton#,4=$11Flags
    LONG ToolinfoButton#,8=___Handle&
    LONG ToolinfoButton#,12=___Handle&
    LONG ToolinfoButton#,36=___Text1#Text
    @SendMessage(TipControl&,$0404,0,ToolInfoButton#)

EndProc

InitCommonControls()
declare tipcontrol&
Declare Tiptext$
Declare ToolinfoButton#
Dim ToolinfoButton#,40
Declare ___Text1#
Dim ___Text1#,255
TipControl&=@Control(tooltips_class32,,$D0000000,0,0,0,0,%Hwnd,0,%HInstance)Tooltip fuer Rest
SendMessage(TipControl&,1048,0,200)
DEF GetSysColor(1) !USER32,GetSysColor
declare exit&,e%
WindowStyle 40
window 0,0 - %MaxX,%MaxY
SetTrueColor 1
cls GetSysColor(15)
exit& = CreateButton(%HWnd,Beenden,100,100,100,100)
Tiptext$=Dieser Riesen-Button beendet
das wunderschöne Programm.
AddTooltip exit&,TipText$
clear e%

whilenot e%

    if GetFocus(exit&)

        e% = 1

    endif

wend

/../function-references/XProfan/end/'>end