XProfan

Español

¡Hola Franco
Kompilieren Marca Separación

ilist&=CreateImageList(1,addr(anzahl&))

Es el Línea, con el el Imagen-Liste en mein Programa eingeladen se. Funktioniert auch bestens. Jetzt tener Yo aber en Grund uno Tipps de J. Sellmeier festgestellt, dass manchmal no correcto gezeigt se. Liegt el a el Systemeinstellung oder kannst Usted el todavía una bischen verfeinern ? - Lo va en erster Linie a LNK-Archivos. Wenn I, con el Kurzcode de PRFellow una LNK-.Expediente aufrufe, zeigt me el Texto el Icon el con el LNK-Expediente verknüpften Anwendung. Könnte el en Deiner DLL auch posible gemacht voluntad ?
Hier el Code:
Kompilieren Marca Separación

PRFellow-Vorlage
Autor: Thomas Hölzer
Das Handle des mit einer Programm- oder Datendatei verbundenen
Icons ermitteln
Benötigt unbedingt Profan 6.1 (32) wg. Addr-Funktion
Besonders nett: Wenn die Datei nicht existiert oder der
Iconindex (3.Parameter) nicht stimmt, wird ein Standardicon
geliefert. Das Ergebnis der Proc steht in @&(0)
Def w32_ExtractAssociatedIcon(3) !"SHELL32","ExtractAssociatedIconA"
declare x#

