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

MG: removed TextUnderCursor

Browse Source 
git-svn-id: trunk@496 -
This commit is contained in:
lazarus 2001-12-10 09:12:15 +00:00
parent ebc1277083
commit 6bba7c8333
1 changed files with 0 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
ide/uniteditor.pp
View File

@ -114,7 +114,6 @@ type
procedure SetModified(NewValue:boolean); procedure SetModified(NewValue:boolean);
Function GetInsertMode : Boolean; Function GetInsertMode : Boolean;
Function GetReadonly : Boolean; Function GetReadonly : Boolean;
Function TextUnderCursor : String;
procedure SetCodeTemplates( procedure SetCodeTemplates(
NewCodeTemplates: TSynEditAutoComplete); NewCodeTemplates: TSynEditAutoComplete);
procedure SetPopupMenu(NewPopupMenu: TPopupMenu); procedure SetPopupMenu(NewPopupMenu: TPopupMenu);
@ -175,7 +174,6 @@ type
//used to get the word at the mouse cursor //used to get the word at the mouse cursor
Function GetWordAtPosition(Position : TPoint) : String; Function GetWordAtPosition(Position : TPoint) : String;
Function GetWordAtCurrentCaret: String; Function GetWordAtCurrentCaret: String;
//used to get the x,y of the caret if the caret was where the mouse is //used to get the x,y of the caret if the caret was where the mouse is
@ -507,39 +505,6 @@ begin
GotoLine(StrToIntDef(GotoDialog.Edit1.Text,1)); GotoLine(StrToIntDef(GotoDialog.Edit1.Text,1));
end; end;
{--------------------------TEXT UNDER CURSOR-----------------------------------}
Function TSourceEditor.TextUnderCursor : String;
var
Texts : String;
EditorLine : String;
X : Integer;
Begin
//get the text by the cursor.
EditorLine := FEditor.Lines.Strings[GetCurrentCursorYLine-1];
X := GetCurrentCursorXLine-1;
//walk backwards to a space or non-standard character.
while (ord(upcase(EditorLine[x])) >= 65)
and (ord(upcase(EditorLine[x])) <= 90) and (X>1) do
dec(x);
if (X > 1) then Inc(x);
Texts := Copy(EditorLine,X,length(EditorLine)); //chop off the beginning
X := 1;
while (ord(upcase(Texts[x])) >= 65) and (ord(upcase(Texts[x])) <= 90)
and (X< length(Texts)) do
inc(x);
if (X < Length(Texts) ) and (X >1) then dec(x);
if not(((ord(upcase(Texts[x])) >= 65) and (ord(upcase(Texts[x])) <= 90))) then
dec(x);
Texts := Copy(Texts,1,X);
Result := Texts;
end;
Procedure TSourceEditor.OpenAtCursorClicked(Sender : TObject); Procedure TSourceEditor.OpenAtCursorClicked(Sender : TObject);
{var {var
Texts : String; Texts : String;