XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Tooltipp with Bitmap and Animationen create (ex XProfan)
executable ex Profan-Version 5.0
DECLARE BUTTON&,Button2&,ENDE%
DECLARE TIP1&,TIP2&
Def GetSysColor(1) !USER32,GetSysColor
 $u ttip.pcu = hint.
WINDOWSTYLE 63
WINDOW 10,10-450,150
WINDOWTITLE TOOLTIP-UNIT DEMO © 2004 by Rolf cook
CLS GetSysColor(15)
USEFONT MS SANS SERIF,13,0,0,0,0
SETDIALOGFONT 1
TEXTCOLOR RGB(255,0,0),-1
DRAWTEXT 15,40,Please The mouse to that testing über The Buttons rad
BUTTON&=CREATEBUTTON(%HWND,Info,10,10,100,20)
hint.SetToolTip %HWND,BUTTON&,is the not beautiful?+chr $(10)+goes How always mehrzeilig,RGB(255,255,210),RGB(0,0,255),TIP1.BMP
TIP1&=&(0)
BUTTON2&=CREATEBUTTON(%HWND,demonstration end,130,10,100,20)
hint.SetToolTip %HWND,BUTTON2&,calm too with animierten Icons+chr $(10)+already time something like seen?+chr $(10)+chr $(10)+now very 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 with Images+chr $(10)+© 2004 by Rolf cook+chr $(10)+Please The beiliegende TTIPUNIT.HTM reading,INFO,64)

    ENDIF

WEND

DESTROYWINDOW(TIP1&)	sure is sure.
DESTROYWINDOW(TIP2&)
##############################################################################
TOOLTIP UNIT (ex XPROFAN 8.0)
VERSION 2.0 - 28.02.2005 - Notes see integrally under!
The Unit circa aussergewöhnliche Tooltips with Images view.
link tappt im dunkeln The Unit by:
 $u ttip.pcu = hint.
on the beginning the Program one.
create tappt im dunkeln übliche Objects How Buttons u.s.w.
Let Button1&=Createbutton.......
now create tappt im dunkeln To the erstellten Objekt whom Tooltip:
hint.SetToolTip %HWND,BUTTON1&,is the not beautiful?+chr $(10)+goes How always mehrzeilig,RGB(255,255,210),RGB(0,0,255),TIP1.BMP
tip1&=&(0)
The Parameter:
%HWND = the Mainwindow on welchem the erstellte Objekt (in example Button) lying.
Button1& = the Objekthandle, welchem the Tooltip zugeordnet go should
is the not ..... = The Text, which in the Tooltip displayed go should.
RGB(....) = The Backgroundcolor the Tooltips
RGB(....) = The Textfarbe the Tooltips
TIP1.BMP = The graphic, which supra in the Tooltip displayed go should:
The Unit recognize automatically, circa whom type graphic it itself deals.
is The Extension *.BMP, becomes a Bitmap eingebunden.
is The Extension *.ANI, becomes a Animation displayed.
Please mind:
create tappt im dunkeln one Bitmap with whom measured: 14x350 (where 350 genügen ought to, so longer so rather, there it apiece to Text Length otherwise not particularly well looks)!
If tappt im dunkeln a Animation (*.ani) use is it designtechnisch on the most beautiful, if tappt im dunkeln GETSYSCOLOR(15) as Tooltiphintergrundfarbe dial!
on the Schluss the Program on the best again by
Destroywindow(hint1&) u.s.w from the memory . Remove
NEW IN VERSION 2.0
If tappt im dunkeln a Animation loading, so settle tappt im dunkeln Please instead of:
hint.SetToolTip %HWND,BUTTON1&,is the not beautiful?+chr $(10)+goes How always mehrzeilig,RGB(255,255,210),RGB(0,0,255),TIP1.ANI
2 further Parameter:
hint.SetToolTip %HWND,BUTTON1&,is the not beautiful?+chr $(10)+goes How always mehrzeilig+chr $(10),RGB(255,255,210),RGB(0,0,255),TIP1.ANI,100,30
These Parameter settle The Animation on position X,Y in the Tooltip.
settle tappt im dunkeln too by Chr$(10) Zeilenumbrüche and look tappt im dunkeln itself Result on. means tappt im dunkeln can The graphic on whom Text adjust.
(C) 2005 by Rolf cook - Rokosoft - Koblenz