Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 09-08-2016
Avatar de cl2raul
cl2raul cl2raul is offline
Miembro
 
Registrado: sep 2008
Ubicación: La Habana, Cuba
Posts: 88
Poder: 18
cl2raul Va por buen camino
gracias

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
    { Private declarations }
  public
    { Public declarations }
  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.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como agregar texto a un listview kurono Varios 4 10-11-2009 04:23:23
Agregar texto con canvas a Timage pablopessoa Varios 4 22-11-2008 16:10:43
Bitmap a texto y texto a bitmap kotai Gráficos 15 16-01-2008 06:02:31
Agregar texto a un formulario al presionar un boton. D-MO HTML, Javascript y otros 4 26-12-2005 20:03:49
Agregar Texto a un TImage animal Gráficos 1 22-02-2005 13:18:28


La franja horaria es GMT +2. Ahora son las 23:26:28.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi