PopupMenu

[Михаил Юрьевич]

Подскажите пожалуйста,как самому сделать popupmenu.Нужно сделать
в цвете

[Air]

Самому?
Индивидуальный, что ли?
А тот что в delphi не подходит? (TPopupMenu)

[Михаил Юрьевич]

Если кому не трудно напишите исходничок с компонентом RxPopupMenu,
не могу понять как все отрисовывать,с kanvas я не работал ни разу

[Михаил Юрьевич]

Кое в чем разобрался,а вот сам фон цветным не получается

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, RxMenus;

type
TForm1 = class(TForm)
Button1: TButton;
RxPopupMenu1: TRxPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure RxPopupMenu1GetItemParams(Sender: TMenu; Item: TMenuItem;
State: TMenuOwnerDrawState; AFont: TFont; var Color: TColor;
var Graphic: TGraphic; var NumGlyphs: Integer);
procedure RxPopupMenu1DrawMargin(Sender: TMenu; Rect: TRect);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RxPopupMenu1GetItemParams(Se nder: TMenu; Item: TMenuItem;
State: TMenuOwnerDrawState; AFont: TFont; var Color: TColor;
var Graphic: TGraphic; var NumGlyphs: Integer);
begin
Rxpopupmenu1.Canvas.Font.Color:=clR ed;
Rxpopupmenu1.Canvas.Font.Size:=20;
Rxpopupmenu1.Canvas.Brush.Color:=cl Red;

end;

procedure TForm1.RxPopupMenu1DrawMargin(Sende r: TMenu; Rect: TRect);
begin

RxPopupMenu1.DefaultDrawMargin(Rect , clLime, RGB(GetRValue(clLime) div 4,
GetGValue(clLime) div 4, GetBValue(clLime) div 4));
end;

end.

[Михаил Юрьевич]

Ну что ни кто не сталкивался с Rxpopupmenu?

[xReactions]

ты что идио* а выложить компонент чтоб тебе помогли не судьба ?

[BOBAH13]

Качайте RyMenu ( в DelphiWorld - Examples ). И не парьтесь. Или вот моя старая надработка над оригиналом. При подключении модуля RyMenus вы получаите RyMenu объект в котором есть соответствующие методы для присвоения ( переопределения ) отрисовки пунктов меню.