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

IDE: clean up

Browse Source 
git-svn-id: trunk@58173 -
This commit is contained in:
ondrej 2018-06-07 15:59:54 +00:00
parent 92bbb23a75
commit 700131698b
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/main.pp
View File

@ -660,9 +660,6 @@ type
procedure DoDropFilesAsync(Data: PtrInt);
procedure RenameInheritedMethods(AnUnitInfo: TUnitInfo; List: TStrings);
function OIHelpProvider: TAbstractIDEHTMLProvider;
procedure IdentifierWordCompletionGetSource(var Source: TStrings;
var SourceTopLine,SourceBottomLine: integer;
var IgnoreWordEndPos: TPoint; SourceIndex: integer);
procedure DoAddWordsToIdentCompletion(Sender: TIdentifierList;
FilteredList: TFPList; PriorityCount: Integer);
// form editor and designer
@ -3418,26 +3415,6 @@ begin
(aCaption,aMsg,DlgType,Buttons,HelpKeyword);
end;
procedure TMainIDE.IdentifierWordCompletionGetSource(var Source: TStrings;
var SourceTopLine, SourceBottomLine: integer; var IgnoreWordEndPos: TPoint;
SourceIndex: integer);
var
ActiveSrcEdit: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
const
LinesAround = 100;
begin
if SourceIndex<>0 then
Exit;
GetCurrentUnit(ActiveSrcEdit,ActiveUnitInfo);
if ActiveSrcEdit=nil then exit;
Source := ActiveSrcEdit.Source;
SourceTopLine := Max(0, ActiveSrcEdit.EditorComponent.CaretY-LinesAround);
SourceBottomLine := Min(Source.Count-1, ActiveSrcEdit.EditorComponent.CaretY+LinesAround);
IgnoreWordEndPos := ActiveSrcEdit.EditorComponent.LogicalCaretXY;
Dec(IgnoreWordEndPos.Y); // LogicalCaretXY starts with 1 as top line
end;
function TMainIDE.IDEQuestionDialogHandler(const aCaption, aMsg: string;
DlgType: TMsgDlgType; Buttons: array of const; const HelpKeyword: string): Integer;
begin