DrawText not working

[ptspts]

Hello, I am writing a simple procedure that loads a 1bpp bmp file, adds the date, and saves the resulting picture. However, I never see the text in the resulting picture.

Code: Select all

    Dim oGdPicture      As New GdpicturePro.cGdPicture
   
    oGdPicture.SetLicenseNumber ("removed")
   
    oGdPicture.CreateImageFromFile "C:\Temp\test.bmp"
    oGdPicture.DrawText Format(Now(), "mm/dd/yyyy hh:nn AMPM"), 5, 5, 20, 0, RGB(0, 0, 0), "Arial", False
    oGdPicture.SaveAsBmp "C:\Temp\test2.bmp"
    oGdPicture.CloseNativeImage
   
    Set oGdPicture = Nothing


What am I doing wrong?

Thanks,
Dan

[ptspts]

I should add that I'm running version 3.5.0.1 of the OCX. I can't really upgrade since we have many users of this version, and newer versions do not appear to be binary compatible with the older one.

Also, I tried to upload the source .bmp file but I got an extension not allowed error. I also tried .bm_ and it didn't like that either.

[Loïc]

Hi,

Sorry but we stopped to maintain of 3.5 since ages.
I can only suggest to move to latest GdPicture Pro version available. it's free !

Thank you for your comprehension.

Loïc

[ptspts]

Hi,

Sorry but we stopped to maintain of 3.5 since ages.
I can only suggest to move to latest GdPicture Pro version available. it's free !

Thank you for your comprehension.

Loïc

Thanks Loïc. I tried the same code under version 4 and it did not work, but it did work with version 5.

Thanks,
Dan