Ohne groß nachzudenken (was womöglich ein Fehler ist) aber wie kann denn
"items" false werden?
Am 04.05.2008 9:10 Uhr schrieb "Dietmar Plaßmann" unter
<mail at dietmar-plassmann dot de>:
> Moin,
>
> ich habe mich nach langer Zeit mal wieder mit dem debuggen meines
> Mailprogramms beschäftigt. Einfach weil es einige Unzulänglichkeiten
> gab, die zunehmend nerven.
>
> Eine davon ist, das ich manche Attachments nicht mehr auf den Desktop
> droppen kann. Metti kann ein Lied davon singen :-)
>
> Glücklicherweise habe ich gestern ein Mail mit zwei identischen
> Attachments (PDFs) bekommen, die sich nur im Namen unterscheiden. Mein
> Programm sichert die PDFs in einem Ordner und im Programm werden sie in
> einer ListBox angezeigt, Icon und Name. Nach diversen Versuchen musste
> ich feststellen, das sich das erste PDF nicht droppen lässt, das
> zweite jedoch schon. Ich kann keinen Unterschied an den PDFs erkennen,
> auch nicht bei den FolderItem-Properties. Vielleicht hat hier jemand
> eine Idee.
>
> Angemerkt sei noch, es handelt sich um RB 5.5.4 und das Problem besteht
> erst seit Leopard.
>
> Hier die entsprechende Funktion (f und s sind nur zum debuggen
> vorhanden):
> -----
> Function DragRow(drag As DragItem, row As Integer) As Boolean
> dim i as Integer
> dim items as boolean
> dim f as folderitem
> dim s as string
>
> items = false
>
> for i = 0 to me.ListCount
> if me.Selected(i) then
> if items then
> drag.AddItem 0,0,0,0
> end if
> drag.FolderItem = pGlob.AttachmentOrdner.Child(me.Cell(i, 1))
> f = pGlob.AttachmentOrdner.Child(me.Cell(i, 1))
> s = f.AbsolutePath
> items = true
> end if
> next
> return True
> End Function
> -----
>
> Dietmar
|