Pesquisar no Programero

segunda-feira, 24 de novembro de 2008

Texto na Diagonal usando o Canvas (Delphi)

var
  lf : TLogFont;
  tf : TFont;
begin
  with Form1.Canvas do
    begin
      Font.Name := 'Arial';
      Font.Size := 24;
      tf := TFont.Create;
      tf.Assign(Font);
      GetObject(tf.Handle, sizeof(lf), @lf); 
      lf.lfEscapement := 450;
      lf.lfOrientation := 450;
      tf.Handle := CreateFontIndirect(lf);
      Font.Assign(tf);
      tf.Free;
      TextOut(20, Height div 2, 'Texto Diagonal!');
   end;
end;

Um comentário:

  1. Grande amigo Du!! Tudo bem contigo? Então cara, eu não falei nada porque fazia tempo que eu não entrava no msn...Fiquei parado por conta das aulas. Agora to de férias e comecei blogar novamente!

    Saudades meu velho!!!
    Um abraço

    ResponderExcluir

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.