easyDelphi Q&A
+4 تصويتات
93 مشاهدات
سُئل في تصنيف Delphi بواسطة (350 نقاط) | 93 مشاهدات
 

2 إجابة

+3 تصويتات

هناك مثال من موقع "Embarcadero"  هنا

procedure TForm1.Button1Click(Sender: TObject);
var
  lf: LOGFONT; // Windows native font structure
begin
  Canvas.Brush.Style := bsClear; // Set the brush style to transparent.
  FillChar(lf, SizeOf(lf), Byte(0));
  lf.lfHeight := 20;
  lf.lfEscapement := 10 * 45; // Degrees to rotate
  lf.lfOrientation := 10 * 45;
  lf.lfCharSet := DEFAULT_CHARSET;
  StrCopy(lf.lfFaceName, 'Tahoma');

  Canvas.Font.Handle := CreateFontIndirect(lf);
  Canvas.TextOut(10, 100, 'Rotated text'); // Output the rotated font.
end;

أما أن تكون الكتابة عمودية في مضمون الرسالة بمعنى :

Showmessage('Rotated Text');

فهذا يتطلب تغيير في محتوى الرسالة ككل ذلك لأنها من أحد النوافذ التي يصنعها الوينداوز و لسنا نحن من نصنعها حتى يسهل علينا التغيير ....

لذلك فالحل الأنسب هنا هو أن تضنع أنت الفورم الخاصة بالرسالة حتى يسهل عليك تطبيق و إستعمال الكود الدي في الرابط أعلاه و إلا البحث مطولا في "API" التي تخص نافذة الرسائل ....

مثال :

النتيجة:

رابط تحميل المثال مع الكود من هنا

و الباسوارد لفك الضغط كالعادة "EasyDelphi.com/qa" و شهية طيبة لك و لمن يهمه الأمر ...wink

ملاحظة :(حاول أن لا تكتفي بعنوان السؤال مرة أخرى...  على الأقل أكتب نفس العنوان في صندوق الوصف ...  (كلما كان الإهتمام أكثر بالسؤال و كيفية طرحه كلما كان الإهتمام أكثر بالجواب على السؤال و بسرعة...  أو على الأقل يأخذ مشاهدة أكثر أو تقييم أكثر...  و لا تنسى دوما أن كل من يقومون بالإجابة في الموقع هم فقط متطوعون ليس إلا... فالإهتمام أكثر في طرح السؤال يعطي بالضرورة إهتماما في الإجابة)
تم الرد عليه بواسطة (15,080 نقاط)
+3 تصويتات

السلام عليكم بكل سهولة طبق المراحل التالية :

01 كتابة الكلمة بالفراغ بعد كل حرف

02 Autosize : False

03 WordWrap : True

04 و في الاخير تصغير اللابل حسب الكلمة لكي الحروف تنزل تحت بعض

تم الرد عليه بواسطة (200 نقاط)

اسئلة متعلقة

+4 تصويتات
2 إجابة
سُئل يوليو 24، 2018 في تصنيف Delphi بواسطة Amar Gozim (10,670 نقاط) | 94 مشاهدات
+2 تصويتات
1 إجابة
سُئل أغسطس 23، 2018 في تصنيف Delphi بواسطة Amar Gozim (10,670 نقاط) | 65 مشاهدات
+4 تصويتات
3 إجابة
سُئل يوليو 25، 2018 في تصنيف Delphi بواسطة Amar Gozim (10,670 نقاط) | 97 مشاهدات
+4 تصويتات
2 إجابة
سُئل يوليو 4، 2018 في تصنيف Delphi بواسطة ندير | 160 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

325 سؤال
536 إجابة
931 تعليق
224 مستخدم