;كيف يمكن كتابة نص باتجاه عمودي في quiqreport

[getsource]

السلام عليكم

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

[alili mostafa]

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

[أبو معاذ]

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

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

[kachwahed]

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

[أبو معاذ]

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

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

[hamam2008]

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

كود :

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;