Platforms to show: All Mac Windows Linux Cross-Platform
/MacFrameworks/Downloaded files
Required plugins for this example: MBS Util Plugin, MBS MacFrameworks Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacFrameworks/Downloaded files
This example is the version from Sun, 17th Mar 2012.
Project "Downloaded files.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
EventHandler Sub DoubleClick()
// show more details on double click
dim f as FolderItem = list.RowTag(List.ListIndex)
dim lines(-1) as string
dim m as MacQuarantinePropertiesMBS = f.MacQuarantinePropertiesMBS
lines.Append f.DisplayName
lines.Append ""
if m<>Nil then
lines.Append "AgentBundleIdentifier: "+m.AgentBundleIdentifier
lines.Append "AgentName: "+m.AgentName
lines.Append "DataURL: "+m.DataURL
lines.Append "OriginURL: "+m.OriginURL
lines.Append "TimeStamp: "+m.TimeStamp.SQLDateTime
lines.Append "Type: "+m.Type
end if
MsgBox Join(lines,EndOfLine)
End EventHandler
EventHandler Sub ExpandRow(row As Integer)
dim f as FolderItem = list.RowTag(List.ListIndex)
list f
End EventHandler
End Control
Control Info Inherits Label
ControlInstance Info Inherits Label
End Control
EventHandler Sub Open()
List DownloadsFolderMBS(0)
End EventHandler
Protected Sub Add(f as FolderItem)
if f.Directory then
List.addfolder f.DisplayName
else
List.AddRow f.DisplayName
end if
list.RowTag(List.LastIndex)=f
dim m as MacQuarantinePropertiesMBS = f.MacQuarantinePropertiesMBS
if m<>Nil then
List.Cell(List.LastIndex, 1) = m.OriginURL
List.Cell(List.LastIndex, 2) = m.DataURL
List.Cell(List.LastIndex, 3) = m.AgentName
end if
End Sub
Protected Sub List(folder as FolderItem)
dim c as integer = folder.Count
for i as integer = 1 to c
dim file as FolderItem = folder.TrueItem(i)
if file<>Nil and file.Visible then
add file
end if
next
End Sub
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project
The items on this page are in the following plugins: MBS MacFrameworks Plugin.
