Dicas - Escrevendo um texto em diagonal

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Essa dica mostra como criar um texto em diagonal, utilizando o objeto Canvas do Delphi.

Escrevendo textos em diagonal

 

Essa dica mostra como criar um texto em diagonal, utilizando o objeto Canvas do Delphi. 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;

 

Rode a aplicação e veja o texto escrito em diagonal.

 

 

por Luciano Pimenta

webeditor@clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?