> On May 9, 2018, at 12:23 PM, Alan Tilson wrote:
>
> Thank you Sannyasin and Keisuke, for sharing the process in converting the
> picture library for v16.
> However, my results are not good.
> Upon opening our system in v16 and going to Pictures almost everything
> displays as a camera wtih a red X across it and .pict underneath the X.
> After converting each .pict into .png I get a very small version of the
> same image except the .pict seems to have been replaced with .png.
> And if I leave out the TRANSFORM PICTURE line it does nothing.
> Any ideas would be appreciated!
> I am converting from v13 if that makes a difference.
> Thanks,
> Alan
>
> PICTURE LIBRARY LIST(arPicRefs;arPicNames)
> For ($el;1;Size of array(arPicRefs))
> $picRef:=arPicRefs{$el}
> $picName:=arPicNames{$el}
> GET PICTURE FROM LIBRARY($picRef;$picture)
> GET PICTURE FORMATS($picture;$arCodecIDs)
> If ($arCodecIDs{1}=".pict")
> CONVERT PICTURE($picture;".png")
> TRANSFORM PICTURE($picture;Transparency;"0x00FFFFFF")
> SET PICTURE TO LIBRARY($picture;$picRef;$picName)
> End if
> End for
So if I am reading this correctly, the conversion worked just fine, except for
the size. So it appears to me to be a scaling issue.
Are all your images too small by the same amount, or are some images exactly
right? If they are all too small then you can just add an additional line to
the conversion code to scale up the converted image.
To double the size of the image, add this line of code after CONVERT PICTURE
command:
TRANSFORM PICTURE($picture;Scale;2.0)
You will need to experiment to determine the correct scaling amount. It might
be 150% — or 1.5 — or some other value.
Also the TRANSFORM PICTURE($picture;Transparency;"0x00FFFFFF”) line appears to
not be incorrect. The “0x00FFFFFF” should not be enclosed in quotes. Just
0x00FFFFFF. TRANSFORM PICTURE takes numeric parameters not string parameters.
See the documentation
http://doc.4d.com/4Dv16/4D/16.3/TRANSFORM-PICTURE.301-3651660.en.html
Tim
*****************************************
Tim Nevels
Innovative Solutions
785-749-3444
timnev...@mac.com
*****************************************
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ: http://lists.4d.com/faqnug.html
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
