paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 21:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: TfrHTMExportFilter.ColorToHex can be optimized, from Alexey Torgashin, issue #40966

Browse Source
This commit is contained in:
Jesus Reyes A 2024-07-05 17:26:05 -06:00
parent bae7ac120d
commit e9e8f61f5a
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/lazreport/source/lr_e_htm.pas
View File

@ -384,14 +384,25 @@ end;
function TfrHTMExportFilter.ColorToHex(c: TColor): AnsiString; function TfrHTMExportFilter.ColorToHex(c: TColor): AnsiString;
const
SHexDigits: PChar = '0123456789ABCDEF';
var var
s: AnsiString; r, g, b: byte;
begin begin
s:= IntToHex(ColorToRGB(c), 8); C:= ColorToRGB(C);
Result:= '#' + Copy(s, 7, 2) + Copy(s, 5, 2) + Copy(s, 3, 2); r:= Red(C);
g:= Green(C);
b:= Blue(C);
SetLength(Result{%H-}, 7); // #rrggbb
Result[1]:= '#';
Result[2]:= SHexDigits[Hi(r)];
Result[3]:= SHexDigits[Lo(r)];
Result[4]:= SHexDigits[Hi(g)];
Result[5]:= SHexDigits[Lo(g)];
Result[6]:= SHexDigits[Hi(b)];
Result[7]:= SHexDigits[Lo(b)];
end; end;
procedure TfrHTMExportFilter.AppendLine(const s: AnsiString); procedure TfrHTMExportFilter.AppendLine(const s: AnsiString);
begin begin
outputLines.Add(s); outputLines.Add(s);