افزایش عرض (ارتفاع) MainMenu

[pezhvakco]

درود :

آیا میشه MainMenu رو از عرض (ارتفاع) بزگتر کرد .

فکر خوش .

[مصطفی ساتکی]

TMenuItem یه رویداد OnMesaureItem رو فراخوانی می کنه که یکی از پارامترهاش Heigh که با تغییر اون ارتفاع MenuItem تغییر می کنه

[pezhvakco]

درود :
شما با این روش کار کردین و جواب گرفتین تا حالا ؟

میشه یه راهنمایی داشته باشی .

فکر خوش .

[مصطفی ساتکی]

بله .منو Skin خودم از همین روش استفاده میکنه.
Menu شما چه از نوع Main یاPopup لیست Item هشون از نوع MenuItem ها رویداد OnMesureItem هر کدوم رو با متد MeasureItem جدید جایگزین کنید

[pezhvakco]

Menu شما چه از نوع Main یاPopup

MainMenu

لیست Item هشون از نوع MenuItem ها رویداد OnMesureItem هر کدوم رو با متد MeasureItem جدید جایگزین کنید

منظورت اینه که رویداد OnMeasureItem هر آیتم رو تغییر بدم .

متد MeasureItem جدید

کدوم متد جدید ؟

کد دستور مربوط رو میشه قرار بدی .

فکر خوش .

[مصطفی ساتکی]

منظورت اینه که رویداد OnMeasureItem هر آیتم رو تغییر بدم .

بله.

کدوم متد جدید

یه همچین متدی تعریف کنید

procedure TForm1.MyMeasureItem(Sender: TObject; ACanvas: TCanvas;

  var Width, Height: Integer);

begin

  Width:=200; 

end;