Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   introducir texto en imagen (https://www.clubdelphi.com/foros/showthread.php?t=86672)

FabianSiza 14-09-2014 19:50:11

introducir texto en imagen
 
Hola amigos estoy tratando de hacer un programa para importar una imagen con Timage y ponerle textos como precio y nombre con Labels que puse dentro de la Timage pero cuando exporto la imagen sale la imagen normal sin los textos como puedo hacer para que quede con los textos y le puse figuras con Tshape y tampoco salen lo unico que hice fue arrastrar esos componentes dentro de la Timagen asi esta bien? Gracias.

ecfisa 14-09-2014 21:31:59

Hola FabianSiza, bienvenido a Club Delphi :)

Por lo que comentas, aparentemente los Labels y Shapes quedan ocultados detrás de la imágen, tendrías que traerlos al frente.

Ejemplo:
Código Delphi [-]
  Label1.BringToFront; // Label1 al frente
  Shape1.BringToFront; // Shape1 al frente
También lo podes hacer en tiempo de diseño: Seleccionado el control (Label, Shape, etc) -> botón derecho del mouse -> Control -> Bring to Front.

Saludos :)

FabianSiza 14-09-2014 22:26:02

hola Gracias pero ya habia pensado eso y ya los habia puesto al frente logre exportar un texto con la imagen pero con otra forma con este codigo
Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
var
  AnteriorBkMode: integer;
  texto:string;
begin
  with Image12.Canvas do begin
    Brush.Color := clRed;
    TextOut(1000, 1000, texto);
    AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
    TextOut(350, 380, Edit1.Text);
pero es mas tedioso y solo funciona con imagenes .bmp y no se como hacerlo con los Tshape -_-


La franja horaria es GMT +2. Ahora son las 13:43:21.

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