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

synedit: fixed issue #12555

Browse Source 
* removed lazarus specific code to linearize the possible values of a set, not necessary anymore since the internal format of set has changed on big endian cpu, see http://wiki.lazarus.freepascal.org/index.php?title=User_Changes_2.2.2&oldid=31423#Internal_format_of_sets

git-svn-id: trunk@17199 -
This commit is contained in:
vincents 2008-11-03 15:14:09 +00:00
parent bf64fc10ff
commit ad4ab60d09
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syntextdrawer.pp
View File

@ -869,11 +869,7 @@ begin
{$ELSE} {$ELSE}
ASSERT(SizeOf(TFontStyles) = 1); ASSERT(SizeOf(TFontStyles) = 1);
{$ENDIF} {$ENDIF}
{$IFDEF SYN_LAZARUS}
idx := integer(Value);
{$ELSE}
idx := PByte(@Value)^; idx := PByte(@Value)^;
{$ENDIF}
ASSERT(idx <= High(TheStockFontPatterns)); ASSERT(idx <= High(TheStockFontPatterns));
UseFontHandles; UseFontHandles;
@ -1196,11 +1192,7 @@ procedure TheTextDrawer2.SetStyle(Value: TFontStyles);
var var
idx: Integer; idx: Integer;
begin begin
{$IFDEF SYN_LAZARUS}
idx := integer(Value);
{$ELSE}
idx := PByte(@Value)^; idx := PByte(@Value)^;
{$ENDIF}
if FFonts[idx] <> 0 then if FFonts[idx] <> 0 then
begin begin
FCrntFont := FFonts[idx]; FCrntFont := FFonts[idx];