XProfan

Dieter
Zornow

Hola Tomás,

habe lo a veces Win 7 32 bit getestet. Su Treeview zeigt no el richtigen Archivos a. Wenn Yo z.B. Benutzer öffne kommt como ca. 10 veces un directorio "Windows" sonst nichts. Wenn Yo Programas öffne se como sólo una Expediente adecuado el überhaupt no como drin es.
Als Yo media PDF-Reader verknüpfen quería podría Yo el no, porque sí en Programas nichts adecuado se. Ab diesem Zeitpunkt podría Yo en el Listview entonces auch no mehr scrollen. Más podría Yo no testen, como el wesentlichen Sachen no funktionierten.

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

Thomas
Freier

¡Hola Dieter,
el es aber schade. Geht dein Ejemplo (Zip-Anhang)?
Dann müßte Yo, el Ordnerinhalt sólo daneben Mostrar.

treeview.zip	6 kB

Hochgeladen:	07.01.2011

Ladeanzahl:
		Descargar

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Hola Tomás,

el funktioniert auch no, hängt wohl con el virtuellen Verzeichnissen de Win 7 zusammen. Das Directorio Programas heißt sí echt Program Files, se aber como Programas adecuado. Yo denke el se bajo 64 bit todavía schlimmer, como lo como sí zwei Program Files son. Como muss wohl el todo Einleseroutine des Treeviews umgeändert voluntad. Lo voluntad sólo todos Systemverzeichnisse falso eingelesen, el normalen ir.

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

Thomas
Freier

¡Hola Dieter,

va porque el "Ordnerwahl" para el "Dateipfade" bajo "Einstellung ändern" en el "A5 Heft Tool" ? Werden como el Ordner adecuado y puede ausgewählt voluntad?
Hatte para Filebrowser ya "Pascal" kontaktiert, si ihm Problemas, qué él verneinte, bekannt son. Er arbeitet aber a uno neuen Versión.

Gruß Thomas
Windows XP SP2, XProfan X2

Uwe
''Pascal''
Niemeier

Hi Thomas!

Hatte para Filebrowser ya "Pascal" kontaktiert, si ihm Problemas, qué él verneinte, bekannt son. Er arbeitet aber a uno neuen Versión.

Posesiones aber auch sólo XP

SeeYou
Pascal

Dieter
Zornow

Hola Tomás,

beim A5 Heft Tool Tuve nichts getestet, como Yo mich sólo en deine vorgegebenen Archivos konzentriert hatte.

@Pascal

el Filebrowser macht bajo XP auch Problemas, si en Documente y Einstellungen va. Im Userbereich kommen auch hier falsche Verzeichnisse, teste veces alles por. Das Tuve damals ya festgestellt. Bajo Programas es en XP alles ok.

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

Thomas
Freier

Also en Pascals Treeview fehlen me bajo XP en el Auflistung "schreibgeschützte", o. "versteckte", Ordner y Archivos.
Dieter, mi Cuestión war: listet WIN 7 en @ChooseDir$("Verzeichnis wählen:")
todos Ordner en?

Gruß Thomas
Windows XP SP2, XProfan X2

Kompilieren Marca Separación

Thomas
Freier

Bueno Morgen Dieter,
hast du Lust el d&d-Variante a testen?
Bin no glücklich así. Durch GetMessage Yo reichlich Problemas con shell y LoadFile$. Wird entonces endlos otra vez geöffnet. Posesiones una WaitMouse instalado aber el kann no el Solución ser. Oft hilft sólo una vez el Hinweise a abierto y a schließen así d&d otra vez va. Z.Z. Yo no Solución parat. Subproc?

mientras que 1

    '  waitinput 1
    GetMessage
    caso %umessage=16:romper
    Case (MenuItem(109)) O (MenuItem(2006)):BREAK
    '--------------------------------------------------------------weitere Abfragen
    plv_HitSortsLV(hList&)

    IF (%mensaje=563)

        Let anzahl&= DragQueryFile(&WParam,$FFFFFFFF,PFilename#,261);
        Let i%=0

        Mientras que Lt(i%,anzahl&)

            DragQueryFile(&WParam,i%,PFilename#,261);
            filename$=String$(PFilename#,0)' Vorsicht, max 255 Signo
            AddStrings filename$
            Inc i%

        Wend

        DragFinish(&WParam);

        WhileLoop GetCount(0)

            find$= @GetString$(0,(&bucle-1))

            If substr$(find$,-1,".")="pdf"

                pfad$ = removeFileSpec(find$)+"\"
                x%=-1
                IS_ITEM

                if x%=-1

                    plv_SetRow(hList&, GetCount(hList&),(pfad$ + "|" + substr$(find$,-1,"\")),-1,0)

                endif

            EndIf

        EndWhile

        Clearlist
        setfocus(%hwnd)

    Elseif MenuItem(2002)

        shell "control printers"
        WaitMouse
        setfocus(%hwnd)

    Elseif MenuItem(2004)

        clear PDF_Druck$
        texto$=LoadFile$("Acrobat.exe, AcroRd32.exe, PDFXCview.exe","exe | *.exe")
        caso substr$(texto$,-1,"\")="Acrobat.exe" : PDF_Druck$=texto$
        caso substr$(texto$,-1,"\")="AcroRd32.exe" : PDF_Druck$=texto$
        caso substr$(texto$,-1,"\")="PDFXCview.exe" : PDF_Druck$=texto$
        SetText Stat&, 1, "PDF-Software: " + substr$(PDF_Druck$,-1,"\")
        WaitMouse
        setfocus(%hwnd)
        ' ......más Abfragen

    EndIf

EndWhile

pdf-serien-print-dd.exe	569 kB

Hochgeladen:	08.01.2011

Ladeanzahl:
		Descargar

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2011 ▲

Dieter
Zornow

Hola Tomás,

@ChooseDir$("Verzeichnis wählen:") zeigt alles correcto a. En me funktioniert dein D&D no. Yo bringe no Archivos en el Programa.

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

08.01.2011 ▲

Thomas
Freier

¡Hola Dieter,
Yo hatte esta Ver código fuente [...]

verwendet. Geht el en dir solo?

Yo lege el sólo veces beiseite y como wir no Frost mehr haben voluntad Yo en el Fluß el "Grönländern" nachstellen. Nach Erfolg endlich otra vez una frisch gebeitztes Filet.

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2011 ▲

Dieter
Zornow

Hola Tomás,

el Code funktioniert en me auch no zuverlässig. Yo verwende para mich una algo otro Code y wichtig, Yo definiere WM_Dropfiles (563) como usermessage, el va entonces en me muy zuverlässig.

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

09.01.2011 ▲