PDA

View Full Version : سوال: تبدیل منو به


mahian90
یک شنبه 30 مرداد 1390, 00:28 صبح
سلام دوستان

چطور میشه منو ها رو شبیه این شکل کرد.

یعنی ارتفاعشون رو زیاد کنید
MohsenB
یک شنبه 30 مرداد 1390, 00:44 صبح
سلام


اندازه منوها در دلفی بستگی به اندازه آیکون اون منو داره . شما با انتخاب آیکون بزرگ می توانید منوی به اندازه اون داشته باشید .
mahian90
یک شنبه 30 مرداد 1390, 01:06 صبح
سلام


اندازه منوها در دلفی بستگی به اندازه آیکون اون منو داره . شما با انتخاب آیکون بزرگ می توانید منوی به اندازه اون داشته باشید .

اما من با وجود این که آیکون بزرگ انتخاب کردم ولی باز هم خودش اونو کوچیک کرد.
BORHAN TEC
یک شنبه 30 مرداد 1390, 09:17 صبح
از کد زیر استفاده کنید:
procedure TForm1.FormCreate(Sender: TObject);
begin
MainMenu1.OwnerDraw := True;
end;

procedure TForm1.New1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width,
Height: Integer);
begin
Height := 40;
end;
در ضمن پروژه هم ضمیمه کرده ام که میتونید اون رو دانلود کنید:
mahian90
یک شنبه 30 مرداد 1390, 12:08 عصر
از کد زیر استفاده کنید:
procedure TForm1.FormCreate(Sender: TObject);
begin
MainMenu1.OwnerDraw := True;
end;

procedure TForm1.New1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width,
Height: Integer);
begin
Height := 40;
end;
در ضمن پروژه هم ضمیمه کرده ام که میتونید اون رو دانلود کنید:


ممنون از اینکه جواب دادید.

اما مشکلم اینجاست که چرا نمیتونم برای اون عکس بزرگ بزارم؟
و چرا فقط اولی بزگ شده؟
BORHAN TEC
یک شنبه 30 مرداد 1390, 13:51 عصر
اما مشکلم اینجاست که چرا نمیتونم برای اون عکس بزرگ بزارم؟
و چرا فقط اولی بزگ شده؟
اون کدی که قرار دادم فقط یک مثال بود که نحوه کار را به شما نشان دهم. توجه داشته باشید که راه حل بسیار آسانتری هم وجود دارد.

1- یک کامپوننت از نوع TImageList بر روی فرم قرار دهید و خاصیت width و height آنرا مطابق میلتان تنظیم کنید. به عنوان مثال 32
2- یک کامپوننت از نوع TMainMenu بر روی فرم قرار دهید و خاصیت Images آنرا به ImageList1 ست کنید.
3- حال گزینه هایی را به منو اضافه کنید.
4- در این قسمت گزینه های منو را انتخاب کرده و خاصیت ImageIndex آنها را تنظیم کنید.
5- پایان کار

در ضمن پروژه نمونه ای را ضمیمه کرده ام.