XProfan

- Página 2 -

Jörg
Sellmeyer

Yo meinte auch el SubClassProc. Was es porque en Deinem Directorio drin. Como ya he dicho: En me stürzt lo auch häufiger en "A" de aber eben auch en otro Verzeichnissen.

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

16.07.2009 ▲

Frank
Abbing

Stell veces sicher, dass al Pfadende kein "/", o. "" es. Bzw. dass lo hay es, habs no mehr tan bueno en Erinnerung. Yo mi, Yo hätte auch ya esta Problemas así gehabt en Listview.dll.

16.07.2009 ▲

Dieter
Zornow

Gracias para el Tipps, pero ändert se nichts.

@If: mein subclassing es tal vez ungewöhnlich y simplemente, pero funktioniert einwandfrei y dürfte somit zulässig ser. Wenn Yo el Subclassing herausnehme y en einfachen Clic reagiere ändert se nichts al Choque.
@Jörg en el Directorio son normale Archivos, ha aber así auch nichts a tun, como lo con el Namen BAdressen sin Problema va.
@Franco en el Richtung es alles ok, habe me ya todos Pfade Mostrar dejar.

Como lo scheinbar no Solución son, muss Yo lo wohl aufgeben, obwohl lo mich brennend interessiert qué el Grund es.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Wenn uno el subClassProc umgestellt ha, entonces reicht una
Kompilieren Marca Separación

Proc AddAssociatedIcon

    Parameters name$,i&,Imagelist&
    return 0//<--/pre>

así nichts accidentes.

Yo zwar con imageListen todavía nichts angefangen aber sin Icons kann Yo en cada Directorio wechseln.

Schau veces:
Kompilieren Marca Separación

Proc AddAssociatedIcon

    Parameters name$,i&,Imagelist&
    var Hicon&= External("Shell32","ExtractAssociatedIconA",%hinstance,addr(name$),addr(i&))
    External("comctl32.dll","ImageList_AddIcon",Imagelist&,HIcon&)       Icon in Imagelist hinzufügen
    External("USER32.DLL","DestroyIcon",HIcon&)                         Handle löschen
    messagebox str$(imageList&),name$,0
    var a&=External("comctl32.dll","ImageList_GetImageCount",Imagelist&)
    messagebox "5","",0
    return a&

oc

Ohne:
Kompilieren Marca Separación

Proc PlusBackslash

    parameters pfad$
    declare pfad#,result$
    Dim pfad#,len(pfad$)+1
    string pfad#,0 = pfad$
    External("shlwapi","PathAddBackslashA",pfad#)
    result$ = string$(pfad#,0)
    Dispose pfad#
    return result$

oc

stürzt el Programa no mehr de, zumindest que aquí: [...]

. Yo habe simplemente bisl rückwärts "geproggt" (en el Sinne des Minimalbeispieles) a lo fehlerfrei funzt. Das heisst natürlich no, dass Fehler no auch a otro Stellen entstanden ser puede, aber una funktionierende Base es selten schlecht para Fehlerfinden. ^ ^

Dieter
Zornow

Ok, Gracias

Yo voluntad lo veces ausprobieren, si en el me auch se ejecuta, voluntad Yo, el Fehler determinado encontrar, por hinzutun Schritt para Schritt.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Dieter
Zornow

@IF Dank deiner Vorarbeit funktioniert lo nun en me einwandfrei. Puedo Adressen zig veces abierto. Yo habe a Beginn sólo veces todos Api-Características así umgestellt como en deinem Ejemplo, de Addr() a Zona# y en Stringzuweisung uno Bereichsvariablen una Null-Byte angehängt. Schon el ha lo gebracht. Ist me allerdings unverständlich Profano debería el correcto hacer y en String Zona#,0 ya una Null-Byte anhängen. con addr(variable) muss entonces scheinbar auch muy vorsichtig umgehen, al besten nada uso. Im Anhang Es el neue Versión con Icons y allem, podría alguien veces testen si ahora überall funktioniert, el wäre super si así wäre.

Auf cada Fall herzlichen Dank, Yo hatte el Hoffnung ya fast aufgegeben, hier todavía weiterzukommen.

griddir.zip	5 kB

Hochgeladen:	17.07.2009

Ladeanzahl:
		Descargar

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Gern geschehen!

Aus solch reagierendem ListView podría uno auch una Control hacer, entonces hätte uno lo siempre y überall y debería se no ums Drumherum kümmern. create("loadFile",getDir$("@"),10,10,200,200)

Frank
Abbing

Su Code liesse se sicher todavía optimieren. So sehen el Icons desafortunadamente bastante bescheiden de, algo passt no tan bastante.
Links una Fileliste mittels el Listview.dll, rechts el Ergebnis con deinem Code.

Screen 17.07.2009, 20 Uhr 58, 58 Sek.png	30 kB

Hochgeladen:	17.07.2009

Ladeanzahl:
		Descargar

- Página 3 -

Dieter
Zornow

Sí, el Icons son blasser, wahrscheinlich porque el Herkunft verschieden es. En Listview.dll Yo pero en me festgestellt, dass no jede Expediente una Icon bekommt, deshalb Yo una otro Herkunft gewählt. Tiempo sehen qué se como hacer läßt.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

18.07.2009 ▲