XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Tooltipp avec Bitmap et 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,s'il te plaît qui souris zum Testen über qui Buttons aller
BUTTON&=CREATEBUTTON(%HWND,Info,10,10,100,20)
tip.SetToolTip %HWND,BUTTON&,Ist cela pas joli?+chr$(10)+allez comment toujours 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 aussi avec animierten Icônes+chr$(10)+déjà la fois quelque chose comme gesehen?+chr$(10)+chr$(10)+eh bien très variable!+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 avec Bildern+chr$(10)+© 2004 by Rolf Koch+chr$(10)+s'il te plaît qui beiliegende TTIPUNIT.HTM lesen,INFO,64)

    ENDIF

WEND

DESTROYWINDOW(TIP1&)	sûrement ist sûrement.
DESTROYWINDOW(TIP2&)
##############################################################################
TOOLTIP UNIT (Ab XPROFAN 8.0)
VERSION 2.0 - 28.02.2005 - Hinweise siehe entier unten!
qui Unit um aussergewöhnliche Tooltips avec Bildern anzuzeigen.
Binden vous qui Unit per:
 $U ttip.pcu = tip.
am Anfang des Programms un.
Erstellen vous übliche Objekte comment Buttons u.s.w.
Laisser Button1&=Createbutton.......
eh bien erstellen vous trop dem erstellten objet den Tooltip:
tip.SetToolTip %HWND,BUTTON1&,Ist cela pas joli?+chr$(10)+allez comment toujours mehrzeilig,RGB(255,255,210),RGB(0,0,255),TIP1.BMP
tip1&=&(0)
qui paramètre:
%HWND = cela Hauptfenster sur welchem cela erstellte objet (z.B. Button) liegt.
Button1& = cela Objekthandle, welchem qui Tooltip zugeordnet volonté soll
Ist cela pas ..... = qui Text, quel im Tooltip angezeigt volonté soll.
RGB(....) = qui Hintergrundfarbe des Tooltips
RGB(....) = qui Textfarbe des Tooltips
TIP1.BMP = qui Grafik, quelle dessus im Tooltip angezeigt volonté soll:
qui Unit erkennt automatisch, um welchen Typ Grafik es sich actes.
Ist qui Extension *.BMP, wird une Bitmap eingebunden.
Ist qui Extension *.ANI, wird une Animation angezeigt.
s'il te plaît tenir compte de:
Erstellen vous un Bitmap avec den Massen: 14x350 (wobei 350 suffire sollte, desto länger desto besser, là es je pour Longueur du texte sonst pas besonders bien aussieht)!
si vous une Animation (*.ani) verwenden ist es designtechnisch am schönsten, si vous GETSYSCOLOR(15) comme Tooltiphintergrundfarbe choisir!
Am Schluss des Programmes am besten wieder per
Destroywindow(Tip1&) u.s.w aus dem grenier entfernen.
NEW IN VERSION 2.0
si vous une Animation magasin, so mettons vous s'il te plaît anstatt:
tip.SetToolTip %HWND,BUTTON1&,Ist cela pas joli?+chr$(10)+allez comment toujours mehrzeilig,RGB(255,255,210),RGB(0,0,255),TIP1.ANI
2 weitere paramètre:
tip.SetToolTip %HWND,BUTTON1&,Ist cela pas joli?+chr$(10)+allez comment toujours mehrzeilig+chr$(10),RGB(255,255,210),RGB(0,0,255),TIP1.ANI,100,30
cet paramètre mettons qui Animation à Position X,Y im Tooltip.
mettons vous aussi per Chr$(10) Zeilenumbrüche et regarder vous sich Ergebnis à. Bedeutet vous peut qui Grafik à den Text anpassen.
(C) 2005 by Rolf Koch - Rokosoft - Koblenz