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
