Display Image to CRT screen

[alepap]

How do you display an image JPG or BMP in a CRT screen?

[rdonnay]

Code: Select all

#INCLUDE "dcdialog.CH"

FUNCTION Main()

LOCAL GetList[0], oBitmap, oCrtWindow := SetAppWindow()

@ 0,0 DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP ;
      CAPTION '\exp20\bitmaps\wizard.bmp' ;
      SIZE 600,400 PIXEL

DCREAD GUI EXIT PARENT oCrtWindow

@ 23,0 SAY 'Here is some text'

wait

RETURN nil

[alepap]

Wow Roger, this amazing. Thank you.

Cho cho !

[alepap]

Once you have a bitmap on the screen how do you remove the bitmap to go back to the CRT Window without the bitmap?

[rdonnay]

Store the DCSTATIC object to a variable name:

@ .. DCSTATIC .. OBJECT oBitmapStatic


You can then manipulate it with:

oBitmapStatic:hide()
oBitmapStatic:show()

[alepap]

Wonderful. Works as a charm.

Choo choo !