XProfan

Dieter
Zornow

Hallo Thomas,

habe es mal unter Win 7 32 bit getestet. Dein Treeview zeigt nicht die richtigen Dateien an. Wenn ich z.B. Benutzer öffne kommt da ca. 10 mal ein Verzeichnis "Windows" sonst nichts. Wenn ich Programme öffne wird da nur eine Datei angezeigt die überhaupt nicht da drin ist.
Als ich meinen PDF-Reader verknüpfen wollte konnte ich das nicht, weil ja in Programme nichts angezeigt wird. Ab diesem Zeitpunkt konnte ich im Listview dann auch nicht mehr scrollen. Mehr konnte ich nicht testen, da die wesentlichen Sachen nicht 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

Hallo Dieter,
das ist aber schade. Geht dein Beispiel (Zip-Anhang)?
Dann müßte ich den Ordnerinhalt halt daneben anzeigen.

treeview.zip	6 kB

Hochgeladen:	07.01.2011

Ladeanzahl:
		Herunterladen

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Hallo Thomas,

das funktioniert auch nicht, hängt wohl mit den virtuellen Verzeichnissen von Win 7 zusammen. Das Verzeichnis Programme heißt ja echt Program Files, wird aber als Programme angezeigt. Ich denke das wird unter 64 bit noch schlimmer, da es da ja zwei Program Files gibt. Da muss wohl die ganze Einleseroutine des Treeviews umgeändert werden. Es werden nur alle Systemverzeichnisse falsch eingelesen, die normalen gehen.

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

Hallo Dieter,

geht denn die "Ordnerwahl" für die "Dateipfade" unter "Einstellung ändern" im "A5 Heft Tool" ? Werden da die Ordner angezeigt und können ausgewählt werden?
Hatte zum Filebrowser schon "Pascal" kontaktiert, ob ihm Probleme, was er verneinte, bekannt sind. Er arbeitet aber an einer neuen Version.

Gruß Thomas
Windows XP SP2, XProfan X2

Uwe
''Pascal''
Niemeier

Hi Thomas!

Hatte zum Filebrowser schon "Pascal" kontaktiert, ob ihm Probleme, was er verneinte, bekannt sind. Er arbeitet aber an einer neuen Version.

Habe aber auch nur XP

SeeYou
Pascal

Dieter
Zornow

Hallo Thomas,

beim A5 Heft Tool hatte ich nichts getestet, da ich mich nur auf deine vorgegebenen Dateien konzentriert hatte.

@Pascal

der Filebrowser macht unter XP auch Probleme, wenn es in Documente und Einstellungen geht. Im Userbereich kommen auch hier falsche Verzeichnisse, teste mal alles durch. Das hatte ich damals schon festgestellt. Unter Programme ist bei 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 bei Pascals Treeview fehlen mir unter XP in der Auflistung "schreibgeschützte", bzw. "versteckte", Ordner und Dateien.
Dieter, meine Frage war: listet WIN 7 bei @ChooseDir$("Verzeichnis wählen:")
alle Ordner auf?

Gruß Thomas
Windows XP SP2, XProfan X2

Kompilieren Markieren Separieren

Thomas
Freier

Guten Morgen Dieter,
hast du Lust die d&d-Variante zu testen?
Bin nicht glücklich damit. Durch GetMessage habe ich reichlich Probleme mit shell und LoadFile$. Wird dann endlos wieder geöffnet. Habe ein WaitMouse eingebaut aber das kann nicht die Lösung sein. Oft hilft nur einmal die Hinweise zu öffnen und zu schließen damit d&d wieder geht. Z.Z. habe ich keine Lösung parat. Subproc?

while 1

    '  waitinput 1
    GetMessage
    case %umessage=16:break
    Case (Menuitem(109)) OR (Menuitem(2006)):BREAK
    '--------------------------------------------------------------weitere Abfragen
    plv_HitSortsLV(hList&)

    IF (%message=563)

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

        While Lt(i%,anzahl&)

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

        Wend

        DragFinish(&WParam);

        WhileLoop GetCount(0)

            find$= @GetString$(0,(&loop-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$
        text$=LoadFile$("Acrobat.exe, AcroRd32.exe, PDFXCview.exe","exe | *.exe")
        case substr$(text$,-1,"\")="Acrobat.exe" : PDF_Druck$=text$
        case substr$(text$,-1,"\")="AcroRd32.exe" : PDF_Druck$=text$
        case substr$(text$,-1,"\")="PDFXCview.exe" : PDF_Druck$=text$
        SetText Stat&, 1, "PDF-Software: " + substr$(PDF_Druck$,-1,"\")
        WaitMouse
        setfocus(%hwnd)
        ' ......weiter Abfragen

    EndIf

EndWhile

pdf-serien-print-dd.exe	569 kB

Hochgeladen:	08.01.2011

Ladeanzahl:
		Herunterladen

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2011 ▲

Dieter
Zornow

Hallo Thomas,

@ChooseDir$("Verzeichnis wählen:") zeigt alles richtig an. Bei mir funktioniert dein D&D nicht. ich bringe keine Dateien ins Programm.

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

Hallo Dieter,
ich hatte diesen Quelltext [...]

verwendet. Geht der bei dir solo?

Ich lege das erst mal beiseite und da wir keinen Frost mehr haben werde ich im Fluß den "Grönländern" nachstellen. Nach Erfolg endlich wieder ein frisch gebeitztes Filet.

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2011 ▲

Dieter
Zornow

Hallo Thomas,

der Code funktioniert bei mir auch nicht zuverlässig. Ich verwende für mich einen etwas anderen Code und wichtig, ich definiere WM_Dropfiles (563) als usermessage, das geht dann bei mir sehr 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 ▲