'---------------------------------------------
'PICVIEW.BAS - A graphic viewer for Rapidq
'Shows JPG, GIF, BMP, PCX and other formats
'Uses nViewLib.dll as resource
'Freeware (c) 2003 by D. Folger
'---------------------------------------------
$OPTIMIZE on
$TYPECHECK on
$INCLUDE "\rapidq\include\rapidq.inc"
CHDIR "\rapidq\examples\graphics"
$OPTION ICON "\rapidq\examples\graphics\Eye.ico"
$RESOURCE ProgIcon AS "\rapidq\examples\graphics\Eye.ico"
'$RESOURCE nview AS "nviewlib.dll"

'IF FileExists ("nviewlib.dll") = 0 THEN
'   ExtractResource Resource(1),"nviewlib.dll"
'END IF

DIM OrgWidth AS INTEGER
DIM OrgHeight AS INTEGER
DIM Factor AS SINGLE
DIM Percent AS INTEGER
DIM Full AS INTEGER, Adj AS INTEGER, Zoom AS INTEGER

DECLARE FUNCTION NViewLibLoad LIB "NVIEWLIB" ALIAS "NViewLibLoad" _
  (FileName AS STRING, Progress AS INTEGER) AS INTEGER
DECLARE SUB FormResize
DECLARE SUB LoadFile
DECLARE SUB ShowImage
DECLARE SUB NewSize
DECLARE SUB FullSize
DECLARE SUB AdjustSize
DECLARE SUB DirChange
DECLARE SUB ZoomIn
DECLARE SUB ZoomOut
DECLARE SUB Minimize

CREATE Form AS QFORM
  Caption = "PicView"
  Width = 560 : Height = 425
  IcoHandle = ProgIcon
  Center
  WndProc = Minimize
  CREATE Panel AS qPanel
     Width = 180 : Height = 400
     BorderStyle = 1 : Align = 3
     CREATE Button1 AS qCoolBtn
       Left = 20 : Top = 3
       Width = 25 : Height = 25
       Caption = "+" : ShowHint = 1
       Hint = "Zoom in"
       onClick = ZoomIn
     END CREATE
     CREATE Button2 AS qCoolBtn
       Left = 55 : Top = 3
       Width = 25 : Height = 25
       Caption = "-" : ShowHint = 1
       Hint = "Zoom out"
       onClick = ZoomOut
     END CREATE
     CREATE Button3 AS qCoolBtn
       Left = 90 : Top = 3
       Width = 25 : Height = 25
       Caption = "Full" : ShowHint = 1
       Hint = "Full size of image"
       onClick = FullSize
     END CREATE
     CREATE Button4 AS qCoolBtn
       Left = 125 : Top = 3
       Width = 25 : Height = 25
       Caption = "Adj" : ShowHint = 1
       Hint = "Adjust image to window"
       onClick = AdjustSize
     END CREATE
     CREATE DirTree AS qDirTree
       Left = 2 : Top = 30 : Width = 170
       InitialDir = CURDIR$
       OnChange = DirChange
     END CREATE
     CREATE FileBox AS qFileListBox
       Left = 2 : Top = 230
       Width = 170
       Mask = "*.JPG;*.PCX;*.GIF;*.BMP;*.DIB;*.RLE;*.TGA;*.JIF;*.png"
       ShowIcons = 1
       onClick = LoadFile
     END CREATE
  END CREATE
  CREATE ScrollBox AS qScrollBox
    AutoScroll = 1 : Align = 5
    COLOR = &HFFFFFF
    CREATE Image AS qImage
      AutoSize = 1
      Stretch = 1
    END CREATE
  END CREATE
  CREATE StatusBar as qStatusbar
    addPanels = "","",""
    Panel(0).Width = 70
    Panel(1).Width = 50
  END CREATE
  onResize = FormResize
END CREATE
Form.ShowModal
'-------------
SUB FormResize
'-------------
 DirTree.Height = Panel.Height / 2 - 30
 FileBox.Top = Panel.Height/2
 FileBox.Height = Panel.Height / 2 - 8
 IF Full THEN FullSize
 IF Adj THEN AdjustSize
 IF Zoom THEN NewSize
END SUB
'----------
SUB LoadFile
'----------
 Image.Handle = NViewLibLoad (FileBox.FileName, 0)
 OrgWidth = Image.Width : OrgHeight = Image.Height
 StatusBar.Panel(0).Caption = " " + STR$(OrgWidth) + "x" + STR$(OrgHeight)
 StatusBar.Panel(2).Caption = " " + _
    MID$(FileBox.FileName,RINSTR(FileBox.FileName,"\")+1)
 AdjustSize 'Choose what you
 'FullSize 'like to start with
END SUB
'------------
SUB ShowImage
'------------
 IF Image.Height > ScrollBox.Height THEN
    ScrollBox.VertPosition = ScrollBox.VertRange/2 - ScrollBox.Height/2
 ELSE
    Image.Top = ScrollBox.Height/2 - Image.Height / 2
 END IF
 IF Image.Width > ScrollBox.Width THEN
    ScrollBox.HorzPosition = ScrollBox.HorzRange/2 - ScrollBox.Width/2
 ELSE
    Image.Left = ScrollBox.Width/2 - Image.Width / 2
 END IF
 Image.Stretch = 1
 StatusBar.Panel(1).Caption = " " + STR$(Percent) + "%"
END SUB
'----------
SUB NewSize
'----------
 Image.Height = INT(OrgHeight * Factor)
 Image.Width = INT(OrgWidth * Factor)
 Zoom = 1 : Full = 0 : Adj = 0
 ShowImage
END SUB
'-----------
SUB FullSize
'-----------
 Image.Width = OrgWidth
 Image.Height = OrgHeight
 Percent = 100
 Full = 1 : Adj = 0 : Zoom = 0
 ShowImage
END SUB
'----------
SUB AdjustSize
'----------
 IF ScrollBox.Width > OrgWidth AND ScrollBox.Height > OrgHeight THEN
    Factor = 1
 ELSEIF OrgWidth > OrgHeight THEN
    Factor = (ScrollBox.Width -10) / OrgWidth
 ELSE
    Factor = (ScrollBox.Height - 10) / OrgHeight
 END IF
 Image.Width = INT(OrgWidth * Factor)
 Image.Height = INT(OrgHeight * Factor)
 Image.Stretch = 1
 Percent = Image.Width /(OrgWidth / 100)
 Adj = 1 : Full = 0 : Zoom = 0
 ShowImage
END SUB
'------------
SUB DirChange
'------------
 FileBox.Directory = DirTree.Directory
END SUB
'-----------
SUB ZoomIn
'-----------
 IF Percent = 300 THEN EXIT SUB
 IF Percent MOD 10 THEN
    INC Percent, 10 - (Percent MOD 10)
 ELSE
    INC Percent, 10
 END IF
 Factor = Percent / 100
 NewSize
END SUB
'-----------
SUB ZoomOut
'-----------
 IF Percent = 10 THEN EXIT SUB
 IF Percent MOD 10 THEN
    DEC Percent, (Percent MOD 10)
 ELSE
    DEC Percent, 10
 END IF
 Factor = Percent / 100
 NewSize
END SUB