paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 15:00:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: fised implementation of GetStyleIndex, hint from Martin Friebe (issue #12620)

Browse Source 
git-svn-id: trunk@17376 -
This commit is contained in:
vincents 2008-11-13 18:41:53 +00:00
parent 30f4e50753
commit 34b6f45af2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syntextdrawer.pp
View File

@ -403,7 +403,7 @@ begin
result := 0; result := 0;
for item := low (TFontStyle) to high(TFontStyle) do for item := low (TFontStyle) to high(TFontStyle) do
if item in Value then if item in Value then
result := result + 1 shr ord(item); result := result + 1 shl ord(item);
end; end;
{$ENDIF} {$ENDIF}