CreateImage bug in V6.30?

[dangerfreak]

I think I found a bug in V6.30 concerning "CreateImage". If you create an image with a depth of 32 bit, you mustn't add an optional BackColor (parameter after the depth). Otherweise you always get a blank image, even if you draw anything on it later.

Note: If you try the same code with V6.21, it works.

Does not work with v6.30 (but with V6.21), results in a blank image:

Code: Select all

Enumeration
   #fenster
   #imageGadget
   #image
EndEnumeration

OpenWindow(#fenster,0,0,600,600,"TEST")

CreateImage(#image,500,500,32,#White)
StartDrawing(ImageOutput(#image))
LineXY(0,0,500,500,#Red)
StopDrawing()

ImageGadget(#imageGadget,0,0,500,500,ImageID(#image))

While WaitWindowEvent()<>#PB_Event_CloseWindow
   Delay(50)
Wend

Works with v6.30 (32 bit, no BackColor parameter):

Code: Select all

Enumeration
   #fenster
   #imageGadget
   #image
EndEnumeration

OpenWindow(#fenster,0,0,600,600,"TEST")

CreateImage(#image,500,500,32)
StartDrawing(ImageOutput(#image))
LineXY(0,0,500,500,#Red)
StopDrawing()

ImageGadget(#imageGadget,0,0,500,500,ImageID(#image))

While WaitWindowEvent()<>#PB_Event_CloseWindow
   Delay(50)
Wend

Works with v6.30 (depth 24 bit, with BackColor paramater):

Code: Select all

Enumeration
   #fenster
   #imageGadget
   #image
EndEnumeration

OpenWindow(#fenster,0,0,600,600,"TEST")

CreateImage(#image,500,500,24,#white)
StartDrawing(ImageOutput(#image))
LineXY(0,0,500,500,#Red)
StopDrawing()

ImageGadget(#imageGadget,0,0,500,500,ImageID(#image))

While WaitWindowEvent()<>#PB_Event_CloseWindow
   Delay(50)
Wend

Can someone please check that?

[RASHAD]

Hi

The backcolor used when the image is created.
If the image is 24-bit, use RGB() to get a valid color.
If the image is 32-bit, use RGBA() to get a valid color. For 32-bit image, special constants can be used as well:
- #PB_Image_Transparent which is similar to RGBA(255,255,255,0), white background which can help for light antialiasing.
- #PB_Image_TransparentBlack which is similar to RGBA(0,0,0,0), black background which can help for dark antialiasing.

The default backcolor is black if not specified.

Code: Select all

Enumeration
   #fenster
   #imageGadget
   #image
EndEnumeration

OpenWindow(#fenster,0,0,600,600,"TEST")

CreateImage(#image,500,500,32,$FFFFFFFF)
StartDrawing(ImageOutput(#image))
LineXY(0,0,500,500,#Red)
StopDrawing()

ImageGadget(#imageGadget,0,0,500,500,ImageID(#image))

While WaitWindowEvent()<>#PB_Event_CloseWindow
   Delay(50)
Wend

[mk-soft]

Code: Select all

...
CreateImage(#image,500,500,32,$FF000000 | #white)
...