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;
LOGFONT.lfStrikeOut := 0;
LOGFONT.lfItalic := 0;
LOGFONT.lfUnderline := 0;
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.