+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال حول تكبير الخط في القوائم المنسدلة في الدلفي (/showthread.php?tid=12019)
سؤال حول تكبير الخط في القوائم المنسدلة في الدلفي - khedimaadl - 28-07-2022
سؤالي هو كيف يمكن تكبير حجم الخط في القوائم المنسدلة أقصد: MainMenu et PopMenu
RE: سؤال حول تكبير الخط في القوائم المنسدلة في الدلفي - Mr.DOS - 29-07-2022
وعليكم السلام
1 - قم بتحديد MainMenu وفعل الخاصية ownerDraw الى True
ثم ضع الكود التالي بعد تحديد الايتمز items في الحدث OnDrawItem
كود :
procedure TForm1.MenuItem11DrawItem(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
var
s: string;
begin
// change font
ACanvas.Font.Name := 'Consolas';
ACanvas.Font.Size := 14;
ACanvas.Font.Style := [fsBold];
ACanvas.Font.Color := clYellow;
// change background
ACanvas.Brush.Color := clBlack;
ACanvas.Rectangle(ARect);
// write caption/text
s := (Sender as TMenuItem).Caption;
ACanvas.TextOut(ARect.Left + 2, ARect.Top + 2 , s);
end;RE: سؤال حول تكبير الخط في القوائم المنسدلة في الدلفي - khedimaadl - 29-07-2022
بارك الله فيك أخي Mr.DOS
جربت الكود لكن لم يعطي النتيجة المرجوة
أريد حلا طبيعيا بمعنى أي لا أريد أن أمر بـ OnDrawItem ، لأنه يعطي صورة غير احترافية في البرنامج، بل يعطي صورة مصطنعة وهذا ما أريد تجنبه.
وشكرا لك كل الشكر أخي الحبيب
RE: سؤال حول تكبير الخط في القوائم المنسدلة في الدلفي - Ndagor - 29-07-2022
الق نظرة على هذا الرابط
https://stackoverflow.com/a/2760343
RE: سؤال حول تكبير الخط في القوائم المنسدلة في الدلفي - Ibn Battuta - 29-07-2022
السلام عليكم ورحمة الله وبركاته
RE: سؤال حول تكبير الخط في القوائم المنسدلة في الدلفي - khedimaadl - 29-07-2022
ممتااااااااااز بارك الله فيك أخي
نجحت 100/100
شكرا جزيلا لك ولكل من ساهم في الإجابة
ملاحظة: نجح الكود 100/100 دون الحاجة إلى الخطوة 1 ودون الحاجة للخطوة 2
أي يكفي كتابة الكود فقط
وأعيد شكري وامتناني للإخوة الأكارم