Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
3 - Helfer & Tools

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Toolbar bearbeiten
Autor: Horst Horn (---.hsi2.kabelbw.de)
Datum:   07.10.10 13:25

@Detlef
Habe dir einen Code von mir hierhin gestellt. Damit kannst du alle Icons der SHELL32.DLL nutzen. Hoffe, du steigst durch.
Normal müsste der Code laufen.
$H windows.ph
 $H shellapi.ph
 '-------------------------------------------------------
 DEF LoadImage(6) ! "USER32","LoadImageA"
 DEF &BM_GETIMAGE $0F6
 DEF &BM_SETIMAGE $0F7
 DEF &IMAGE_BITMAP  0
 DEF &LR_LOADFROMFILE $010
 '##############################################################
 DECLARE LargeIcon&,SmallIcon&
 DECLARE hlp&,neu&,firma&,kunden&,schreiben&,laden&,save&,print&,kill&,info&,aus&,logo&
 DECLARE hlp%,neu%,firma%,kunden%,schreiben%,laden%,save%,print%,kill%,info%,logo%,aus%,logo_p%
 DECLARE spalte%,zeile%,steig%,tip%
 
 hlp%=23:neu%=54:firma%=251:kunden%=160:schreiben%=74:laden%=4:save%=258:print%=16
 kill%=131:info%=221:logo%=301:aus%=27
 
 DECLARE icon&,Imagelist&
 DECLARE iconDLL$,programm$,vers$
 iconDLL$="SHELL32.DLL"
 Programm$=" Icon-Test":vers$="1.0"
 '--------------------------------------------------------------
 PROC HOT_TASTEN
 Set("MenuIconSize",20) 'Hauptmenu
 DECLARE imagelist&,icon&
 Imagelist& = Create("ImageList", 32,32)
 Declare Icon&[]
 Whileloop 0, 305 '305 einzelne Icons sind in der SHELL32.DLL
 'die meisten Anzeigen zeigen nur die 1 50 Icons dieser DLL - mit Whileloop 0,305 kannst du alle aufrufen
   Icon& = Create("hIcon",iconDLL$,&loop)
   Imagelist("AddIcon",ImageList&,Icon& )
 EndWhile
 '-------------------------------------------
 POPUP " &Formular-Funktionen    "
 AppendMenu 10," Hilfe \tF1",ImageList("GetIcon",Imagelist&,hlp%)
         ADDHOTKEY 10,112,0 'Hilfe F1
         SEPARATOR
 AppendMenu 12," &Neuer Eintrag \tAlt+N",ImageList("GetIcon",Imagelist&,neu%)
         ADDHOTKEY 12,78,4 'Neueintrag
         SEPARATOR
 AppendMenu 14," Eintrag &Laden\tAlt+L",ImageList("GetIcon",Imagelist&,laden%)
         ADDHOTKEY 14,76,4 'Neueintrag
         SEPARATOR
 AppendMenu 16," &Firmendaten \tAlt+F",ImageList("GetIcon",Imagelist&,firma%)
         ADDHOTKEY 16,70,4 'Firma F
         SEPARATOR
 AppendMenu 18," &Kundendaten \tAlt+K",ImageList("GetIcon",Imagelist&,kunden%)
         ADDHOTKEY 18,75,4 'Kunden K
         SEPARATOR
 AppendMenu 22," Drucken \tF5",ImageList("GetIcon",Imagelist&,print%)
         ADDHOTKEY 22,116,0 'Drucken
         SEPARATOR
 AppendMenu 24," Speichern \tF6",ImageList("GetIcon",Imagelist&,save%)
         ADDHOTKEY 24,117,0 'Speichern
 AppendMenu 25," Speichern unter...\tF7",ImageList("GetIcon",Imagelist&,save%)
         ADDHOTKEY 25,118,0 'Speichern
         SEPARATOR
         SEPARATOR
 AppendMenu 26," Löschen \tF8",ImageList("GetIcon",Imagelist&,kill%)
         ADDHOTKEY 26,119,0 'Löschen
         SEPARATOR
         SEPARATOR
 AppendMenu 30," Information \tF9",ImageList("GetIcon",Imagelist&,info%)
         ADDHOTKEY 30,120,0 'Info F9
         SEPARATOR
         SEPARATOR
 AppendMenu 100," Programmende \tAlt+F4",ImageList("GetIcon",Imagelist&,aus%)
         ADDHOTKEY 100,115,4 'Programm-Ende ALT+F4
 PopUp "&Sonstiges...     "
 AppendMenu 125," Briefkopf Neu... \tAlt+1",ImageList("GetIcon",Imagelist&,neu%)
         ADDHOTKEY 125,49,4
 AppendMenu 127," Briefkopf Bearbeiten \tAlt+2",ImageList("GetIcon",Imagelist&,firma%)
         ADDHOTKEY 127,50,4
         SEPARATOR
         SEPARATOR
 AppendMenu 130," Kundeneintrag Neu... \tAlt+4",ImageList("GetIcon",Imagelist&,neu%)
         ADDHOTKEY 130,52,4
 AppendMenu 132," Kundeneintrag Bearbeiten \tAlt+5",ImageList("GetIcon",Imagelist&,kunden%)
         ADDHOTKEY 132,53,4
         SEPARATOR
         SEPARATOR
 AppendMenu 120," Logo-Seite &Drucken... \tAlt+D",ImageList("GetIcon",Imagelist&,logo_P%)
          ADDHOTKEY 120,68,4
 ENDPROC
 '---------------------------------------------------------------------
 PROC MAIN_BUTTONS
 spalte%=10:zeile%=2:steig%=40
  ~ExtractIconEx(iconDLL$,hlp%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  hlp&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,hlp&," Hilfetext F1 ")
 spalte%=(spalte%+(steig%*2))
 ~ExtractIconEx(iconDLL$,neu%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  neu&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,neu&," &Neuer Eintrag  Alt+N ")
 spalte%=(spalte%+steig%)
 ~ExtractIconEx(iconDLL$,laden%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  laden&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,laden&," Eintrag &Laden  Alt+L ")
 spalte%=(spalte%+(steig%*2))
 ~ExtractIconEx(iconDLL$,firma%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  firma&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,firma&," &Firmen-Daten...  Alt+F ")
 spalte%=(spalte%+steig%)
 ~ExtractIconEx(iconDLL$,kunden%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  kunden&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,kunden&," &Kunden-Daten  Alt+K ")
 spalte%=(spalte%+(steig%+20))
 ~ExtractIconEx(iconDLL$,print%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  print&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,print&," Daten drucken  F5 ")
 spalte%=(spalte%+(steig%*2))
 ~ExtractIconEx(iconDLL$,save%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  save&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,save&," Daten speichern  F6 ")
 spalte%=(spalte%+(steig%*2))
 ~ExtractIconEx(iconDLL$,kill%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  kill&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,kill&," Daten löschen  F8 ")
  spalte%=(spalte%+(steig%*2))
  ~ExtractIconEx(iconDLL$,logo%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  logo&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,logo&," Briefkopf-Logo einfügen...")
 '----------------------------------------------------------
 spalte%=800
 ~ExtractIconEx(iconDLL$,info%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  info&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,info&," Programm_infos...  F9 ")
 spalte%=(spalte%+(steig%+5))
 ~ExtractIconEx("shell32.dll",aus%,Addr(LargeIcon&),Addr(SmallIcon&),1)
  aus&=Create("IconButton",%hwnd,LargeIcon&,spalte%,zeile%,34,34)
  tip%=CREATE("TOOLTIP",%hwnd,aus&," "+programm$+" "+vers$+"\n beenden   Alt+F4")
 ENDPROC
 '###################################################
 WINDOW (%MaxX/2-450),(%MaxY/2-350)-900,700
 MAIN_BUTTONS
 HOT_TASTEN
 WHILE 1
 WAITINPUT
 CASE MenuItem(100) | CLICKED(aus&):END
 ENDWHILE
 end


