D10.2.3 compatibility

[limelect]

On LoadDirectories(); should be dirs := TDirectory.GetFiles(EditPath.Text);
in procedure TForm12.LoadTgs(const LoadFirst: Boolean = True); add if ListBox1.ItemIndex=-1 then exit;
with
jsonFiles := TDirectory.GetFiles(TPath.Combine(EditPath.Text,
ListBox1.Items[ListBox1.ItemIndex]),'.json');
LottieFiles := TDirectory.GetFiles(TPath.Combine(EditPath.Text,
ListBox1.Items[ListBox1.ItemIndex]),'.lottie');
tgsFiles := TDirectory.GetFiles(TPath.Combine(EditPath.Text,
ListBox1.Items[ListBox1.ItemIndex]),'*.tgs');
I get file does not exist on LoadTgs
D10.2.3

[limelect]

I also changed LoadTgs to
tgsFiles := TDirectory.GetFiles(EditPath.Text);
tgs:=EditPath.Text+''+ ListBox1.Items[ListBox1.ItemIndex];
which is more resnoble and
// for tgs in jsonFiles + LottieFiles + tgsFiles do
if you want to show all, make another function