Menü mit Icon

[tuxic]

Hi,
nach drei Tagen DP, MSDN, OH und Google, fühl ich mich jetzt so:

Dabei will ich doch nur so ein kleines niedliches Standard - Icon in meinem MainMenü.
Also, ich weiß ja schon das die StandardIcons in der comctl.dll liegen (als Bitmap), ich weiß auch das die Unit commctrl schon Standard Bitmaps bereitstellt (nur leider fehlt mir die Info wie ich die in ein Menü einfüge - wie man sie in eine ToolBar einfügt, ist ja hier in der DP beschrieben).

Ja, also kann mir jemand die Frage beantworten, wie um alles in der Welt ich so ein schickes Bildchen ins Menü einfügen kann??? Und NEIN, ich will KEINE IconPackages aus dem Netz zuppeln, und die dann in einfügen... ich würde gerne DIE Windows Icons haben! - sorry, musste ich mal so deutlich sagen, weil in jedem Artikel den ich bis jetzt gesehen habe, immer der Tipp kam, sich IconPackages zu laden - find ich aber ziemlich dämlich, weil die sind ja in Windows schon mit bei!!!

Also, ich würde mich tierisch drüber freuen, wenn jemand weiter weiß

Daniel

[Luckie]

Geht genauso wie mit einer Tolobar und deren Buttons. Verknüpf eine Imageliste mit deinem Menü, dann kannst du für jeden Menüeintrag den Index des Icons aus der Imageliste auswählen, das angezeigt werden soll.

Btw. bezweifele ich, dass in einer Dekphi Unit Icons oder Bitmaps drinne sind.

[tuxic]

Zitat von Luckie:

Geht genauso wie mit einer Tolobar und deren Buttons. Verknüpf eine Imageliste mit deinem Menü, dann kannst du für jeden Menüeintrag den Index des Icons aus der Imageliste auswählen, das angezeigt werden soll.

hmmm... und wie kriege ich die Standard Icons in die ImageList? Ich hab schon Icons aus shell32.dll in die ImageListe geladen, und dann vom Menü aus aufgerufen, das geht ja auch wunderbar... nur die Standard Icons?

Zitat von Luckie:

Btw. bezweifele ich, dass in einer Dekphi Unit Icons oder Bitmaps drinne sind.

naja, so ähnlich siehe hier

[Luckie]

Wenn du ie aus der shell32.dll da reinbekommen hast, wo ist da das Problem, sie aus der comctl.dll da rein zu bekommen?

[tuxic]

Zitat von Luckie:

Wenn du ie aus der shell32.dll da reinbekommen hast, wo ist da das Problem, sie aus der comctl.dll da rein zu bekommen?

die liegen da als langes Bitmap vor... Bild an Bild:
http://tuxic.rooties.de/standard.bmp

also, d.h. ich müsste die auseinander fummeln, aber wie geht das nu wieder?

[Luckie]

Dann musst du sie eben ausschneiden mit den entsprechenden Grafik-/GDI-Funktionen oder per API mit StrechtBlt.

[tuxic]

also, um das mal für die Nachwelt klar zu stellen, es gibt keine einfache Lösung?=!

[Luckie]

Das IST die einfache Lösung. Die Eigenschaft Canvas von TBitmap kennt, glaube ich, die Methode CopyRect, damit müsste es auch gehen.

[tuxic]

Delphi-Quellcode:

var
  aBmp:TBitmap;
  h:HINST;
  OpenFileBmp:Integer;
begin
  // standardicons von windows laden...
  aBmp := TBitmap.Create();
  h := LoadLibrary('comctl32.dll');
  if h <> 0 then
  try
    aBmp.LoadFromResourceID(h, 120);
    aBmp.Canvas.CopyRect(rect(0, 0, 15, 15), aBmp.Canvas, rect(96, 0, 112, 15));
    aBmp.Width := 16;
    aBmp.Height := 16;
    OpenFileBmp := imagelist1.Add(aBmp, nil);
  finally
    FreeLibrary(h);
  end;

funzt, nur eine Sache noch - der Hintergrund ist im alten Windows-Stil gehalten, wie kann man den Transparent machen?
aBmp.Transparent* hab ich schon probiert, klappt nicht...

auch als ich die BlendColor vom ImageList eingestellt hatte, funktionierte es nicht (DrawingStyle war auf dsTransparent

Danke an Luckie

Daniel

[teebee]

Du kannst die Bitmaps noch etwas einfacher in eine ImageList packen.

Delphi-Quellcode:

Var
  cc: HINST;
Begin
  cc := LoadLibrary('comctl32.dll');
  If cc <> 0 Then
   // diese Funktion 'zerschneidet' das breite Bitmap automatisch und erzeugt eine ImageList, inkl. Transparenz
   ImageList1.Handle := ImageList_LoadBitmap(cc,MAKEINTRESOURCE(120),16,0,CLR_DEFAULT);
  FreeLibrary(cc);
End;

Jetzt einfach die ImageList mit dem Menü verknüpfen und den einzelnen Items den gewünschten Index zuordnen.

Gruß, teebee