Interested in a training?
Contact us for a trainings and events or meet us at Real World in Orlando, Florida.

MBS Real Studio 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 Real Studio Plugins - Pfarrgemeinde Messdiener Nickenich