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

LazReport: Add support for 'StrikeOut' style in a Memo 'Script' property, by paweld, issue #40521

Browse Source 
(cherry picked from commit 05e9728fc5)
This commit is contained in:
Jesus Reyes A 2023-09-29 23:57:39 -06:00 committed by Maxim Ganetsky
parent 6b1e474e2b
commit cad23a6698
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazreport/source/lr_utils.pas
View File

@ -112,6 +112,7 @@ begin
if (Style and $1) <> 0 then Result := Result + [fsItalic];
if (Style and $2) <> 0 then Result := Result + [fsBold];
if (Style and $4) <> 0 then Result := Result + [fsUnderLine];
if (Style and $8) <> 0 then Result := Result + [fsStrikeOut];
end;
function frGetFontStyle(Style: TFontStyles): Integer;
@ -120,6 +121,7 @@ begin
if fsItalic in Style then Result := Result or $1;
if fsBold in Style then Result := Result or $2;
if fsUnderline in Style then Result := Result or $4;
if fsStrikeOut in Style then Result := Result or $8;
end;
procedure RemoveQuotes(var s: String);