add: running inside appimage detection.

When running inside appimage, you need to know where to save the tracker list

Author: GerryFerdinandus

source/code/main.pas

@@ -243,6 +243,11 @@ procedure TFormTrackerModify.FormCreate(Sender: TObject);
    begin
      FFolderForTrackerListLoadAndSave := GetEnvironmentVariable('XDG_DATA_HOME');
    end;
+   // If it is a appimage program, save it in a present folder.
+   if GetEnvironmentVariable('APPIMAGE') <> '' then
+   begin // OWD = Path to working directory at the time the AppImage is called
+     FFolderForTrackerListLoadAndSave := GetEnvironmentVariable('OWD');
+   end;
    if FFolderForTrackerListLoadAndSave = '' then
    begin
      // No container detected. Save in the same place as the application file