11-04-2025, 10:52 PM
29-04-2025, 08:41 PM
أولا مكون TMainMenu في فيرموارك ال Vcl هو مجرد تغليف لمكون نظام التشغيل Menu
ثانيا نوع الخط أو الفونت تأتي تلقائيا من نوع الخط الخاص بالأوبجكت Screen و هي لا تعود للدلفي سبعة
ثالثا لتغيير نوع الخط و ال Size و حتى الستايل (bold or italic etc) لجميع ال Items المندرجة بقوائم المكون MainMenu يمكن تغيير فقط الفونت الخاص بالأوبجكت Screen كالأتي:
بدون تغيير لون الخط !
--
و تستعمل الميثود قبل خلق المكون TMainMenu داخل كود البرنامج Dpr
--
الحل الثاني هو استعمال خاصية OwnerDraw للتحكم الكامل في جميع القوائم و من ضمنها الفونت و اللون ووو الخ
ثانيا نوع الخط أو الفونت تأتي تلقائيا من نوع الخط الخاص بالأوبجكت Screen و هي لا تعود للدلفي سبعة
ثالثا لتغيير نوع الخط و ال Size و حتى الستايل (bold or italic etc) لجميع ال Items المندرجة بقوائم المكون MainMenu يمكن تغيير فقط الفونت الخاص بالأوبجكت Screen كالأتي:
كود :
procedure UpdateScreenMenuFont(
const aScreenMenuFontName: string;
aScreenMenuFontSize: Integer);
var
LScaledFontSize: Integer;
begin
LScaledFontSize := MulDiv(aScreenMenuFontSize, Screen.PixelsPerInch, 96);
Screen.MenuFont.Name := aScreenMenuFontName;
Screen.MenuFont.Size := LScaledFontSize;
end;--
و تستعمل الميثود قبل خلق المكون TMainMenu داخل كود البرنامج Dpr
--
الحل الثاني هو استعمال خاصية OwnerDraw للتحكم الكامل في جميع القوائم و من ضمنها الفونت و اللون ووو الخ