From ba24c399873a8cded4709567886df455b9e3232a Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Sat, 8 Jun 2019 09:19:35 +0200 Subject: [PATCH] Report active theme name, so we are once probably able to remove some of them which are mostly unused, to speed up application start --- source/main.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/source/main.pas b/source/main.pas index 823d897c..fa89c6d4 100644 --- a/source/main.pas +++ b/source/main.pas @@ -2052,9 +2052,11 @@ begin LastStatsCall := StrToDateTime(DefaultLastrunDate); end; if DaysBetween(Now, LastStatsCall) >= 30 then begin - // Report used SVN revision + // Report used app version, bits, and theme name (so we find mostly unused ones for removal) StatsCall := THttpDownload.Create(Self); - StatsCall.URL := APPDOMAIN + 'savestats.php?c=' + IntToStr(FAppVerRevision) + '&bits=' + IntToStr(GetExecutableBits); + StatsCall.URL := APPDOMAIN + 'savestats.php?c=' + IntToStr(FAppVerRevision) + + '&bits=' + IntToStr(GetExecutableBits) + + '&thm=' + EncodeURLParam(TStyleManager.ActiveStyle.Name); // Enumerate actively used server versions for i:=0 to SessionPaths.Count-1 do begin AppSettings.SessionPath := SessionPaths[i];