;Beispielvariablen
Global window=CreateWindow("Test",5,5,265,284,0,01)
Global panel=CreatePanel(4,5,50,50,window,03):SetPanelColor panel,55,155,255
Global tagcan,event,source,dat,arial

fonttestcan=CreateCanvas(0,0,0,0,window)
arial=LoadFont("Comic Sans MS",17,0,0)
FreeGadget fonttestcan

Repeat
event=WaitEvent()
source=EventSource()
dat=EventData()
Select event
 Case $803:End
 Case $201
  Select dat
   Case 2
    Select source
     Case panel
      If tagcan=0 Then
       CreateTipTag("Dies ist ein Farbenpanel",(MouseX()-GadgetX(window))-5,(MouseY()-GadgetY(window))-25,255,255,225,arial,5,window)
      EndIf
     Default
      If tagcan<>0 Then
       FreeGadget tagcan:tagcan=0
      EndIf
    End Select
   Case 1
    If tagcan<>0 Then
     FreeGadget tagcan:tagcan=0
    EndIf
  End Select
End Select
Forever
End

Function CreateTipTag(tagmsg$,x,y,red,green,blue,font,wait,tagparent)
tagcan=CreateCanvas(x,y,0,0,tagparent)
SetBuffer CanvasBuffer(tagcan)
SetFont font
width=StringWidth(tagmsg$)+7:height=FontHeight()+6
FreeGadget tagcan
tagcan=CreateCanvas(x,y,width,height,tagparent)
SetGadgetShape tagcan,x,y,0,0
SetBuffer CanvasBuffer(tagcan)
Color red,green,blue
Rect 0,0,width,height,1
Color 0,0,0
Rect 0,0,width,height,0
FlipCanvas tagcan
For z=10 To 1 Step -1
 WaitEvent(wait):SetGadgetShape tagcan,x,y,width/z,height/z
Next
SetFont font
Color 0,0,0
Text 3,3,tagmsg$
FlipCanvas tagcan
ActivateGadget tagcan
End Function