gracias a todos pero debo aclarar que el TImage es de FMX por eso cambian un poco las cosas, uso FMX pq tiene muchas obciones gracias a los layout q hace mas facil el diseño de las aplicaciones...
BDWONG: gracias pero eso se usa en VCL y yo estoy usando FMX.
Ñuño Martínez: gracias y aqui les va un ejemplo y es copia casi fiel de los ejemplos de la ayuda de FMX.
Código Delphi
[-]unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
FMX.Controls.Presentation, FMX.Edit, FMX.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Bitmap.LoadFromFile(GetCurrentDir+'\01.jpg');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
MyRect: TRectF;
begin
MyRect:= TRectF.Create(50, 40, 200, 270);
Image1.Bitmap.Canvas.BeginScene;
Image1.Bitmap.Canvas.FillText(MyRect, '100 dias', false, 100,
[TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);
Image1.Bitmap.Canvas.EndScene;
end;
end.
quiero q observen bien en '100 dias', al mostrar el resultado pone 'dias 100', pero si pongo '100dias', muestra '100dias' o sea el problema esta en que no se porque rayos al separar los numeros de las letras y estos esten delante de las letras, el procedimiento prioriza las letras y luego los numeros... llevo un mes con esto y creo q la mejor solucion es crear una dll que use la libreria VCL me cree la imagen con el texto correcto y luego la coloque en el TImagen de FMX para mostrar alguien tiene mejor idea, esta pinta de mucho trabajo y poca eficiencia.