XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tooltipp mit Bitmap und Animationen erstellen (ab XProfan)
Lauffähig ab Profan-Version 5.0
DECLARE BUTTON&,Button2&,ENDE%
DECLARE TIP1&,TIP2&
Def GetSysColor(1) !USER32,GetSysColor
 $U ttip.pcu = tip.
WINDOWSTYLE 63
WINDOW 10,10-450,150
WINDOWTITLE TOOLTIP-UNIT DEMO © 2004 by Rolf Koch
CLS GetSysColor(15)
USEFONT MS SANS SERIF,13,0,0,0,0
SETDIALOGFONT 1
TEXTCOLOR RGB(255,0,0),-1
DRAWTEXT 15,40,Bitte die Maus zum Testen über die Buttons fahren
BUTTON&=CREATEBUTTON(%HWND,Info,10,10,100,20)
tip.SetToolTip %HWND,BUTTON&,Ist das nicht schön?+chr$(10)+Geht wie immer mehrzeilig,RGB(255,255,210),RGB(0,0,255),TIP1.BMP
TIP1&=&(0)
BUTTON2&=CREATEBUTTON(%HWND,Demo Ende,130,10,100,20)
tip.SetToolTip %HWND,BUTTON2&,Cool auch mit animierten Icons+chr$(10)+Schon mal sowas gesehen?+chr$(10)+chr$(10)+Nun sehr variabel!+chr$(10),GetSysColor(15),RGB(0,0,255),FLY.ANI,100,30
TIP2&=&(0)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    IF GETFOCUS(BUTTON2&)

        ENDE%=1

    ElseIf GETFOCUS(BUTTON&)

        MESSAGEBOX(Tooltips mit Bildern+chr$(10)+© 2004 by Rolf Koch+chr$(10)+Bitte die beiliegende TTIPUNIT.HTM lesen,INFO,64)

    ENDIF

WEND

DESTROYWINDOW(TIP1&)	sicher ist sicher.
DESTROYWINDOW(TIP2&)
##############################################################################
TOOLTIP UNIT (Ab XPROFAN 8.0)
VERSION 2.0 - 28.02.2005 - Hinweise siehe ganz unten!
Die Unit um aussergewöhnliche Tooltips mit Bildern anzuzeigen.
Binden Sie die Unit per:
 $U ttip.pcu = tip.
am Anfang des Programms ein.
Erstellen Sie übliche Objekte wie Buttons u.s.w.
Let Button1&=Createbutton.......
Nun erstellen Sie zu dem erstellten Objekt den Tooltip:
tip.SetToolTip %HWND,BUTTON1&,Ist das nicht schön?+chr$(10)+Geht wie immer mehrzeilig,RGB(255,255,210),RGB(0,0,255),TIP1.BMP
tip1&=&(0)
Die Parameter:
%HWND = Das Hauptfenster auf welchem das erstellte Objekt (z.B. Button) liegt.
Button1& = Das Objekthandle, welchem der Tooltip zugeordnet werden soll
Ist das nicht ..... = Der Text, welcher im Tooltip angezeigt werden soll.
RGB(....) = Die Hintergrundfarbe des Tooltips
RGB(....) = Die Textfarbe des Tooltips
TIP1.BMP = Die Grafik, welche oben im Tooltip angezeigt werden soll:
Die Unit erkennt automatisch, um welchen Typ Grafik es sich handelt.
Ist die Extension *.BMP, wird eine Bitmap eingebunden.
Ist die Extension *.ANI, wird eine Animation angezeigt.
Bitte Beachten:
Erstellen Sie ein Bitmap mit den Massen: 14x350 (wobei 350 genügen sollte, desto länger desto besser, da es je nach Textlänge sonst nicht besonders gut aussieht)!
Wenn Sie eine Animation (*.ani) verwenden ist es designtechnisch am schönsten, wenn Sie GETSYSCOLOR(15) als Tooltiphintergrundfarbe wählen!
Am Schluss des Programmes am besten wieder per
Destroywindow(Tip1&) u.s.w aus dem Speicher entfernen.
NEU IN VERSION 2.0
Wenn Sie eine Animation laden, so setzen Sie bitte anstatt:
tip.SetToolTip %HWND,BUTTON1&,Ist das nicht schön?+chr$(10)+Geht wie immer mehrzeilig,RGB(255,255,210),RGB(0,0,255),TIP1.ANI
2 weitere Parameter:
tip.SetToolTip %HWND,BUTTON1&,Ist das nicht schön?+chr$(10)+Geht wie immer mehrzeilig+chr$(10),RGB(255,255,210),RGB(0,0,255),TIP1.ANI,100,30
Diese Parameter setzen die Animation an Position X,Y im Tooltip.
Setzen Sie auch per Chr$(10) Zeilenumbrüche und schauen Sie sich Ergebnis an. Bedeutet Sie können die Grafik an den Text anpassen.
(C) 2005 by Rolf Koch - Rokosoft - Koblenz