Scroll_bar

width 0,600
height 0,500

picture 100
   width 100,400
   height 100,1200

' scroll_bar 200
'   vertical 200
'   left 200,565
'   height 200,1200

LABEL Chimg,Scrol
DIM f$,fm$,im%,wi%,hi%,p%,sh%,sv%,wp%,hp%,i%,x%,y%,pas%
fm$ = "C:\TEMP\Image.bmp": ' fichier provisoire de travail
BORDER_SMALL 0: COLOR 0,180,255,255
p% = 10: wp% = 640: hp% = 480: ' Picture de base
WIDTH 0,wp%+50: HEIGHT 0,hp%+100: font_bold 0
ALPHA 4: TOP 4,3: CAPTION 4,"Image:"
EDIT 5: LEFT 5,40: WIDTH 5,300: ON_CLICK 5,Chimg
OPEN_DIALOG 6: FILTER 6,"Images JPG,BMP|*.jpg;*.bmp"
ALPHA 7: TOP 7,3: LEFT 7,LEFT(5)+WIDTH(5)+10
PICTURE p%: TOP p%,25: WIDTH p%,wp%: HEIGHT p%,hp%
sh%=p%+1: SCROLL_BAR sh%: TOP sh%,TOP(p%)+hp%: LEFT sh%,LEFT(p%): WIDTH sh%,wp%
          ON_CHANGE sh%,Scrol
sv%=sh%+1: SCROLL_BAR sv%: VERTICAL sv%: TOP sv%,TOP(p%): LEFT sv%,LEFT(p%)+wp%: HEIGHT sv%,hp%
          ON_CHANGE sv%,Scrol
          HIDE sh%: HIDE sv%
im%=sv%+1: IMAGE im%
END
' ============================================
Chimg:
   ' Choix de l'image de fond
   f$ = FILE_NAME$(6): TEXT 5,f$
   DimJpgBmp(f$):CAPTION 7,STR$(wi%)+" x "+STR$(hi%)+" pixels."
   IF UPPER$(FILE_EXTRACT_EXTENSION$(f$)) <> ".BMP"
       FILE_LOAD p%,f$: FILE_SAVE p%,fm$: f$ = fm$: ' conversion image jpg en bmp
   END_IF
   FILE_LOAD p%,f$: HIDE sh%: HIDE sv%
   IF wi%>wp% THEN SHOW sh%: MIN sh%,0: MAX sh%,wi%-wp%: POSITION sh%,0
   IF hi%>hp% THEN SHOW sv%: MIN sv%,0: MAX sv%,hi%-hp%: POSITION sv%,0
RETURN
' ============================================
Scrol:
   ' Déplacement des curseurs
   x% = 0: y% = 0
   IF HIDE(sh%) = 0 THEN x% = POSITION(sh%): ' horizontal
   IF HIDE(sv%) = 0 THEN y% = POSITION(sv%): ' vertical
   FILE_LOAD im%,f$: 2D_TARGET_IS p%: 2D_IMAGE_PASTE im%,0-x%,0-y%
RETURN
' ===========================================
SUB DimJpgBmp(f$)
    ' Image JPG ou BMP exclusivement, -> dimensions dans wi% et hi%
    DIM_LOCAL fm$: fm$ = "C:\TEMP\Provy.bmp"
    PICTURE 1099: HIDE 1099: FILE_LOAD 1099,f$: FILE_SAVE 1099,fm$: DELETE 1099
    FILEBIN_OPEN_READ 1,fm$
    FILEBIN_POSITION 1,18: wi% = FILEBIN_READ(1)+256*FILEBIN_READ(1)
    FILEBIN_POSITION 1,22: hi% = FILEBIN_READ(1)+256*FILEBIN_READ(1)
    FILEBIN_CLOSE 1
    FILE_DELETE fm$
END_SUB

' exemple image avec ScrollPanel.bas

label charger
dim SP%, res%, img$, ext$, i%

edit 1 : width 1,300
button 2 : left 2,width(1) : width 2,30 : caption 2,"..." :on_click 2,charger
open_dialog 3 : filter 3,"Image BMP,JPG|*.bmp;*.jpg"

dll_on "KGF.dll"

SP% = dll_call1("CreateScrollPanel",handle(0))
res% = dll_call5("LocateScrollPanel",SP%,0,30,400,300)

panel 10 : width 10,2000 : height 10,1500
picture 11 : parent 11,10 : width 11,2000 : height 11,1500
top 11,30
' activer la ligne suivante pour avoir l'image toujours en taille maximale
' stretch_on 11
res% = dll_call4("AttachToScrollPanel",SP%,handle(10),0,0)

end

charger:
  img$ = file_name$(3)
  if img$="_" then return
  if file_exists(img$)=0 then return
  ext$ = lower$(file_extract_extension$(img$))
  if instr(".bmp.jpg",ext$)=0 then return
  file_load 11,img$
  return