From f6a577cbbbb783832cb0e7d5151ec66527924aa3 Mon Sep 17 00:00:00 2001
From: Alexey Fedorov <fau@mail.ru>
Date: Mon, 1 Jul 2019 13:42:06 +0300
Subject: [PATCH] fixed: DefaultValue in WriteColor don't work for clBlack

---
 nativexml/NativeXml.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/nativexml/NativeXml.pas b/nativexml/NativeXml.pas
index 8861211..e261ca3 100644
--- a/nativexml/NativeXml.pas
+++ b/nativexml/NativeXml.pas
@@ -70,7 +70,7 @@ interface
 {$i simdesign.inc}
 
 // define if you want to include the Graphics unit, and graphics-related properties.
-{.$define USEGRAPHICS}
+{$define USEGRAPHICS}
 
 // define if you want to include zlib (=deflate) compression in binary xml.
 {.$define USEZLIB}
@@ -3435,7 +3435,7 @@ procedure TXmlNode.WriteBrush(const AName: Utf8String; ABrush: TBrush);
 procedure TXmlNode.WriteColor(const AName: UTF8String; AValue, ADefault: TColor);
 begin
   if WriteOnDefault or (AValue <> ADefault) then
-    WriteHex(AName, ColorToRGB(AValue), 8, 0);
+    WriteHex(AName, ColorToRGB(AValue), 8, ADefault);
 end;
 {$endif USEGRAPHICS}