Skip to content
Permalink
Browse files

Report active theme name, so we are once probably able to remove some…

… of them which are mostly unused, to speed up application start
  • Loading branch information...
ansgarbecker committed Jun 8, 2019
1 parent 0cd6ab7 commit ba24c399873a8cded4709567886df455b9e3232a
Showing with 4 additions and 2 deletions.
  1. +4 −2 source/main.pas
@@ -2052,9 +2052,11 @@ procedure TMainForm.AfterFormCreate;
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];

0 comments on commit ba24c39

Please sign in to comment.
You can’t perform that action at this time.