Martijn Laan 1 month ago
parent
commit
4f0ddaeb52
1 changed files with 2 additions and 2 deletions
  1. 2 2
      Projects/Src/IDE.MainForm.pas

+ 2 - 2
Projects/Src/IDE.MainForm.pas

@@ -822,12 +822,12 @@ constructor TMainForm.Create(AOwner: TComponent);
 
 
   procedure CheckUpdatePanelMessage(const Ini: TConfigIniFile; const ConfigIdent: String;
   procedure CheckUpdatePanelMessage(const Ini: TConfigIniFile; const ConfigIdent: String;
     const ConfigValueDefault, ConfigValueMinimum: Integer; const Msg: String; const Color: TColor;
     const ConfigValueDefault, ConfigValueMinimum: Integer; const Msg: String; const Color: TColor;
-    const AHasLink: Boolean);
+    const HasLink: Boolean);
   begin
   begin
     var ConfigValue := Ini.ReadInteger('UpdatePanel', ConfigIdent, ConfigValueDefault);
     var ConfigValue := Ini.ReadInteger('UpdatePanel', ConfigIdent, ConfigValueDefault);
     if ConfigValue < ConfigValueMinimum then
     if ConfigValue < ConfigValueMinimum then
       FUpdatePanelMessages.Add(TUpdatePanelMessage.Create(Msg, ConfigIdent, ConfigValueMinimum, Color,
       FUpdatePanelMessages.Add(TUpdatePanelMessage.Create(Msg, ConfigIdent, ConfigValueMinimum, Color,
-        AHasLink));
+        HasLink));
   end;
   end;
 
 
   procedure ReadConfig;
   procedure ReadConfig;