XProfan

- Página 2 -

Dieter
Zornow

Verstehe ahora no qué du media, kannst Si es usted el veces en el Code zeigen oder una Ejemplo zeigen
Kompilieren Marca Separación

SubClassProc

    If &sWnd = gb&

        If SubClassMessage(gb&, 515) doppel Klick

            case execute$ <> "":RunItem(gb&,execute$,maske$)
            Set("WinProc", 1)

        elseIf SubClassMessage(gb&,516) rechts Klick

            Messagebox("Rechtsklick","",0)
            Set("WinProc", 1)

        EndIf

    Endif

ENDPROC

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

So
Kompilieren Marca Separación

 $H messages.ph
cls
userMessages ~wm_user+111
subClass %hWnd,1

while 1

    waitInput
    case %mousePressed=2 : break
    case (%uMessage=~wm_user+111) and (&uWParam=1) : vielMach

wend

end

subClassProc

    case subClassMessage(%hWnd,~wm_lButtonDown) : sendMessage(%hWnd,~wm_user+111,1,0)

endProc

proc vielMach

    locate 1,1

    whileLoop 30

        print &loop*&getTickCount

    wend

ENDPROC

en lugar de así:
Kompilieren Marca Separación

 $H messages.ph
cls
subClass %hWnd,1

mientras que 1

    waitInput
    caso %mousePressed=2 : romper

wend

end

subClassProc

    caso subClassMessage(%hWnd,~wm_lButtonDown) : vielMach

endProc

proc vielMach

    locate 1,1

    whileLoop 30

        imprimir &bucle*&getTickCount

    wend

ENDPROC

oder warsch. einfacher después de Rolands Art por setMenuItem en lugar de sendMessage y %menuItem en lugar de %uMessage.

(dafür aber weniger Infos mgl.)

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 ...

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.

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)