From bd346665288545bd3f3ffb2271e16e3a85346cc3 Mon Sep 17 00:00:00 2001 From: martin Date: Sat, 15 Nov 2008 20:19:39 +0000 Subject: [PATCH] SynEdit: clean up (impossible IFDEF) git-svn-id: trunk@17401 - --- components/synedit/synedit.pp | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index 47b914e93d..18624bb1dd 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -2313,9 +2313,7 @@ end; {$IFDEF SYN_LAZARUS} procedure TCustomSynEdit.UTF8KeyPress(var Key: TUTF8Char); begin - {$IFDEF SYN_LAZARUS} if Key='' then exit; - {$ENDIF} // don't fire the event if key is to be ignored if not (sfIgnoreNextChar in fStateFlags) then begin if Assigned(OnUTF8KeyPress) then OnUTF8KeyPress(Self, Key); @@ -10823,7 +10821,6 @@ begin end; //L505 end {$IFDEF SYN_LAZARUS} - procedure TCustomSynEdit.GetWordBoundsAtRowCol(const XY: TPoint; var StartX, EndX: integer); // all params are logical (byte) positions @@ -10839,17 +10836,10 @@ begin Line := Lines[XY.Y - 1]; Len := Length(Line); if (XY.X >= 1) and (XY.X <= Len + 1) then begin - {$IFDEF SYN_LAZARUS} if Assigned(Highlighter) then IdChars := [#1..#255] - (Highlighter.WordBreakChars + TSynWhiteChars) else IdChars := [#1..#255] - (TSynWordBreakChars + TSynWhiteChars); - {$ELSE} - if Assigned(Highlighter) then - IdChars := Highlighter.IdentChars - else - IdChars := ['a'..'z', 'A'..'Z']; - {$ENDIF} EndX := XY.X; while (EndX <= Len) and (Line[EndX] in IdChars) do Inc(EndX);