Gruss
horst

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Toolbar bearbeiten  Neu
Detlef Both 02.09.10 09:10 
 Re: Toolbar bearbeiten  Neu
David Strutz 02.09.10 20:51 
 Re: Toolbar bearbeiten  Neu
Detlef Both 06.10.10 09:27 
 Re: Toolbar bearbeiten  Neu
Horst Horn 06.10.10 10:18 
 Re: Toolbar bearbeiten  Neu
Rolf Koch 06.10.10 21:04 
 Re: Toolbar bearbeiten  Neu
Horst Horn 06.10.10 21:10 
 Re: Toolbar bearbeiten  Neu
Detlef Both 07.10.10 12:52 
 Re: Toolbar bearbeiten  Neu
Horst Horn 07.10.10 13:25 
 Re: Toolbar bearbeiten  Neu
Detlef Both 08.10.10 12:51 
 Re: Toolbar bearbeiten  Neu
Detlef Both 11.10.10 09:11 
 Re: Toolbar bearbeiten  Neu
Horst Horn 11.10.10 09:46 
 Re: Toolbar bearbeiten  Neu
Rolf Koch 07.10.10 13:33 
 Re: Toolbar bearbeiten  Neu
Detlef Both 08.10.10 12:54 
 Re: Toolbar bearbeiten  Neu
Jörg Sellmeyer 11.10.10 12:12 
 Re: Toolbar bearbeiten  Neu
Horst Horn 11.10.10 12:23 
 Re: Toolbar bearbeiten  Neu
Jörg Sellmeyer 11.10.10 13:39 
 Re: Toolbar bearbeiten  Neu
Horst Horn 11.10.10 14:00 
 Re: Toolbar bearbeiten  Neu
Frabbing 11.10.10 14:12 
 Re: Toolbar bearbeiten  Neu
Horst Horn 11.10.10 15:21 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org