TBGRABitmap / bounds

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

TBGRABitmap / bounds

philippe sylvain levi

  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  -  [hidden email]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal