Xojo Conferences

Platforms to show: All Mac Windows Linux Cross-Platform

/MacFrameworks/Downloaded files
Required plugins for this example: MBS MacFrameworks Plugin, MBS Util 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.rbp"
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

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS MacFrameworks Plugin.

MBS Xojo blog