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
