XProfan

- page 2 -

Dieter
Zornow

Verstehe maintenant pas quoi du meinst, peux du cela la fois im Code montrer ou bien un Beispiel montrer
Kompilieren Marque Séparation

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 Marque Séparation

 $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 Marque Séparation

 $H messages.ph
cls
subClass %hWnd,1

tandis que 1

    waitInput
    cas %mousePressed=2 : pause

Wend

end

subClassProc

    cas subClassMessage(%hWnd,~wm_lButtonDown) : vielMach

endProc

proc vielMach

    locate 1,1

    whileLoop 30

        imprimer &loop*&getTickCount

    Wend

endproc

ou bien warsch. einfacher pour Rolands Art per setMenuItem statt sendMessage et %menuItem statt %uMessage.

(pour mais moins Infos mgl.)

Jörg
Sellmeyer

je meinte aussi qui SubClassProc. quoi ist car dans Deinem Verzeichnis drin. Comme je le disais: chez mir stürzt es aussi häufiger chez "A" ab mais plan aussi chez anderen Verzeichnissen.

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

Frank
Abbing

Stell la fois sûrement, dass am Pfadende ne...aucune "/", bzw. » steht. Bzw. dass es là steht, habs pas plus si bien dans Erinnerung. je mon, je hätte aussi déjà cet Probleme avec cela gehabt chez qui Listview.dll.

Dieter
Zornow

merci pour qui Tipps, mais es ändert sich rien.

@Si: mon subclassing ist peut-être ungewöhnlich et simple, mais es funktioniert einwandfrei et pourrait somit zulässig son. si je cela Subclassing herausnehme et sur einfachen Klick reagiere ändert sich rien am Absturz.
@Jörg dans dem Verzeichnis sommes normale Fichiers, hat mais avec cela aussi rien trop 1faire, là es avec dem Namen BAdressen sans Problem allez.
@Frank dans qui direction ist alles ok, habe mir déjà alle Pfade Montrer laisser.

là es scheinbar aucun Solution gibt, muss je cela Ding wohl aufgeben, quoique es mich brennend intéressé quoi qui 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

si on qui subClassProc umgestellt hat, ensuite reicht un
Kompilieren Marque Séparation

Proc AddAssociatedIcon

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

avec cela rien abstürzt.

je hab zwar avec imageListen encore rien angefangen mais sans Icônes peux je dans chaque Verzeichnis échanger.

exposition la fois:
Kompilieren Marque Séparation

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

sans:
Kompilieren Marque Séparation

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 cela Programme pas plus ab, zumindest que voici: [...]

. j'ai simple bisl arriéré "geproggt" (im Sinne des Minimalbeispieles) jusqu'à es correct funzt. cela heisst naturellement pas, dass faute pas aussi à anderen se mettre entstanden son peut, mais une funktionierende la base ist selten mal zum Fehlerfinden. ^ ^

Dieter
Zornow

Ok, merci

je werde es la fois ausprobieren, si cela chez mir aussi fonctionne, werde Je l' faute bestimmt trouver, par hinzutun Schritt pour 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 eh bien chez mir einwandfrei. je peux Adressen zig la fois ouvrir. j'ai trop Beginn seulement la fois alle Api-Funktionen so umgestellt comment dans deinem Beispiel, de Addr() trop Bereich# et chez qui Stringzuweisung einer Bereichsvariablen un zéro-Byte angehängt. déjà cela hat es gebracht. Ist mir allerdings inintelligible Profan sollte cela richtig faire et chez String Bereich#,0 bereits un zéro-Byte anhängen. avec addr(variable) muss ensuite scheinbar aussi très prudent tourner autour de, am besten gar pas verwenden. Im Anhang ist qui neue Version avec Icônes et allem, pourrait quelqu'un la fois testen si es maintenant überall funktioniert, cela wäre super si es so wäre.

sur jeden le cas herzlichen Dank, je hatte l'espoir déjà presque aufgegeben, ici encore weiterzukommen.

griddir.zip	5 kB

Hochgeladen:	17.07.2009

Downloadcounter:
		Download

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

de rien!

Aus solch reagierendem ListView pourrait on aussi un Contrôle faire, ensuite hätte on es toujours et überall et devrait sich pas ums Drumherum kümmern. create("loadFile",getDir$("@"),10,10,200,200)