Ver Mensaje Individual
  #3  
Antiguo 29-01-2024
Delphi01 Delphi01 is offline
Miembro
 
Registrado: nov 2015
Ubicación: Barcelona,España
Posts: 68
Reputación: 9
Delphi01 Va por buen camino
Cita:
Empezado por Parsec Ver Mensaje
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.
Responder Con Cita