close
دانلود فیلم
به چرخش در آوردن متن

procedure AngleTextOut(Acanvas:Tcanvas;Angle,x,y:integer;Str:String);
var
  LogRec:TLogFont;
  OldFontHandle,
  NewFontHandle:Hfont;
begin
  GetObject(Acanvas.Font.Handle,SizeOf(LogRec),Addr(LogRec));
  LogRec.lfEscapement:=Angle*10;
  NewFontHandle:=CreateFontIndirect(logRec);
  OldFontHandle:=SelectObject(Acanvas.handle,NewFontHandle);
  ACanvas.TextOut(x,y,Str);
  NewFontHandle:=SelectObject(Acanvas.handle,OldFontHandle);
  DeleteObject(NewFontHandle);
end;

لینک کوتاه پست
مطالب مرتبط با پست جاری
  • نکات مهم
    1- لطفا نظر خود را با زبان فارسی بیان کنید
    2- رایتم نظرات اسپم و تبلیغی شما را تایید نمی کند
    3- لطفا نظرات شما بدون ابهام و واضح باشد
  • نام
    ایمیل (منتشر نمی‌شود) (لازم)
    وبسایت
    :):(;):D;)):X:?:P:*=((:O@};-:B/:):S
    نظر خصوصی
    مشخصات شما ذخیره شود ؟[حذف مشخصات] [شکلک ها]
    کد امنیتی
به کانال تلگرام سایت ما بپیوندید