Is this a windows gadget feature that graphics programs like PSP/PS use.
If not, how would you suggest going about it in b+ ?
If not, how would you suggest going about it in b+ ?
w=CreateWindow("draw",0,0,200,200) Global drawcanvas=CreateCanvas(0,0,200,200,w) w2=CreateWindow("zoom",200,200,400,400) Global zoomcanvas=CreateCanvas(0,0,400,400,w2) Repeat WaitEvent() Select EventID() Case $201 ;click mouse on drawcanvas If EventSource()=drawcanvas And MouseDown(1) SetBuffer CanvasBuffer(drawcanvas) Rect MouseX(drawcanvas), MouseY(drawcanvas), 20,20,0 FlipCanvas drawcanvas RefreshMag() EndIf Case $803 End End Select Forever End Function RefreshMag() SetBuffer CanvasBuffer(zoomcanvas) dx=0:dy=0 For y=0 To 200 For x=0 To 200 pixel=ReadPixel( x,y,CanvasBuffer(drawcanvas)) Color pixel Shr 16 And 255,pixel Shr 8 And 255,pixel And 255 Rect dx,dy,2,2,1 dx=dx+2 Next dy=dy+2 dx=0 Next FlipCanvas zoomcanvas End Function