Proc ExtractAssociatedIcon

    Parameters f$,i&
    Declare h&
    Dim x#,255
    String x#,0=f$
    Let i&=1
    Let h&=w32_ExtractAssociatedIcon(%hinstance,x#,Addr(i&))
    Dispose x#
    Return h&

EndProc

Beispiele
Def w32_DrawIcon(4) !"USER32","DrawIcon"
Cls
WindowTitle "Icons von AUTOEXEC.BAT und unbekannter Datei"
ExtractAssociatedIcon "C:\AUTOEXEC.BAT",1
w32_DrawIcon(%hdc,100,100,&(0))
ExtractAssociatedIcon "C:\Mozilla Thunderbird.lnk"  Normal ist die Datei im DESKTOP
Hier habe ich sie für Test-Zwecke auf die Festplatte kopiert
w32_DrawIcon(%hdc,150,100,&(0))
WaitInput

...y aquí una Ausschnitt de meiner DESKTOP-Anzeige con Der LISTVIEW.DLL

lnk_datei.jpg	55 kB

Kurzbeschreibung:	LNK-Archivos con "neutralem" Icon

Hochgeladen:	16.11.2006

Ladeanzahl:
		Descargar

16.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

CreateImageList() con Flag 1 holt el Handle el Sistema-Imagelist. Also el Liste, con de los Sistema arbeitet con el a diesem Zeitpunkt en él liegenden Icons.
Usted puede aber en cualquier momento una propio Imagelist aufbauen, con allen Icons, el du necesidad. Einige nötigen Definitionen dazu befinden se ya en el Expediente Listview_Funktionen.inc. Como uno una propio Imageliste benutzt, zeigt z.B. el Listview-Demo Gezeichnete_Bitmap_einbauen.prf.
Benutzt du hingegen FilelistToCsv() y möchtest du el Linked Icons Mostrar, entonces schalte simplemente Flag $200 dazu. Das verzögert allerdings el Ausführung en ca. el Doppelte.

16.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Franco
[quote:dc7b1fb0f0]Benutzt du hingegen FilelistToCsv() y möchtest du el Linked Icons Mostrar, entonces schalte simplemente Flag $200 dazu. Das verzögert allerdings el Ausführung en ca. el Doppelte.[/quote:dc7b1fb0f0]
Hier es una Auszug de mi Texto. Original übernommen de el Anleitung y otro Listview-Variables instalado. Als erstes frage Yo mich ya siempre, como 31 zusammen kommt. Mit el Werten de el Anleitung komme Yo sólo a 25 - ? - Wenn Yo ahora 200 dazugebe, se el Anzeige total para Chaos ? -
Was se ejecuta como erróneo ?
Kompilieren Marca Separación

bytes&=FilelistToCsv(addr(text$),bereich#,0,0,31,icons#)
x&=SetColumnsFromMem(LINKS_VIEW&,bereich#,addr(spalte%))
CsvToListview(LINKS_VIEW&,(bereich#+spalte%),(bytes&-spalte%),x&)
z&=GetLines(LINKS_VIEW&)
SetIconsFromMem(LINKS_VIEW&,0,icons#,z&)/pre>

Ein ziehmlich fertiger horst

Apéndice: Im Explorer-Demo en el Beispieltexten es a gleicher Punto $11f y hier son neutrale Icons en el Ansicht ?

16.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

¡Hola Horst,
Usted mußt no 200 pero $200 dazuaddieren. $200 es Hex$(512).

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

16.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

16.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Gracias Jörg - pero yo habe una Umrechner para el Hex-Werte

@Franco - no así dreckig grinsen

Kompilieren Marca Separación

bytes&=FilelistToCsv(addr(text$),bereich#,0,0,($1+$2+$4+$8+$10+$200),icons#)
bytes&=FilelistToCsv(addr(text$),bereich#,0,0,(543),icons#)e>

Beide Schreibweisen haben keinerlei Auswirkung. Nun mi Yo aber, irgendwann hätte mein Programa el Icons adecuado. Werde heute mittag (muss para Arzt

) PROFAN-9 einrichten y así versuchen. Tal vez hay una Diskrepanz (schönes Wort) zwischen Listview.dll y XProfan-10 ?

konverter.jpg	21 kB

Kurzbeschreibung:	Rechnet todos Werte en...

Hochgeladen:	17.11.2006

Ladeanzahl:
		Descargar

17.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

¡Hola Horst,
Yo habe ahora el Filtermöglichkeiten el Dll no en el Kopf, aber Usted puede tal vez lnk-Archivos sólo veces ausnehmen y luego nachträglich einfügen y el Icons con el Code de Prfellow dazupacken.
Das verlangsamt el código natürlich, como Usted cada Verzeichniswechsel checken mußt, si solche Archivos disponible son.
Tal vez löst se el problema en efecto todavía de allein...

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

17.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Der Flag dient en erster Linie Exe-Archivos, así el Icon el Exe adecuado se y no el Standarticon. Yo blanco aber, dass lo auch con ähnlichen Archivos funktioniert. Ob lo con Lnk-Archivos auch va, Yo nie getestet y tener a diesem Computer auch no el Möglichkeit dazu (es kein Profano y MASM installiert).

...y - Yo grinse nie fies... ;D

17.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Franco
[quote:84ccfeb126]...y - Yo grinse nie fies... happy[/quote:84ccfeb126]
Antwort - siehe Bild....

grins.jpg	57 kB

Hochgeladen:	17.11.2006

Ladeanzahl:
		Descargar

17.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

...media du etwa el moralisch unterstützende Zähneblecken?

17.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Wenn hier uno grinst, entonces doch wohl Yo, oder?

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

17.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

¡Hola,

tener veces una bischen experimentiert y nachgelesen. El Sache con el Lnk-Archivos es algo komplizierter como pensamiento.
Hierbei es no el problema, a el linked-Icon a kommen, pero dieses a archivieren. Dazu muss uno wissen, que un Listview (con Icons) a una Imagelist gebunden es y no freien Icons uso kann. Nur Icons, que en el Imageliste befinden, puede verwendet voluntad. FilelistToCsc() benutzt hierzu el Systemimageliste. Das Dazufügen, Wegnehmen y Freigeben de Icons es aber con uno Dll-Función, el alles en un Resbalón ausliest y sólo entonces a una grafische Rutina übergibt, a aufwendig. Dazu muss Yo primero Gedanken hacer.
Usted wirst also primero sin la Link-Icons auskommen necesario.

Der Flag $200 es en dieser Form auch sólo una Krücke, porque el Systemimageliste fortwährend ändern kann y el a Fehlern führen kann. Das voluntad Yo así todavía no dejar, sodass Yo por lo tanto Por favor,, dieses Flag no necesariamente a benutzen. Como se se qué ändern.

Und si yo ya esta bin, voluntad Yo auch grosse Icons igual con einbeziehen.

17.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

►