introducir texto en imagen

[FabianSiza]

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]

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]

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 -_-