Well, tnx for answer. But this not remove problems.
Your command /If Not src Return/ test only existing of pixmap in the src variable. This maked code more safe, but error not in /src.Copy()/ command!!! Variable src is exists!!!
Error in the /src = CreatePixmap(w , h , src.format)/ command! After several (about 100) redims.
And do u know what printable characters in TImageFont class starts from 0 (null)! Or not? Are u is legal team member or I am? Prease make this test with couple of old code, or make your own for see character with code 33:
This must be "!" char. But result char is "?" with char-code 63!
Why printable chars haven't glyphs?
--
Kings Regards, Vlad.
ps:sorry for my bad english
Your command /If Not src Return/ test only existing of pixmap in the src variable. This maked code more safe, but error not in /src.Copy()/ command!!! Variable src is exists!!!
Error in the /src = CreatePixmap(w , h , src.format)/ command! After several (about 100) redims.
And do u know what printable characters in TImageFont class starts from 0 (null)! Or not? Are u is legal team member or I am? Prease make this test with couple of old code, or make your own for see character with code 33:
Local fontFile$ = GetFontsPath() + "verdana.ttf" Local font:TImageFont = LoadImageFont( fontFile, 12 ) Local bmp:TPixmap Local i% = 33 Local mi% = i '------------------------------------------------------------------------------ Local glyph:TImageGlyph = font.LoadGlyph(i) If glyph and glyph._image bmp = CreatePixmap( glyph._w, glyph._h+glyph._y, PF_RGBA8888, 4 ) bmp.Paste( glyph._image.pixmaps[0], 0,glyph._y ) Else bmp = CreatePixmap( 1, font.height(), PF_RGBA8888, 4 ) EndIf For i=i+1 To mi AddChar( bmp, font, i ) Next SavePixmapPNG( bmp, AppDir + "\image1.png" )
This must be "!" char. But result char is "?" with char-code 63!
Why printable chars haven't glyphs?
--
Kings Regards, Vlad.
ps:sorry for my bad english