Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

MBS Xojo Plugin Tutorial Videos

QuickLook Source

Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
// Event implementations
Sub Open()
me.AcceptFileDrop FileTypes1.AllFiles
me.AcceptFileDrop FileTypes1.Folder
me.AcceptFileDrop FileTypes1.Disc

End Sub
Sub DropObject(obj As DragItem, action As Integer)
do
if obj.FolderItemAvailable then
run obj.FolderItem
end if
loop until not obj.NextItem
End Sub

// Methods
Sub run(file as folderitem)
Title=file.DisplayName

// show icon

'backdrop=file.IconMBS(512)

// show quicklook icon

'Backdrop=file.QuickLookMBS(512,512,true)

// show quicklook preview

Backdrop=file.QuickLookMBS(512,512,false)

if Backdrop=nil then // no QuickLook Plugin?
backdrop=file.IconMBS(512)
end if
End Sub
End Class


All movies




Links
MBS FileMaker tutorial videos