Контекстное и главное меню

← →
Светлана (2012-07-18 15:58) [0]

Здравствуйте, подскажите варианты замены MainMenu и PopupMenu, на более красивые в D7 (бесплатные варианты). Спасибо.

← →
Anatoly Podgoretsky © (2012-07-18 18:40) [1]

> Светлана (18.07.2012 15:58:00) [0]

OwnerDraw и рисуйЮ что хочешь, хоть в полосочку

← →
Светлана (2012-07-23 09:45) [2]

Не понятно только от чего нужно "танцевать" при отрисовке. В OnDrawItem только от ARect, но когда я пробовала менять стили Windows, все выглядело по разному. Как можно добиться единообразия?

procedure TForm1.File1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); begin .................................... end;

← →
Плохиш © (2012-07-23 11:31) [3]

> но когда я пробовала менять стили Windows, все выглядело
> по разному. Как можно добиться единообразия?

Откуда ж нам знать, что пробовала и как должно/выглядело. На этом форуме не лечат стук в подвале и телепаты в отпуске.

← →
Светлана (2012-07-23 11:51) [4]

Ну вроде разобралась, только не понятно как сделать вывод иконки из ImageList перед пунктом меню при OwnerDraw = True;

http://rouse.drkb.ru/other.php здесь есть про красивое меню.

> не понятно как сделать вывод иконки из ImageList перед пунктом
> меню

ImageList.Draw(Canvas: TCanvas; X, Y, Index: Integer; Enabled: Boolean(по умолчаниюTrue);
вывод изображения с номером Index на чей-то Canvas в координаты X, Y. Если Enabled равно False, рисуется серым (выключенным)

> Здравствуйте, подскажите варианты замены MainMenu и PopupMenu,
> на более красивые в D7 (бесплатные варианты).

Здравствуйте, подскажите где взять новые более красивые глюки - стандартных не хватает...

Контекстное и главное меню Найти похожие ветки