D10.2.3 compatibility

Open limelect opened this issue 5 months ago • 1 comments

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

Jul 14 '25 16:07 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

Jul 15 '25 18:07 limelect