ExeFileIcon in TPopupMenu Eintrag als Bitmap darstellen?

[Master_BB]

Hya,
weiß jemand wie ich wenn ich ein TIcon Object habe daraus ein TBitmap machen kann?
Ich lese das Icon einer Datei aus und dieses soll dann das Bitmap eines Popup Eintrages sein.
Hat jemand ne idee?

Greetz

[sniper_w]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    aa1: TMenuItem;
    procedure aa1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
      Selected: Boolean);
    procedure aa1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width,
      Height: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aa1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
ACanvas.Draw(0,0,Application.Icon);
end;

procedure TForm1.aa1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
 Width := Application.Icon.Width;
 Height := Application.Icon.Height;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 PopupMenu1.OwnerDraw := True;
 PopupMenu := PopupMenu1;
end;

end.

[etom291272]

warum gehst du über den bitmap zwischenschritt ???

lade das icon in eine imagelist und weise beim popmenu einfach den index in der imagelist zu so hab ichs gemacht

[Master_BB]

ich würde "über das bitmap" gehen nicht als zwischenschritt sehen
weils ja eine direkte zuweisung ist.
die imagelist ist nen zwischenschritt.

hm als imagelist könnt mans auch machen da hast du recht könnt
ich in meine dateiliste miteinbauen die da ins popupmenu kommt