Delphi - база знаний


         

Как нарисовать повёрнутый текст


Как нарисовать повёрнутый текст





uses 
  QT; 

procedure TForm1.RotatedText(Cnv: TCanvas; Wkl: Integer; Pxy: TPoint; Txt: string); 
var 
  PrPoint: TPoint; 
begin 
  // Rotate Canvas 
  QPainter_rotate(Cnv.Handle, Wkl); 
  // Convert Device Coord. to Modell- Coord. 
  QPainter_xFormDev(Cnv.Handle, PPoint(@PrPoint), 
    PPoint(@Pxy)); 
  // Write text. 
  Canvas.TextOut(PrPoint.X, PrPoint.Y, 'Txt'); 
end

Взято с сайта



Содержание  Назад  Вперед






Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий