XProfan

English

If I in my Program Startzeilen into Menu eintrage, circa so one other Program to start, had I gladly so we on the surface here the program-Icon to the Textzeile. gives it for a API The the bewerkstelligt ?
as weiterführende Statement one Bildchen

thanks for a Help

favoriten.png	10 kB

Kurzbeschreibung:	here should the Icon before it stand...

Hochgeladen:	10/15/07

Downloadcounter:
		Download

10/15/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

SetMenuItemBitmaps()

10/15/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

and here Gibts same yet whom code moreover:
[...]

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

10/15/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Christian
Eichler

I Have there already what written:
The procedure MenuBild position the Icon, which names in MenuBild$ stored is, ans Menu with the ID from MenuItem&. though must MenuBild$ in my case directly with in the own Program stored his ! (take off my Program then Yes optimal was !)
Compile Mark Separation

Def @SetMenuItemBitmaps(5) !user32.dll,SetMenuItemBitmaps
Def @ALoadBitmap(2) ! user32.dll,LoadBitmapA

proc MenuBild

    parameters MenuItem&, MenuBild$
    Dim MenuBild#,32
    String MenuBild#,0=MenuBild$
    @SetMenuItemBitmaps(@GetMenu(%HWND),MenuItem&,0,@ALoadBitmap(%HInstance,MenuBild#),0)
    Dispose MenuBild#

mfg Christian E.

Debian Lenny, Intel Celeron 2,8 Ghz, 768 MB Ram && Win XP Pro, Intel C2D 1,66Ghz, 2 GB Ram ... PROFAN² 6.6

10/15/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Perhaps Have I inaccurate framed. If I with the code
Compile Mark Separation

DEF ExtractIcon(3) !SHELL32,ExtractIconA
DEF &BM_SETIMAGE $0F7
DEF &IMAGE_ICON $01

Proc CreateIconButton

    Parameters Exe$,Index&,Window&,X&,Y&,W&,H&,ID&
    Declare Button&,Icon&
    Button& = @Control(Button,,$56000040,X&,Y&,W&,H&,Window&,ID&,%Hinstance)
    Icon& = ExtractIcon(%Hinstance,Addr(Exe$),Index&)
    Sendmessage(Button&,&BM_SETIMAGE,&IMAGE_ICON,Icon&)
    Return Button&

EndProc

Declare prog1$,prog1&
prog1$=E:IRVAN_VIEWERI_VIEW32.EXE Anpassen
CLS
CreateIconButton prog1$,0,%hwnd,15,10,38,38,001
prog1& = &(0)
WAITINPUT
END

work, becomes the Button on the surface with the Icon the Program occupied, which I here started wants. the same would like I in Fenstermenu achieve. The code, The here stand works with strangers Bildchen. i want as Wiedererkennungshilfe the Program icon in the Menu Show. goes the and if so, How ???

10/15/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote