Girar 90º una Etiqueta (Label)

vic_ia · #2 15-06-2005

hola...

te dejo el siguiente codigo, espero que sea lo que buscas, solo ajustalo a tus necesidades...

Código Delphi [-]procedure TForm5.Button1Click(Sender: TObject);
var
  LOGFONT : TLogFont;
  Font    : HFONT;
begin
  LOGFONT.lfHeight := 30;
  LOGFONT.lfWidth  := 10;
  LOGFONT.lfWeight := FW_NORMAL;
  LOGFONT.lfEscapement := 900; { 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(Form5.Canvas.Handle,Font);
  Form5.Canvas.TextOut(100,250,'mi texto en vertical);
  DeleteObject(Font);
end;

saludos...