Industrial: Fix LCDDisplay colors not changing any more after a first modification.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8359 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2022-07-20 16:00:13 +00:00
parent ec4052e4f0
commit 06d68b2390
1 changed files with 2 additions and 1 deletions
--- a/components/industrialstuff/source/indlcddisplay.pas
+++ b/components/industrialstuff/source/indlcddisplay.pas
@ -1271,7 +1271,8 @@ end;

 procedure TLCDDisplay.SetColorScheme(const Value: TColorScheme);
 begin
-  if Value = FColorScheme then Exit;
+  if (Value = FColorScheme) and (FColorScheme <> csCustom) then 
+    Exit;
  case Value of
    csBlue: begin
      FBoardColor := clBlack;