| |
| |
|
Frank
Abbing |
(w) Frank Abbing
Declare newlist&,largeicon&,smallicon&,tbar&
Def ExtractIconEx(5) !"shell32","ExtractIconEx"
Cls
newlist&=Create("ImageList", 32, 32)
ExtractIconEx("setupapi.dll",1,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",8,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("main.cpl",11,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",22,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",21,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
tbar&=Create("Toolbar",%hwnd,newlist&,0,0,3000,1)
Toolbar("AddTextButton",tbar&,0,4000," Icon 1 ","")
Toolbar("AddTextButton",tbar&,1,4001," Icon 2 ","")
Toolbar("AddTextButton",tbar&,2,4002," Icon 3 ","")
Toolbar("AddTextButton",tbar&,4,3000," Icon 4 ","")
Toolbar("AddTextButton",tbar&,3,3001," Icon 5 ","")
While 1
WaitInput
Case %key=2:Break
Endwhile
End
can your time Please a Screenshot from the Window make? be not sure, whether any Icons everywhere present are...
thanks!!! |
 |
| |
| |
| |
|
|
Rolf
Koch | | Vista shows following Icons |
|
| |
| |
| |
|
|
E.T. | Büdde...  |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 12/21/08 ▲ |
|
| |
|
|
Paul
Glatz | | by me The equal How with Rolf |
|
| |
| |
| |
|
|
Frank
Abbing | OK, thanks!
Reicht me already to see, that it so not goes. under whom different Windowsversionen watts The Order the Icons unfortunately not eingehalten...  |
|
| |
| |
| |
|
(905)
Deutsch
English
Français
Español
Italia
