font default color in lazarus is clDefault

digao-dalpiaz · Jan 12, 2024 · e886f8d · e886f8d
1 parent fcfbe56
commit e886f8d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Vcl.DamUnit.pas b/Vcl.DamUnit.pas
@@ -541,7 +541,7 @@ function TDam.GetFontStored: Boolean;
    (FFont.Style = [])
    {$ELSE}
    (FFont.Charset = 1) and
-   (FFont.Color = clWindowText) and
+   (FFont.Color = {$IFDEF FPC}clDefault{$ELSE}clWindowText{$ENDIF}) and
    (FFont.Name = DEF_FONT_NAME) and
    (FFont.Orientation = 0) and
    (FFont.Pitch = fpDefault) and