Buscar por:

Escrevendo textos em diagonal

Código

//Coloque um botão ao formulário e adicione o seguinte código://

var

  LFont: TLogFont;

  MyFont: TFont;

begin

  with Form1.Canvas do

  begin

    Font.Name := 'Verdana';

    Font.Size := 24;    Font.Style := [fsBold];

    MyFont := TFont.Create;

    MyFont.Assign(Font);

    GetObject(MyFont.Handle, sizeof(LFont), @LFont);

    LFont.lfEscapement := 450;

    LFont.lfOrientation := 450;

    MyFont.Handle := CreateFontIndirect(LFont);

    Font.Assign(MyFont);

    MyFont.Free;

    TextOut(20, Height div 2, 'ClubeDelphi');

  end;

end;