Hola, el siguiente código me produce una excepción bajo Android pero funciona perfectamente en Windows, ¿a alguien le paso lo mismo o tiene una idea de por que sucede?
Código Delphi
[-]function Tfrm_Hoy.calcularAnchoString(AText: string): Single;
var
bmp: TBitmap;
ancho: Single;
begin
bmp := TBitmap.Create;
try
bmp.Canvas.Font.Style := [];
bmp.Canvas.Font.Family := frmPrincipal.configuracion.Family;
bmp.Canvas.Font.Size := frmPrincipal.configuracion.tam_fuente;
ancho := bmp.Canvas.TextWidth(AText);
Result := ancho;
finally
bmp.Free;
end;
end;
Me canse de registrar la web pero no encuentro ningún problema similar, agradecería mucho una idea de que puede estar pasando