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

Reply via email to