delphi4arab منتديات دلفي للعرب

السلام عليكم

عندي مشكل ولم أجدله الحل
كيف يمكن كتابة نص بشكل عمودي ؟

حسب علمي
هذا مستحيل مع الإصدارات حتى الإصدار 5
إحتمال في الإصدارات القادمة

و عليكم السلام ورحمة الله وبركاته ،
نعم يمكنك الكتابة العمودية في QuickReport ، و إليك الرابط التالي.
http://www.delphi4arab.net/forum/showthr...p?tid=2195

لا تنسونا من صالح دعواتكم.

أهلا Unprogramme Smile

ماهذا الغياب أين كنت ? ؟

kachwahed كتب :أهلا unprogramme
ماهذا الغياب أين كنت ? ؟

أنا هنا أخي الحبيب ،
جزاك الله خيرا على سؤالك عني.

السلام عليكم هذا كود مختصر يفي بلغرض

كود :
var
  lf : TLogFont;
  tf : TFont;
begin
  tf := TFont.Create;
  tf.Assign(tqrdbtext(sender).Font);
  GetObject(tf.Handle, sizeof(lf), @lf);
  lf.lfEscapement := 900;
  lf.lfOrientation := 900;
  tf.Handle := CreateFontIndirect(lf);
  tqrdbtext(sender).font.assign(tf);
  tf.free;
end;

getsource

alili mostafa

أبو معاذ

kachwahed

أبو معاذ

hamam2008