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

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Programmicon in Gridbox stellen
Autor: Horst Horn (---.hsi14.kabel-badenwuerttemberg.de)
Datum:   11.09.17 11:06

Wie bekomme ich OHNE DLL nur mit XProfan-Code die Icons in die Gridbox ?
Wie bei Windows-Anzeigen üblich, sollen die Icons der Programmverknüpfung in der Anzeige vor den Einträgen gezeigt werden.
Wer hat da einen Tipp ?
Hier ist der Code, der die Icons aber auf dem Hauptfenster zeigt:
 DEF w32_ExtractAssociatedIcon(3) !"SHELL32","ExtractAssociatedIconA"
 DEF w32_DrawIcon(4) !"USER32","DrawIcon"
 VAR EE%=0
 DECLARE name$
 DECLARE nr%,Lv&,x#
 '###################################################################
 'Hier das gewünschte Laufwerk und Verzeichnis einstellen 
 VAR lw$="C:\\TEMP"
 CHDIR lw$
 '-------------------------------------------------------------------------------------------------------
 VAR I%=0
 VAR spalte%=10
 VAR zeile%=5
 VAR steig%=32
 '------------------------------------------------------------------------------------------------------
 WINDOWSTYLE 0
 WINDOW 100,10-500,(%MaxY-60)
 VAR grid&=CREATE("GRIDBOX",%Hwnd,"Testbox;0;250",3,200,10,280,(%MaxY-130))
 ANZEIGE lw$
 VAR aus&=CREATE("BUTTON",%hwnd;"Abbrechen",70,10,100,32)
 SETFOCUS(%Hwnd)
 WHILENOT EE%
 WAITINPUT
 CASE %KEY=2:EE%=1
 CASE CLICKED(aus&):EE%=1
 ENDWHILE
 END
 '##############################################################
 PROC ANZEIGE
 PARAMETERS lw$
 VAR I%=0
 CLEARLIST
 CLEARLIST lv&
 CHDIR lw$
 ADDFILES "*.*"
 WHILELOOP I%, %GETCOUNT
 name$ = GETSTRING$(0, &LOOP)
 IF LEFT$(name$,1)="["
 name$=UPPER$(name$)
 name$=TRANSLATE$(name$,"[",CHR$(32))
 name$=TRANSLATE$(name$,"]","")
 ELSE
 name$=LOWER$(name$)
 name$=CHR$(160)+name$
 ENDIF
 INC I%
 ADDSTRING(grid&,name$)
 IF LEFT$(name$,1)=CHR$(32)
         name$=TRANSLATE$(name$,CHR$(32),"")
         ExtractAssociatedIcon name$,0
         w32_DrawIcon(%hdc,spalte%,zeile%,&(0))
 ELSEIF LEFT$(name$,1)=CHR$(160)        
         name$=TRANSLATE$(name$,CHR$(160),"")     
         ExtractAssociatedIcon name$,0
         w32_DrawIcon(%hdc,spalte%,zeile%,&(0))
 ENDIF
                 zeile%=zeile%+steig%
 ENDWHILE
 ENDPROC
 '###############################################################
 PROC EXTRACTASSOCIATEDICON
 	PARAMETERS f$,i&
 	DECLARE h&
 	DIM x#,255
 	STRING x#,0=f$
 	i&=1
 	h&=w32_ExtractAssociatedIcon(%hinstance,x#,Addr(i&))
 	DISPOSE x#
 	RETURN h&
 ENDPROC
 '###############################################################
 


Gruss
horst :-)

http://www.horst-horn.de

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

 Beiträge Autor  Datum
 Programmicon in Gridbox stellen  Neu
Horst Horn 11.09.17 11:06 
 Re: Programmicon in Gridbox stellen  Neu
Heinz Brill 11.09.17 16:29 
 Re: Programmicon in Gridbox stellen  Neu
Horst Horn 11.09.17 17:11 
 Re: Programmicon in Gridbox stellen  Neu
Heinz Brill 11.09.17 18:16 
 Re: Programmicon in Gridbox stellen  Neu
Horst Horn 11.09.17 19:58 
 Re: Programmicon in Gridbox stellen  Neu
Heinz Brill 11.09.17 20:16 


 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