Ver Mensaje Individual
  #1  
Antiguo 29-01-2024
Parsec Parsec is offline
Miembro
 
Registrado: abr 2006
Posts: 143
Reputación: 19
Parsec Va por buen camino
Poner un texto en una imagen

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.
Responder Con Cita