Poner un texto en una imagen

[Parsec]

Hola a tod@s.

tengo este código que genera un texto con una pequeña inclinación:

Código Delphi [-]
var
 
  LOGFONT : TLogFont;
  Font    : HFONT;



begin
  LOGFONT.lfHeight := 30;
  LOGFONT.lfWidth  := 10;
  LOGFONT.lfWeight := FW_NORMAL;
  LOGFONT.lfEscapement := 500; { angulo expresado en decimas de grado }
  LOGFONT.lfStrikeOut  := 0; { distinto de cero para activarlo }
  LOGFONT.lfItalic     := 0; { distinto de cero para activarlo }
  LOGFONT.lfUnderline  := 0; { distinto de cero para activarlo }
  LOGFONT.lfFaceName := 'Tahoma';
  Font := CreateFontIndirect(LOGFONT);
  SelectObject(Form1.Canvas.Handle,Font);
  Form1.Canvas.TextOut(Form1.Image1.Left+label3.left,Form1.Image1.Top+label3.top,'Clouding administración');
  DeleteObject(Font);

Pero el texto lo pone en el form1 y no lo veo porque encima hay una imagen y me gustaría que apareciese el texto en Image1 (como si fuese un label)

Quedo pendiente y gracias de antemano.

[WHILENOTEOF]

Si lo que quieres es mostrarlo en pantalla, dibuja la imagen en el canvas del form igual que haces con el texto y después dibujas el texto. También puedes cargar la imagen, sobre el canvas de la iamgen dibujas el texto y después asignas la image al TImage

[Delphi01]

Empezado por Parsec

Hola a tod@s.

tengo este código que genera un texto con una pequeña inclinación:

Código Delphi [-]
var
 
  LOGFONT : TLogFont;
  Font    : HFONT;



begin
  LOGFONT.lfHeight := 30;
  LOGFONT.lfWidth  := 10;
  LOGFONT.lfWeight := FW_NORMAL;
  LOGFONT.lfEscapement := 500; { angulo expresado en decimas de grado }
  LOGFONT.lfStrikeOut  := 0; { distinto de cero para activarlo }
  LOGFONT.lfItalic     := 0; { distinto de cero para activarlo }
  LOGFONT.lfUnderline  := 0; { distinto de cero para activarlo }
  LOGFONT.lfFaceName := 'Tahoma';
  Font := CreateFontIndirect(LOGFONT);
  SelectObject(Form1.Canvas.Handle,Font);
  Form1.Canvas.TextOut(Form1.Image1.Left+label3.left,Form1.Image1.Top+label3.top,'Clouding administración');
  DeleteObject(Font);

Pero el texto lo pone en el form1 y no lo veo porque encima hay una imagen y me gustaría que apareciese el texto en Image1 (como si fuese un label)

Quedo pendiente y gracias de antemano.

Puedes utilizar un componente TLabel y establecer la propiedad Parent del TLabel como Image1.

[Neftali [Germán.Estévez]]

Tendrás que dar más detalles.
¿VCL/FMX? ¿Qué versión estás utilizando? ¿Qué evento estás utilizando?
Porque a mi con una sencilla prueba, el código que has puesto me está funcionando.



Otra cosa es que cuando hagas determinados "repintados" de componentes o del form, eso se pierda, pero es correcto, simplemente porque también debes repintar tu texto:




Para eso ya debes pensar dónde colocar ese código para realizar ese "repintado".

[Parsec]

Gracias a todos.

La solución ha sido sencilla: Al nombrar Neftalí lo del repintado se me ha ocurrido hacer un refresh del form y ya está.

Gracias de nuevo

[Neftali [Germán.Estévez]]

Otra opción sería capturar el mensaje del repintado del form (tipo WM_PAINT o similar) y en ese punto "repintar" el texto. De esa forma te aseguras que sólo se pinta cando es necesario, ni más ni menos veces.


En la parte privada del form defines:

Código Delphi [-]
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;

Y la implementación:

Código Delphi [-]
procedure TForma.WMPaint(var Message: TWMPaint);
begin
  inherited;
  // aquí llamas al procedimiento de repintar el texto
  ...
end;

De esta forma siempre que al form le llegue el mensaje de Repintarse, justo después volverá a repintar el texto.