opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

Report active theme name, so we are once probably able to remove some of them which are mostly unused, to speed up application start

Browse Source
This commit is contained in:
Ansgar Becker
2019-06-08 09:19:35 +02:00
parent 0cd6ab7a0d
commit ba24c39987
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/main.pas
View File

@ -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];