XProfan

Dieter
Zornow

allô Thomas,

habe es la fois sous Win 7 32 bit getestet. Dein Treeview zeigt pas qui richtigen Fichiers à. si je z.B. Benutzer ouvre venez là ca. 10 la fois un Verzeichnis "Windows" sonst rien. si je Programme ouvre wird là seulement une Dossier angezeigt qui pas du tout là drin ist.
comme je meinen PDF-Reader verknüpfen voulais konnte je cela pas, weil oui dans Programme rien angezeigt wird. Ab diesem la date konnte je im Listview ensuite aussi pas plus scrollen. plus konnte je pas testen, là qui wesentlichen Sachen pas 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

allô Dieter,
c'est mais tant pis. allez dein Beispiel (Zip-Anhang)?
ensuite devrait Je l' Ordnerinhalt arrêt daneben Montrer.

treeview.zip	6 kB

Hochgeladen:	07.01.2011

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

allô Thomas,

cela funktioniert aussi pas, hängt wohl avec den virtuellen Verzeichnissen de Win 7 zusammen. cela Verzeichnis Programme est oui vraie Program Files, wird mais comme Programme angezeigt. je denke cela wird sous 64 bit encore schlimmer, là es là oui deux Program Files gibt. là muss wohl qui ganze Einleseroutine des Treeviews umgeändert volonté. Es volonté seulement alle Systemverzeichnisse faux lire, qui normalen aller.

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

allô Dieter,

allez car qui "Ordnerwahl" pour qui "Dateipfade" sous "Einstellung ändern" im "A5 Heft Tool" ? Werden là qui Dossier angezeigt et peut ausgewählt volonté?
Hatte zum Filebrowser déjà "Pascal" kontaktiert, si ihm Probleme, quoi il verneinte, bekannt sommes. il travaille mais à einer neuen Version.

Gruß Thomas
Windows XP SP2, XProfan X2

Uwe
''Pascal''
Niemeier

Hi Thomas!

Hatte zum Filebrowser déjà "Pascal" kontaktiert, si ihm Probleme, quoi il verneinte, bekannt sommes. il travaille mais à einer neuen Version.

Habe mais aussi seulement XP

SeeYou
Pascal

Dieter
Zornow

allô Thomas,

beim A5 Heft Tool J'ai eu rien getestet, là je mich seulement sur deine vorgegebenen Fichiers konzentriert hatte.

@Pascal

qui Filebrowser pouvoir sous XP aussi Probleme, si es dans Documente et Einstellungen allez. Im Userbereich venons aussi ici falsche Verzeichnisse, teste la fois alles par. cela J'ai eu autrefois déjà festgestellt. sous Programme ist chez 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

alors chez Pascals Treeview manquer mir sous XP dans qui Auflistung "schreibgeschützte", bzw. "versteckte", Dossier et Fichiers.
Dieter, mon Frage était: listet WIN 7 chez @ChooseDir$(Annuaire choisir:")
alle Dossier sur?

Gruß Thomas
Windows XP SP2, XProfan X2

Kompilieren Marque Séparation

Thomas
Freier

Guten demain Dieter,
la hâte du Lust qui d&d-variante trop testen?
suis pas glücklich avec cela. par GetMessage habe je reichlich Probleme avec shell et LoadFile$. Wird ensuite endlos wieder ouvert. Habe un WaitMouse incorporé mais cela peux pas qui Solution son. souvent hilft seulement einmal qui Hinweise trop ouvrir et trop schließen avec cela d&d wieder allez. Z.Z. habe je aucun Solution prêt. Subproc?

tandis que 1

    '  waitinput 1
    GetMessage
    cas %umessage=16:pause
    Cas (Menuitem(109)) OU (Menuitem(2006)):BREAK
    '--------------------------------------------------------------weitere Abfragen
    plv_HitSortsLV(hList&)

    IF (%message=563)

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

        Tandis que Lt(i%,anzahl&)

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

        Wend

        DragFinish(&WParam);

        WhileLoop GetCount(0)

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

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

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

                si 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")
        cas substr$(text$,-1,"\")="Acrobat.exe" : PDF_Druck$=text$
        cas substr$(text$,-1,"\")="AcroRd32.exe" : PDF_Druck$=text$
        cas substr$(text$,-1,"\")="PDFXCview.exe" : PDF_Druck$=text$
        SetText Stat&, 1, "PDF-Software: " + substr$(PDF_Druck$,-1,"\")
        WaitMouse
        setfocus(%hwnd)
        ' ......plus Abfragen

    EndIf

Endwhile

pdf-serien-print-dd.exe	569 kB

Hochgeladen:	08.01.2011

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2011 ▲

Dieter
Zornow

allô Thomas,

@ChooseDir$(Annuaire choisir:") zeigt alles richtig à. chez mir funktioniert dein D&D pas. je bringe aucun Fichiers ins Programme.

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

allô Dieter,
je hatte cette Voir le texte source [...]

verwendet. allez qui chez dir solo?

je lege cela seulement la fois beiseite et là wir keinen Frost plus avons werde je im Fluß den "Grönländern" nachstellen. Pour Erfolg enfin wieder un frisch gebeitztes Filet.

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2011 ▲

Dieter
Zornow

allô Thomas,

qui Code funktioniert chez mir aussi pas zuverlässig. je verwende pour mich une quelque chose anderen Code et important, je definiere WM_Dropfiles (563) comme usermessage, cela allez ensuite chez mir très 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 ▲