Didn't work
I do not have AdvSkyDrive1 and TAdvTreeViewAdapter and tests with TMSFMXCloudSkyDrive1 and TMSFMXCloudTreeViewAdapter1 didn't work.
With TMSFMXCloudDropBox1, TMSFMXCloudGDrive1, and TMSFMXCloudYandexDisk1 all work ok
Here a sample of my code:
// DropBox
if (Sender as TTMSFMXCloudStorageFMX).ClassNameIs('TTMSFMXCloudDropBox') then
begin
xDrop := TDropBoxItem.Create(nil);
xDrop.ItemType := ciFolder;
xDrop.Path := '/' + xAppNamePublic;
//
TMSFMXCloudTreeViewAdapter1.Folder := xDrop;
TMSFMXCloudTreeViewAdapter1.InitMethod := TCloudAdapterInitMethod.cmFolder;
end;
// GDrive
if (Sender as TTMSFMXCloudStorageFMX).ClassNameIs('TTMSFMXCloudGDrive') then
begin
xGDrive := TGDriveItem.Create(nil);
xGDrive.ItemType := ciFolder;
if TMSFMXCloudGDrive1.SearchFolder(xAppNamePublic, true) then
xGDrive := TGDriveItem(TMSFMXCloudGDrive1.Drive.Items[0]);
//
TMSFMXCloudTreeViewAdapter1.Folder := xGDrive;
TMSFMXCloudTreeViewAdapter1.InitMethod := TCloudAdapterInitMethod.cmFolder;
end;
// SkyDrive
if (Sender as TTMSFMXCloudStorageFMX).ClassNameIs('TTMSFMXCloudSkyDrive') then
begin
xSky := TSkyDriveItem.Create(nil);
xSky.ItemType := ciFolder;
// xSky.Path := '/' + xAppNamePublic;
xSky.ID := '/' + xAppNamePublic;
//
TMSFMXCloudTreeViewAdapter1.Folder := xSky;
TMSFMXCloudTreeViewAdapter1.InitMethod := TCloudAdapterInitMethod.cmFolder;
end;
// YandexDisk
if (Sender as TTMSFMXCloudStorageFMX).ClassNameIs('TTMSFMXCloudYandexDisk') then
begin
xYandex := TYandexDiskItem.Create(nil);
xYandex.ItemType := ciFolder;
xYandex.Path := '/' + xAppNamePublic;
//
TMSFMXCloudTreeViewAdapter1.Folder := xYandex;
TMSFMXCloudTreeViewAdapter1.InitMethod := TCloudAdapterInitMethod.cmFolder;
end;
//
TMSFMXCloudTreeViewAdapter1.CloudStorage := zgCloudStorage;