كيفية التحكم في مكون main menu ؟

[Gebo]

كيف استطيع تغير حجم الخط للقوائم وتغيير لونها؟
وإذا لم يكن هناك إمكانية التحكم في الشكل واللون وحجم الخط فهل هناك مكون بديل يمنح تلك الإمكانيات؟

[nouzi]

جرب هذا
https://www.askingbox.com/question/delphi-lazarus-how-can-i-change-font-and-color-of-menu-or-popupmenu

المكون البديل spktoolbar

https://sourceforge.net/projects/lazarus-ccr/files

[Al-Eid]

جرب هذا
https://www.askingbox.com/question/delphi-lazarus-how-can-i-change-font-and-color-of-menu-or-popupmenu

لقد جربته أنه يعمل مع PopupMenu1 و MainMenu1
يوضع هذا الكود في حدث FormShow(Sender: TObject);

Code: Pascal  [Select][+][-]

1.  PopupMenu1.OwnerDraw := true;

ويوضع هذا الكود في حدث PopupMenu1MeasureItem Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; AState: TOwnerDrawState);

Code: Pascal  [Select][+][-]

1. var
2.     s: string;
3.   begin
4.     // change font
5.     ACanvas.Font.Name := 'Consolas';
6.     ACanvas.Font.Size := 14;
7.     ACanvas.Font.Style := [fsBold];
8.     ACanvas.Font.Color := clYellow;
9.     // change background
10.     ACanvas.Brush.Color := clBlack;
11.     ACanvas.Rectangle(ARect);
12.     // write caption/text
13.     s := (Sender as TMenuItem).Caption;
14.     ACanvas.TextOut(ARect.Left + 2, ARect.Top + 2 , s);
15.   end;
16.  

يمكن وضع الكود السابق في كل عنصر لوحده لللقائمة ليكون كل عنصر لون وشكل معين