Icons im Ausklappmenu

[horsthorn]

Hätte gerne die Icons, die ich auf den Buttons habe, auch im Ausklappmenu

DECLARE hIL&, hBMP&
'{ PictureList für Icons:
'hBmp& = @create("hPic", 0, "TOOLBAR")
'hIL& = @Create("ImageList", 16, 16, hBmp&, rgb(192,192,192)) '192x3
'------------------------------------------- Das ist der XProfan-Code - KLAPPT !
'hBmp& = @create("hPic", -1, pfad$+"\\"+uverz01$+"\\toolbar_horst.jpg")
'hIL& = @Create("ImageList", 24, 24, hBmp&, rgb(192,192,192)) '192x3
'---------------------------------------------------- Das ist eine Bitmap-Datei meiner DLL - KLAPPT auch !
hBmp& = @create("hPic", 1,pfad$+"\\"+uverz01$+"\\47_icons.dll")
hIL& = @Create("ImageList", 32, 32, hBmp&, rgb(192,192,192)) '192x3
'------------------------------- und das KLAPPT NICHT - wo ist der Fehler ?
DeleteObject hBmp&
'}
PROC Icon
Parameters Nr%
Return ImageList("GetIcon", hIL&, Nr%)
EndProc

Auch mit der SHELL32.DLL funktioniert der dritte Code nicht
Irgenwo mach ich da noch was falsch

[Bangkok]

@horst,

wenn du aus einer Dll lädst muss normalerweise das Handle der DLL übergeben werden.
also a& = usedll(icon.dll) dann create("hPic",a&,"name des Icons in der dll") wenn es eine Nummer ist ungefähr so "#25"

Hallo!

Du kannst Icons aus einer DLL nicht als hPic laden...
DAS KLAPPT :
hBmp& = @create("icon", 1,pfad$+"\\"+uverz01$+"\\47_icons.dll", width(%hWnd) + 1, height(%hWnd) + 1)
Einfach die Zeile ersetzen !
Ich hoffe, das hilft (Ist ungetestet!).

Oops, das funktioniert doch nicht (kommt davon, wenn man die Parameter nur überfliegt ).
So geht's:
hBmp& = @create("hIcon", pfad$+"\\"+uverz01$+"\\47_icons.dll", <Icon-Nummer>)
Ich hoffe, es hilft.

[horsthorn]

Danke an Alle für die Tipps - aber es geht mir um das Ausklappmenu.
Roland hat ja hier schon vorgearbeitet und erstellt eine Imageliste.
Das klappt ja auch mit einer Bitmap-Datei. Siehe Code in #1
Es klappt aber nicht direkt mit einer DLL - mir schwebt vor, daß das Programm beim Start eine Imageliste aus der angegebenen Datei erstellt und dann die Icons im Ausklappmenu so anzeigt wie hier in diesem Bild mit der Bitmap-Datei.
Bloß wie ?

Nochmal ich!

Wenn du mehrere Icons laden möchtest, dann hab ich da was (vor ein paar Tagen gemacht):

SubProc ImageList.AddDllIcons
  Parameters Handle%, DLL$, ImageNumbers%[]
  Declare TempHandle%
  WhileLoop 0, @SizeOf(ImageNumbers%[]) - 1, 1
    TempHandle% = @Create("hIcon", DLL$, ImageNumbers%[&loop])
    @ImageList("AddIcon", Handle%, TempHandle%)
    DeleteObject TempHandle%
  EndWhile
EndProc

SubProc ImageList.AddAllDllIcons
  Parameters Handle%, DLL$
  Declare TempHandle%
  WhileLoop @IconCount(DLL$)
    TempHandle% = @Create("hIcon", DLL$, (&loop - 1))
    @ImageList("AddIcon", Handle%, TempHandle%)
    DeleteObject TempHandle%
  EndWhile
EndProc

Die erste Funktion fügt alle Icons einer DLL, die in einem dynamischen Array stehen, zu einer ImageList hinzu und die zweite Funktion fügt alle Icons der DLL hinzu.
Mal sehen, ob du es gebrauchen kannst .

[Frabbing]

XProfans AppendMenu kennt einen dritten (bislang wohl undokumentierten) Parameter, nämlich den Handle auf ein Icon. Probier mal!

z.B.:
AppendMenu 311," Ausschneiden \tShift+Entf", iconhandle&

Disablete Icons im Menü sehen allerdings noch unschön aus, aber ich hoffe, Roland arbeitet schon daran. Lösung hat er ja schon.

[horsthorn]

Andreas Miethe hat mir den entscheidenden Tipp gegeben - Danke
Sieht jetzt so aus :

[Frabbing]

Du solltest transparente Icons benutzen, Horst. Sonst kannst du doch gleich Bitmaps verwenden.
Hast du das mit dem dritten Parameter nicht getestet?

[RGH]

Zitat von Frabbing

XProfans AppendMenu kennt einen dritten (bislang wohl undokumentierten) Parameter, nämlich den Handle auf ein Icon. Probier mal!

Da ist nichts undokumentiert: In der Hilfe zu 11.2 ist der zusätzliche Parameter bei Menübefehlen dokumentiert und in der Einführung gibt es das "Kapitel 22.5: Icons und Farben für Menüs" mit ausführlichem Beispielprogramm!

Und in XProfan 12 wird das Thema Menüs auch noch vorkommen (Hintergrundbitmaps und Fonts).

Gruß
Roland

[Frabbing]

Ja, ok. Du solltest die Erweiterungen trotzdem noch in den allgemeinen Hilfeteil einbauen. Und die grauen Menüicons bitte nicht vergessen.

[horsthorn]

So sieht das 1 Stunde nach "Tipp von Andreas" aus...

AppendMenu 10," Hilfe \tF1",ImageList("GetIcon",Imagelist&,18)