XProfan

- Page 2 -

Dieter
Zornow

understand now not what you mean, can you the time in the code show or an example show
Compile Mark Separation

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
Compile Mark Separation

 $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

instead of so:
Compile Mark Separation

 $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

or warsch. plainer to Rolands manner by setMenuItem instead of sendMessage and %menuItem instead of %uMessage.

(for but less Info mgl.)

Jörg
Sellmeyer

I meant too The SubClassProc. What is because in Your directory drin. As I said: by me crashes it too more frequently with "A" ex but even too with others Verzeichnissen.

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

Frank
Abbing

Stell time sure, that on the Pfadende no "/", or. "" standing. or. that it there standing, habs not any more so well in recollection. I mean, I had already these Problems so had with list view.dll.

Dieter
Zornow

thanks for Tipps, but it changes itself nothing.

@If: my subclassing is Perhaps unusual and simply, but it functions correct and might accordingly permitted his. If I the Subclassing herausnehme and on einfachen Click respond changes itself nothing on the crash.
@Jörg in the directory are normal Files, has but so too nothing To do, there it with the names BAdressen without trouble goes.
@Frank in the direction is everything ok, have me already any Paths Show let.

there it apparently no Solution gives, must I the thing well forsaking, though it me brennend interested what the reason is.

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

If one The subClassProc umgestellt has, then reicht one
Compile Mark Separation

Proc AddAssociatedIcon

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

so nothing crashes.

I Have of course with imageListen yet nothing started but without Icons can I in each directory change.

look time:
Compile Mark Separation

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

without:
Compile Mark Separation

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

crashes the program not any more ex, at least that here: [...]

. I have simply bisl backward "geproggt" (in the senses the Minimalbeispieles) To it fehlerfrei working. the means naturally not, that Error not too on others to put emerged his can, but a working Base is seldom badly to that Fehlerfinden. ^^

Dieter
Zornow

OK, thanks

i'll it time try, if the by me too runs, I will whom Error certainly find, through hinzutun step for step.

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 Thanks your preparatory work functions it now by me correct. I can Adressen zig time open. I have To Beginn first time any Api-functions so umgestellt How in your example, of Addr() To area# and with the Stringzuweisung of/ one Memory-Variables one zero-byte appended. already the has it brought. is me though unverständlich Profan ought to the right make and with String area#,0 already one zero-byte append. with addr(variable) must then apparently too very softly-softly bypass, best none use. in the attachment is the new version with icons and everything, could someone test times whether it now everywhere functions, the would super if it so would.

On each drop cordial Thanks, I had The hope already almost given, here yet weiterzukommen.

griddir.zip	5 kB

Hochgeladen:	07/17/09

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

gladly happen!

from such reagierendem ListView could one too one Control make, then had one it always and everywhere and should not ums Drumherum concern. create("loadFile",getDir$("@"),10,10,200,200)