home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / corel / Scripts / imagevw.csc < prev    next >
Text File  |  1998-02-06  |  2KB  |  68 lines
  1. rem Zobrazφ rastry v poli s m∞nitel. velik.
  2. rem ImageVw.csc  29.Φervence 1996
  3. rem Copyright 1998 Corel Corporation. VÜechna prßva vyhrazena.
  4.  
  5.  
  6. REM ***************************************************************
  7. REM * Global Data                                                 *
  8. REM ***************************************************************
  9.  
  10. #include "ScpConst.csi"
  11.  
  12. REM ***************************************************************
  13. REM * Main Dialog                                                 *
  14. REM ***************************************************************
  15. BEGIN DIALOG OBJECT MainDialog 200, 100, "Corel SCRIPT Image Viewer", SUB MainDialogSub
  16.     TEXT  5, 6, 120, 10, .Filename, ""
  17.     IMAGE  5, 25, 190, 70, .ImageView
  18.     PUSHBUTTON  135, 5, 60, 14, .Browse, "Browse"
  19. END DIALOG
  20.  
  21. 'Initialize the styles for the controls
  22. MainDialog.SetStyle STYLE_MINIMZERESIZE
  23. MainDialog.FileName.SetStyle STYLE_SUNKEN
  24. MainDialog.ImageView.SetStyle STYLE_SUNKEN
  25.  
  26. 'Execute the dialog
  27. DIALOG MainDialog
  28.  
  29. REM ***************************************************************
  30. REM * MainDialogSub: handles both the Browse button and the       *
  31. REM * dialog resizing.                                            *
  32. REM ***************************************************************
  33. SUB MainDialogSub(BYVAL ControlID%, BYVAL Event%)
  34.     DIM FileName AS STRING
  35.     DIM DialogWidth AS INTEGER
  36.     DIM DialogHeight AS INTEGER
  37.     DIM ImageHeight AS INTEGER
  38.     DIM ImageWidth AS INTEGER
  39.  
  40.     WITH MainDialog
  41.         IF Event% = EVENT_MOUSE_CLICK THEN
  42.             'Only Browse button
  43.             FileName$ = GETFILEBOX("Bitmap files (*.bmp)|*.bmp")
  44.             IF FileName$ <> "" THEN
  45.                 .FileName.SetText FileName$
  46.                 .ImageView.SetImage FileName$
  47.             ENDIF
  48.         ENDIF
  49.         IF Event% = 6 THEN
  50.             'Make sure the dialog has a reasonable size
  51.             DialogWidth% = .GetWidth()
  52.             IF DialogWidth% < 100 THEN DialogWidth% = 100
  53.             DialogHeight% = .GetHeight()
  54.             IF DialogHeight% < 60 THEN DialogHeight% = 60
  55.             .Move .GetLeftPosition(), .GetTopPosition(), DialogWidth%, DialogHeight%
  56.             'Resize the image
  57.             ImageHeight% = DialogHeight% - 30
  58.             ImageWidth% = DialogWidth% - 10
  59.             .ImageView.Move 5,25,ImageWidth%, ImageHeight%
  60.             'Resize the file name
  61.             .FileName.Move 5, 6, DialogWidth% - 80, 10
  62.             'Reposition the move button
  63.             .Browse.Move DialogWidth% - 65, 5
  64.         ENDIF
  65.     END WITH
  66. END SUB
  67.  
  68.