Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Menü mit Icon (https://www.delphipraxis.net/21195-menue-mit-icon.html)

tuxic 29. Apr 2004 08:13


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

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!!! :warn:

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

Daniel

Luckie 29. Apr 2004 08:16

Re: Menü mit Icon
 
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. :roll:

tuxic 29. Apr 2004 08:26

Re: Menü mit Icon
 
Zitat:

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:

Zitat von Luckie
Btw. bezweifele ich, dass in einer Dekphi Unit Icons oder Bitmaps drinne sind. :roll:

naja, so ähnlich :mrgreen: siehe hier

Luckie 29. Apr 2004 08:31

Re: Menü mit Icon
 
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 29. Apr 2004 08:35

Re: Menü mit Icon
 
Zitat:

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 29. Apr 2004 08:40

Re: Menü mit Icon
 
Dann musst du sie eben ausschneiden mit den entsprechenden Grafik-/GDI-Funktionen oder per API mit StrechtBlt.

tuxic 29. Apr 2004 08:43

Re: Menü mit Icon
 
also, um das mal für die Nachwelt klar zu stellen, es gibt keine einfache Lösung?=! :(

Luckie 29. Apr 2004 08:47

Re: Menü mit Icon
 
Das IST die einfache Lösung. ;) Die Eigenschaft Canvas von TBitmap kennt, glaube ich, die Methode CopyRect, damit müsste es auch gehen.

tuxic 29. Apr 2004 10:58

Re: Menü mit Icon
 
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;
:dp:

funzt, nur eine Sache noch :) - der Hintergrund ist im alten Windows-Stil gehalten, wie kann man den Transparent machen?
Delphi-Quellcode:
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 :dancer: :)

Daniel

teebee 29. Apr 2004 13:35

Re: Menü mit Icon
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:20 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz