bmp := TBGRABitmap.Create(1024,1024, clBlack); bmp.FontHeight := 30; bmp.FontAntialias := true; bmp.FontStyle := [fsBold]; bmp.TextOut( 0, 0, textonaovazio, ColorToBGRA(ColorToRGB( clWhite)), taLeftJustify);
bounds := bmp.GetImageBounds; bounds contains 0,1024 0,1024 and I need bounds of text generated by TextOut. Is it avalaible somewhere? thank for any hint Philippe
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal