Fixed: Bug in StyleUn.pas #344

BerndGabriel · Sep 22, 2024 · 2356421 · 2356421
1 parent 8a85b40
commit 2356421
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/source/StyleUn.pas b/source/StyleUn.pas
@@ -3871,11 +3871,12 @@ function ColorAndOpacityFromString(S: ThtString; NeedPound: Boolean; out Color:
   end;
 
   I := Pos('hsl',S);
-  if I > 0 then begin
+  if I > 0 then
+  begin
     Result := FindHSLColor(Copy(S, I + 3, 255));
     if Result then
     begin
-      LastS := S1;
+      LastS := S;
       LastColor := Color;
     end;
     exit;