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

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

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

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

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

02 Autosize : False

03 WordWrap : True

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

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

اسئلة متعلقة

+4 تصويتات
2 إجابة
سُئل يوليو 24 في تصنيف Delphi بواسطة Amar Gozim (10,290 نقاط) | 66 مشاهدات
+2 تصويتات
1 إجابة
سُئل أغسطس 23 في تصنيف Delphi بواسطة Amar Gozim (10,290 نقاط) | 49 مشاهدات
+4 تصويتات
3 إجابة
سُئل يوليو 25 في تصنيف Delphi بواسطة Amar Gozim (10,290 نقاط) | 97 مشاهدات
+4 تصويتات
2 إجابة
ادعُ اصدقائك في الفايسبوك لمشاركتك

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

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

267 سؤال
476 إجابة
833 تعليق
163 مستخدم