| 123456789101112131415161718192021222324252627282930 |
- SuperStrict
- 'Prompt the user for an image file
- Local path:String = RequestFile("Select an Image File","Image Files:png,jpg,bmp")
- Local pix:TPixmap
- 'Load the file into a TPixmap according to its format
- Select ExtractExt(path)
- Case "png"
- pix = LoadPixmapPNG(path)
- Case "jpg"
- pix = LoadPixmapJPeg(path)
- Default
- pix = LoadPixmap(path)
- EndSelect
- 'Ensure the file loaded
- If Not pix Then
- Notify "The File Could Not Load. The Program Will Now End."
- End
- End If
- 'Setup the window
- Graphics 600,600,0,60,2
- Repeat
- Cls
- DrawPixmap Image , 20 , 20
- Flip
- Until KeyDown(KEY_ESCAPE) Or AppTerminate()
|
