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