XProfan

- Seite 2 -

Dieter
Zornow

Verstehe jetzt nicht was du meinst, kannst du das mal im Code zeigen oder ein Beispiel zeigen
Kompilieren Markieren Separieren

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 Markieren Separieren

 $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

statt so:
Kompilieren Markieren Separieren

 $H messages.ph
cls
subClass %hWnd,1

while 1

    waitInput
    case %mousePressed=2 : break

wend

end

subClassProc

    case subClassMessage(%hWnd,~wm_lButtonDown) : vielMach

endProc

proc vielMach

    locate 1,1

    whileLoop 30

        print &loop*&getTickCount

    wend

endproc

oder warsch. einfacher nach Rolands Art per setMenuItem statt sendMessage und %menuItem statt %uMessage.

(dafür aber weniger Infos mgl.)

Jörg
Sellmeyer

Ich meinte auch die SubClassProc. Was ist denn in Deinem Verzeichnis drin. Wie gesagt: Bei mir stürzt es auch häufiger bei "A" ab aber eben auch bei anderen Verzeichnissen.

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

Frank
Abbing

Stell mal sicher, dass am Pfadende kein "/", bzw. "" steht. Bzw. dass es dort steht, habs nicht mehr so gut in Erinnerung. Ich meine, ich hätte auch schon diese Probleme damit gehabt bei der Listview.dll.

Dieter
Zornow

Danke für die Tipps, aber es ändert sich nichts.

@If: mein subclassing ist vielleicht ungewöhnlich und einfach, aber es funktioniert einwandfrei und dürfte somit zulässig sein. Wenn ich das Subclassing herausnehme und auf einfachen Klick reagiere ändert sich nichts am Absturz.
@Jörg in dem Verzeichnis sind normale Dateien, hat aber damit auch nichts zu tun, da es mit dem Namen BAdressen ohne Problem geht.
@Frank in der Richtung ist alles ok, habe mir schon alle Pfade anzeigen lassen.

Da es scheinbar keine Lösung gibt, muss ich das Ding wohl aufgeben, obwohl es mich brennend interessiert was der Grund ist.

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

Wenn man die subClassProc umgestellt hat, dann reicht ein
Kompilieren Markieren Separieren

Proc AddAssociatedIcon

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

damit nichts abstürzt.

Ich hab zwar mit imageListen noch nichts angefangen aber ohne Icons kann ich in jedes Verzeichnis wechseln.

Schau mal:
Kompilieren Markieren Separieren

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&

endproc

Ohne:
Kompilieren Markieren Separieren

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$

endproc

stürzt das Programm nicht mehr ab, zumindest das hier: [...]

. Ich habe einfach bisl rückwärts "geproggt" (im Sinne des Minimalbeispieles) bis es fehlerfrei funzt. Das heisst natürlich nicht, dass Fehler nicht auch an anderen Stellen entstanden sein können, aber eine funktionierende Basis ist selten schlecht zum Fehlerfinden. ^^

Dieter
Zornow

Ok, Danke

Ich werde es mal ausprobieren, wenn das bei mir auch läuft, werde ich den Fehler bestimmt finden, durch hinzutun Schritt für 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 es nun bei mir einwandfrei. Ich kann Adressen zig mal öffnen. Ich habe zu Beginn erst mal alle Api-Funktionen so umgestellt wie in deinem Beispiel, von Addr() zu Bereich# und bei der Stringzuweisung einer Bereichsvariablen ein Null-Byte angehängt. Schon das hat es gebracht. Ist mir allerdings unverständlich Profan sollte das richtig machen und bei String Bereich#,0 bereits ein Null-Byte anhängen. mit addr(variable) muss dann scheinbar auch sehr vorsichtig umgehen, am besten gar nicht verwenden. Im Anhang ist die neue Version mit Icons und allem, könnte jemand mal testen ob es jetzt überall funktioniert, das wäre super wenn es so wäre.

Auf jeden Fall herzlichen Dank, ich hatte die Hoffnung schon fast aufgegeben, hier noch weiterzukommen.

griddir.zip	5 kB

Hochgeladen:	17.07.2009

Ladeanzahl:
		Herunterladen

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 könnte man auch ein Control machen, dann hätte man es immer und überall und müsste sich nicht ums Drumherum kümmern. create("loadFile",getDir$("@"),10,10,200,200)