Fix visible/hidden images besides menu images.

This commit is contained in:
Ansgar Becker
2013-12-24 13:58:47 +00:00
parent 1cbb4cda99
commit 2a161a7408
2 changed files with 3 additions and 0 deletions

View File

@@ -79,6 +79,7 @@ begin
end;
imgDonate.Visible := Check <> nbTrue;
MainForm.lblDonate.Visible := imgDonate.Visible;
MainForm.imgDonate.Visible := imgDonate.Visible;
end;

View File

@@ -1615,6 +1615,7 @@ begin
end;
FHasDonatedDatabaseCheck := nbUnset;
lblDonate.Visible := HasDonated(True) <> nbTrue;
imgDonate.Visible := lblDonate.Visible;
actQueryStopOnErrors.Checked := AppSettings.ReadBool(asStopOnErrorsInBatchMode);
actBlobAsText.Checked := AppSettings.ReadBool(asDisplayBLOBsAsText);
@@ -1768,6 +1769,7 @@ begin
try
frm.ReadCheckFile;
lblUpdateAvailable.Visible := frm.btnBuild.Enabled or frm.btnRelease.Enabled;
imgUpdateAvailable.Visible := lblUpdateAvailable.Visible;
if frm.btnRelease.Enabled then
lblUpdateAvailable.Font.Color := clRed;
// Show the dialog if release is available, or - when wanted - build checks are activated