No tienes que incluir nada en especial mira la "Unit" entera:
Código Delphi
[-]
unit Rotatexto;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Spin;
type
TForm1 = class(TForm)
Panel1: TPanel;
Image1: TImage;
SpinEdit1: TSpinEdit;
Label1: TLabel;
BtnVertic: TButton;
BtnHoriz: TButton;
ScrollBar1: TScrollBar;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
procedure BtnVerticClick(Sender: TObject);
procedure BtnHorizClick(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.Font.Size := 10;
Image1.Canvas.Font.Name := 'Arial';
Image1.Canvas.TextOut(100,75,'SERGE WEB');
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
LogFont: TLogFont;
OldFont, NewFont: HFONT;
begin
GetObject(Image1.Canvas.Font.Handle, SizeOf(LogFont), @LogFont);
LogFont.lfEscapement:= SpinEdit1.Value * 10;
NewFont := CreateFontIndirect(LogFont);
OldFont := SelectObject(Image1.Canvas.Handle,NewFont);
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
Image1.Canvas.TextOut(100, 95, 'SERGE WEB');
NewFont := SelectObject(Image1.Canvas.Handle,OldFont);
DeleteObject(NewFont);
end;
procedure TForm1.BtnVerticClick(Sender: TObject);
begin
SpinEdit1.Value := 90;
end;
procedure TForm1.BtnHorizClick(Sender: TObject);
begin
SpinEdit1.Value := 0;
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
SpinEdit1.Value := ScrollBar1.Position;
end;
end.
Un Saludo.