Posted by Robert G Laurin on March 26, 2004 at 09:59:12:
In Reply to: Re: (Draw Image) & (Draw Bitmap) are they working for you ? posted by Robert G Laurin on March 23, 2004 at 19:29:47:
I followed Brian's instructions to set a (WallPaperColor) before executing a (Draw Bitmap) and it finally shows my Bitmap!
Now, I had to center that Bitmap in my COSW session Window.
Since the x,y coordinate uses by default an odd coordinate system (I dunno which), I choose to use the (Map Mode) with the MM.QCRTROWCOL (=4) value. I Can now center my image in the session windows...
I can center horizontally but not vertically.
So the command:
Print (Draw Bitmap = 0, 0, 80, 24, 100, 100, 6);MyBitmapPath$
displays my bitmap centered horizontally, but verticaly my image is almost off my screen at the bottom. If I change the value 24 (bottom) to lower values and my Image moves up but is NEVER centered vertically... Even with a very small value (like 2) the image is still not quite centered and never moves up more than half of the screen.
I tried this code at different resolutions (font size) and the result was similar. Same thing to full screen (Maximized).
The code looks like this:
CLEAR
PRINT (0) (CPL80)
PRINT (0) (Wall Paper Color=255,255,240)
PRINT (0) (Map Mode = 4)
LET PATH$ = PATH('SRC')+'MyImage.BMP'+'@00@'
PRINT (0) (Draw Bitmap = 0, 0, 80, 24, 100, 100, 6);PATH$
INPUT (0) ''
PRINT (0) (Wall Paper Remove)
RUN 'CED'
My Image is a small 224x207 pixels image.
Additional Problems:
- If (Draw Bitmap) is replaced with (Draw Image), the image is NOT displayed.
- If (CPL80) and (Wall Paper Color) are combined in a single PRINT, COSH crashes with the error:
Application Error
COSH caused a general protection fault
in module COSH.EXE at 000C:1DC2
This has been tested using Comet 2004 Build 333 with REL 04.01