XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Tooltipp con Mapa de bits y Animationen redactar (de XProfan)
Lauffähig de Profano-Versión 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 el Ratón para Testen über el Buttons fahren
BUTTON&=CREATEBUTTON(%HWND,Info,10,10,100,20)
tip.SetToolTip %HWND,BUTTON&,Ist el no schön?+chr$(10)+Geht como siempre 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 con animierten Icons+chr$(10)+Schon veces algo como gesehen?+chr$(10)+chr$(10)+Nun muy 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 con Bildern+chr$(10)+© 2004 by Rolf Koch+chr$(10)+Bitte el beiliegende TTIPUNIT.HTM lesen,INFO,64)

    ENDIF

WEND

DESTROYWINDOW(TIP1&)	sicher es sicher.
DESTROYWINDOW(TIP2&)
##############################################################################
TOOLTIP UNIT (Ab XPROFAN 8.0)
VERSION 2.0 - 28.02.2005 - Hinweise siehe bastante unten!
El Unit en aussergewöhnliche Tooltips con Bildern anzuzeigen.
Binden Sie el Unit por:
 $U ttip.pcu = tip.
al Anfang des Programms una.
Erstellen Sie übliche Objetos como Buttons u.s.w.
Let Button1&=Createbutton.......
Nun redactar Sie a el erstellten Objeto el Tooltip:
tip.SetToolTip %HWND,BUTTON1&,Ist el no schön?+chr$(10)+Geht como siempre mehrzeilig,RGB(255,255,210),RGB(0,0,255),TIP1.BMP
tip1&=&(0)
El Parámetro:
%HWND = Das Ventana principal en welchem el erstellte Objeto (por ejemplo Button) liegt.
Button1& = Das Objekthandle, welchem el Tooltip zugeordnet voluntad se
Ist el no ..... = Der Texto, welcher en el Tooltip adecuado voluntad se.
RGB(....) = El Color de fondo des Tooltips
RGB(....) = El Textfarbe des Tooltips
TIP1.BMP = El Grafik, welche oben en el Tooltip adecuado voluntad se:
El Unit erkennt automáticamente, en welchen Typ Grafik lo se actos.
Ist el Extension *.BMP, se una Mapa de bits eingebunden.
Ist el Extension *.ANI, se una Animation muestra.
Bitte Beachten:
Erstellen Sie una Mapa de bits con el Massen: 14x350 (wobei 350 genügen debería, desto länger desto mejor, como lo je después de Textlänge sonst no besonders bien aussieht)!
Wenn Sie una Animation (*.ani) uso es lo designtechnisch al schönsten, si Sie GETSYSCOLOR(15) como Tooltiphintergrundfarbe wählen!
Am Schluss des Programmes al besten otra vez por
Destroywindow(Tip1&) u.s.w de el Speicher entfernen.
NEU IN VERSION 2.0
Wenn Sie una Animation invitar, así conjunto Sie Por favor, anstatt:
tip.SetToolTip %HWND,BUTTON1&,Ist el no schön?+chr$(10)+Geht como siempre mehrzeilig,RGB(255,255,210),RGB(0,0,255),TIP1.ANI
2 weitere Parámetro:
tip.SetToolTip %HWND,BUTTON1&,Ist el no schön?+chr$(10)+Geht como siempre mehrzeilig+chr$(10),RGB(255,255,210),RGB(0,0,255),TIP1.ANI,100,30
Diese Parámetro conjunto el Animation a Position X,Y en el Tooltip.
Setzen Sie auch por Chr$(10) Zeilenumbrüche y schauen Sie se Ergebnis a. Bedeutet Sie puede el Grafik a el Texto adaptar.
(C) 2005 by Rolf Koch - Rokosoft - Koblenz