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

IDE: fixed compilation

Browse Source 
git-svn-id: trunk@32279 -
This commit is contained in:
mattias 2011-09-11 09:09:51 +00:00
parent c70ad135b5
commit 105551e3cb
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/sourceeditor.pp
View File

@ -4899,6 +4899,9 @@ end;
function TSourceEditor.GetOperandFromCaret(const ACaretPos: TPoint): String; function TSourceEditor.GetOperandFromCaret(const ACaretPos: TPoint): String;
begin begin
if not CodeToolBoss.GetExpandedOperand(CodeBuffer, ACaretPos.X, ACaretPos.Y,
Result, False)
then
if not CodeToolBoss.ExtractOperand(CodeBuffer, ACaretPos.X, ACaretPos.Y, if not CodeToolBoss.ExtractOperand(CodeBuffer, ACaretPos.X, ACaretPos.Y,
Result, False, False, true) Result, False, False, true)
then then