como escribir texto en diferentes angulos?

marcoszorrilla · #2 10-03-2005

Tengo este ejemplo con SpinButton para un Tpanel creo que sirva:

Código Delphi [-] 
 procedure TForm1.SpinEdit1Change(Sender: TObject);
 var
  LogFont: TLogFont;
  OldFont, NewFont: HFONT;
 begin
  //l'image récupére les propriétes du Handle (Font)
  GetObject(Image1.Canvas.Font.Handle, SizeOf(LogFont), @LogFont);
  //à partir de là, toutes les instructions permettront de changer l'angle
  LogFont.lfEscapement:= SpinEdit1.Value * 10; //this does the rotation
 
  //créer le handle de la font
  NewFont := CreateFontIndirect(LogFont);
  //enregistre l'ancien handle de la font et assigne le nouveau
  OldFont := SelectObject(Image1.Canvas.Handle,NewFont);
  //imprimer le text
  Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
  Image1.Canvas.TextOut(100, 95, 'SERGE WEB');
  //sauvegarde l'ancien handle et le remplace par le nouveau
  NewFont := SelectObject(Image1.Canvas.Handle,OldFont);
  //efface le handle de la fonte (qui a été crée au dessus)
   DeleteObject(NewFont);
 end;

Un Saludo.