PDA

View Full Version : افزایش عرض (ارتفاع) MainMenu


pezhvakco
پنج شنبه 27 خرداد 1389, 19:47 عصر
درود :

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

فکر خوش .
مصطفی ساتکی
پنج شنبه 27 خرداد 1389, 22:23 عصر
TMenuItem یه رویداد OnMesaureItem رو فراخوانی می کنه که یکی از پارامترهاش Heigh که با تغییر اون ارتفاع MenuItem تغییر می کنه
pezhvakco
شنبه 29 خرداد 1389, 08:59 صبح
درود :
شما با این روش کار کردین و جواب گرفتین تا حالا ؟

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

فکر خوش .
مصطفی ساتکی
شنبه 29 خرداد 1389, 10:34 صبح
بله .منو Skin خودم از همین روش استفاده میکنه.
Menu شما چه از نوع Main یاPopup لیست Item هشون از نوع MenuItem ها رویداد OnMesureItem هر کدوم رو با متد MeasureItem جدید جایگزین کنید
pezhvakco
شنبه 29 خرداد 1389, 12:00 عصر
Menu شما چه از نوع Main یاPopup
MainMenu


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


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

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

فکر خوش .
مصطفی ساتکی
شنبه 29 خرداد 1389, 12:25 عصر
منظورت اینه که رویداد OnMeasureItem هر آیتم رو تغییر بدم .
بله.


کدوم متد جدید
یه همچین متدی تعریف کنید
procedure TForm1.MyMeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
Width:=200;
end;