Skip to content

fixed: DefaultValue in WriteColor don't work for clBlack #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
fau wants to merge 1 commit into
base: master
Choose a base branch
from
Open

fixed: DefaultValue in WriteColor don't work for clBlack #3

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions nativexml/NativeXml.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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}
Expand Down Expand Up @@ -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}

Expand Down