[fpc-pascal] TBGRABitmap / bounds

[Philippe Lévi]

  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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20150721/3376611b/attachment.html>