paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 13:59:10 +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
This commit is contained in:
Jesus Reyes A 2023-09-29 23:57:39 -06:00
parent ff35bc8908
commit 05e9728fc5
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 $1) <> 0 then Result := Result + [fsItalic];
if (Style and $2) <> 0 then Result := Result + [fsBold]; if (Style and $2) <> 0 then Result := Result + [fsBold];
if (Style and $4) <> 0 then Result := Result + [fsUnderLine]; if (Style and $4) <> 0 then Result := Result + [fsUnderLine];
if (Style and $8) <> 0 then Result := Result + [fsStrikeOut];
end; end;
function frGetFontStyle(Style: TFontStyles): Integer; function frGetFontStyle(Style: TFontStyles): Integer;
@ -120,6 +121,7 @@ begin
if fsItalic in Style then Result := Result or $1; if fsItalic in Style then Result := Result or $1;
if fsBold in Style then Result := Result or $2; if fsBold in Style then Result := Result or $2;
if fsUnderline in Style then Result := Result or $4; if fsUnderline in Style then Result := Result or $4;
if fsStrikeOut in Style then Result := Result or $8;
end; end;
procedure RemoveQuotes(var s: String); procedure RemoveQuotes(var s: String);