Hello again.
Well I am having trouble again with taking a Dark Basic code example and converting it to Dark Basic Pro. I know the problem is due to my function but I'm not sure what the exact problem is. Is someone could help that would be great.
Rem Project: BitmapInfo Program
Rem Created: Wednesday, February 08, 2012
Rem ***** Main Source File *****
HIDE MOUSE
`load and display the BMP Image
SHOWBITMAP "earth.bmp", 1
WAIT KEY
CLS
`load and display the JPG image
SHOWBITMAP "Sunset.jpg", 2
WAIT KEY
END
FUNCTION SHOWBITMAP(FILENAME$)
`load the bitmap file
LOAD BITMAP(FILENAME$), 1
`display the bitmap file
COPY BITMAP 1, 0
`read information about the bitmap
width$ = STR$(BITMAP WIDTH(1))
height$ = STR$(BITMAP HEIGHT(1))
depth$ = STR$(BITMAP DEPTH(1))
`display information about the bitmap
SET CURRENT BITMAP 0
TEXT 460, 0, "Bitmap File: " + Filename$
TEXT 460, 20, "Dimensions: " + width$ + " X " + height$
TEXT 460, 40, "Color depth: " + depth$ + "-bit"
`delete the bitmap from memory
DELETE BITMAP 1
ENDFUNCTION SHOWBITMAP(FILENAME$)
When we all lend our power together, there is nothing we
can't do!
Please Lend me your STRENGTH!
