PureBoard

Code: Alles auswählen

; ASM: invoke LineTo,para1,x,y
; PB:  LineTo_(para1,x,y)

PUSH y
PUSH x
PUSH para1
CALL _LineTo@12 ; LineTo_

Code: Alles auswählen

!PUSH dword [p.y]

Code: Alles auswählen

!Extrn _MoveToEx@16
!Extrn _LineTo@12

If OpenWindow(0, 0, 0, 220, 220, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    CanvasGadget(0, 10, 10, 200, 200)
    
    Repeat
        Event = WaitWindowEvent()
        
        If Event = #PB_Event_Gadget And EventGadget() = 0 
            If EventType() = #PB_EventType_LeftButtonDown Or (EventType() = #PB_EventType_MouseMove And GetGadgetAttribute(0, #PB_Canvas_Buttons) & #PB_Canvas_LeftButton)
                hDC = StartDrawing(CanvasOutput(0))
                If hDC
                    old_x=x
                    old_y=y
                    x = GetGadgetAttribute(0, #PB_Canvas_MouseX)
                    y = GetGadgetAttribute(0, #PB_Canvas_MouseY)
                    EnableASM
                        PUSH 0
                        PUSH old_y
                        PUSH old_x
                        PUSH hDC
                        CALL _MoveToEx@16
                        
                        PUSH y
                        PUSH x
                        PUSH hDC
                        CALL _LineTo@12
                    DisableASM
                    StopDrawing()
                EndIf
            EndIf
        EndIf    
        
    Until Event = #PB_Event_CloseWindow
EndIf