Code: Select all
OpenWindow(0,0,0,200,400,"Canvas test",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
CanvasGadget(1,0,0,200,310)
Global FONTE1=LoadFont(1,"Courier New",9)
Procedure Draw_text()
StartDrawing(CanvasOutput(1))
DrawingFont(FONTE1)
FrontColor($000000)
BackColor($FFFFFF)
For f = 0 To 10
DrawText(0,line,"not a link"):DrawText(140,line,"link",RGB(255,0,0))
line+15
Next
StopDrawing()
EndProcedure
Draw_text()
Repeat
Event=WaitWindowEvent()
If EventType()=#PB_EventType_MouseMove
y=(GetGadgetAttribute(1, #PB_Canvas_MouseY))
x=(GetGadgetAttribute(1, #PB_Canvas_MouseX))
StartDrawing(CanvasOutput(1))
z=Point(x,y)
StopDrawing()
If z = 255
SetGadgetAttribute(1,#PB_Canvas_Cursor, #PB_Cursor_Hand)
Debug "over a link"
Else
SetGadgetAttribute(1,#PB_Canvas_Cursor, #PB_Cursor_Default)
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
Thanks.
Edit: My example is not 100% correct. The red link can appear everywhere.