OpenEuphoria

2. Re: Use of Scrollbars in IDE

• Posted by DerekParnell (admin) Jan 01, 2010
• 954 views

Hi, just to clarify, which part is giving you concern? Is it the values you get when you receive an w32HScroll event, or how to move the image?

In simple terms, the w32HScroll event tells you which scrollbar was moved and what is it's current position. You then have to calculate how much to move the image based on the change in the scrollbar's position.

By the way, I assume you are drawing the image into a child window and not the main window. In fact, I also assume you are actually doing the detail drawing onto a pixmap and then bliting it to the window during an w32HPaint event - as that is the easiest and most efficient method.

Anyhow, for example ... you have a pixmap for 1000 by 1000 pixels and a child window that shows a view into that pixmap of 400 x 400 pixels. This means that initially the child window only shows the top left 400x400 area of the full image. To see the rest you need to scroll it. So you create two bars (vertical and horizontal) in which each SMALL change represents one pixel and a LARGE change represents 100 pixels. The scale on each bars is 0 to 599, such that the thumb is at the top (vertical bar) when the scroll position is 0 and at the bottom of the bar when the position is 599. Why 599? Because that is the bottom pixel less the size of the viewport window 999 - 400. That makes it so the when the scroll thumb is at the bottom, the topmost pixel you see is 599 and the bottom pixel you see is 999 - the bottom of the image.

Now when the user moves the vertical scroll thumb to 250, for example, it means that the viewport window must show pixel number 250 as the top pixel. So, in your paint handler, you calculate the blit offset accordingly to copy the requested section of the pixmap image to the viewport window.

procedure onPaintViewPort(integer id, integer event, sequence parms) 
  vpos = getScrollPos( vertbar ) 
  hpos = getScrollPos( horzbar ) 
  bitBlt( TheViewPort,   -- copy to child window (viewport) 
             0, 0,       -- start output at (0,0) on the view port. 
             myImage,    -- copy from the pixmap containing the whole image 
             vpos, hpos, -- the upper left corner from where to start copying. 
             400, 400,   -- copy a 400x400 pixel portion 
             SRCCOPY )   -- do an exact pixel copy 
end procedure 

All the scroll event has to do is trigger a repaint of the view port.

procedure onScrolling(integer id, integer event, sequence parms) 
    repaintWindow(TheViewPort) 
end procedure 

Have a look at the 'scroller.exw' and 'scrollbg.exw' demos again.