delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاته
كيف أستطيع تغيير إرتفاع المكون: MainMenu في الدلفي
شكرا مسبقا

سلام
بالنسبة للقائمة الاساسية الافقية هذا غير ممكن الارتفام تتحكم فيه الوندوز و لادخل للدالفي فيه .. اما تعديل باقي عناصر القوائم فهذاممكن من خلال تغيير دالة حساب الارتفاع..

قم بتغيير OwnerDraw الى True
ثم ضع الكود التالي اعى Unit قبل فوق TForm1

كود :
TMenuItem= class(Menus.TMenuItem)
 protected
   procedure MeasureItem(ACanvas: TCanvas; var Width, Height: Integer); override;
 end;
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Edit: TMenuItem;
    Redo: TMenuItem;
...
  end;

var
  Form1: TForm1;

implementation


{ TMenuItem }

procedure TMenuItem.MeasureItem(ACanvas: TCanvas; var Width,
  Height: Integer);
begin
  inherited;
  Height:= 30;
end;

شكرا لك على الاهتمام، لكن ما كنت أبحث عنه لم أجده وهو ما قلت عنه أنه لا يمكن
بارك الله فيك

khedimaadl

Ndagor

khedimaadl