PureBasic Forums - English

IceSoft wrote: Sun Jan 29, 2023 7:48 pm @Paul can you add this debug line before Select point (e.g.: line 1069) ?

Code: Select all

          Debug "Point(" +Str(cursorx) + "," +Str(cursory)+ ")"        
          Select Point(cursorx, cursory)

Should be always >= 0

Paul wrote: Sun Jan 29, 2023 10:34 pm Hi IceSoft,
When the cursor is moved around in the drawing area (without any resizing of the form), if cursorx or cursory >699 then Point() fails

  
        cursorx = GetGadgetAttribute(canvas, #PB_Canvas_MouseX)
        cursory = GetGadgetAttribute(canvas, #PB_Canvas_MouseY)
        If Not moveinprogress And cursorx < 699 And cursory < 699  ; < line 1067 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
          If StartDrawing(ImageOutput(imgLayers(zoomlevel)))    

Paul wrote: Mon Jan 30, 2023 12:11 am

Code: Select all

If Not moveinprogress And cursorx<width_viewport And cursory<height_viewport

I would also suggest changing line 126

Code: Select all

szIcon=24

to this so the icons are drawn the proper size for the higher DPI monitor with scaling.

Code: Select all

szIcon=24*DesktopResolutionX()

The drawing canvas is not scaled properly either but I won't complain about that