paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 10:40:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: code completion: added local variable completion

Browse Source 
git-svn-id: trunk@2810 -
This commit is contained in:
lazarus 2002-08-18 08:54:26 +00:00
parent 13f820e23b
commit 61fd84bc32
3 changed files with 8 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/codecache.pas
View File

@ -141,7 +141,7 @@ type
property ExpirationTimeInDays: integer
read FExpirationTimeInDays write FExpirationTimeInDays;
procedure Clear;
procedure ClearAllSourleLogEntries;
procedure ClearAllSourceLogEntries;
constructor Create;
destructor Destroy; override;
procedure OnBufferSetScanner(Sender: TCodeBuffer);
@ -185,7 +185,7 @@ begin
FItems.FreeAndClear;
end;
procedure TCodeCache.ClearAllSourleLogEntries;
procedure TCodeCache.ClearAllSourceLogEntries;
var
ANode: TAVLTreeNode;
begin

13
components/codetools/sourcelog.pas
View File

@ -122,7 +122,6 @@ type
procedure AddMarker(Position: integer; SomeData: Pointer);
procedure AddMarkerXY(Line, Column: integer; SomeData: Pointer);
procedure AdjustPosition(var APosition: integer);
procedure AdjustCursor(var Line, Column: integer);
procedure NotifyHooks(Entry: TSourceLogEntry);
procedure IncreaseHookLock;
procedure DecreaseHookLock;
@ -513,18 +512,6 @@ begin
Items[i].AdjustPosition(APosition);
end;
procedure TSourceLog.AdjustCursor(var Line, Column: integer);
var p: integer;
begin
if Count=0 then exit;
LineColToPosition(Line,Column,p);
if p>0 then begin
AdjustPosition(p);
AbsoluteToLineCol(p,Line,Column);
end else
Line:=-1;
end;
procedure TSourceLog.BuildLineRanges;
var p,line:integer;
begin

8
ide/main.pp
View File

@ -6303,7 +6303,7 @@ procedure TMainIDE.ApplyCodeToolChanges;
begin
// all changes were handled automatically by events
// just clear the logs
CodeToolBoss.SourceCache.ClearAllSourleLogEntries;
CodeToolBoss.SourceCache.ClearAllSourceLogEntries;
end;
procedure TMainIDE.DoJumpToProcedureSection;
@ -6553,10 +6553,11 @@ begin
if CodeToolBoss.CompleteCode(ActiveUnitInfo.Source,
ActiveSrcEdit.EditorComponent.CaretX,
ActiveSrcEdit.EditorComponent.CaretY,
ActiveSrcEdit.EditorComponent.TopLine,
NewSource,NewX,NewY,NewTopLine) then
begin
ApplyCodeToolChanges;
DoJumpToCodePos(ActiveSrcEdit, ActiveUnitInfo,
DoJumpToCodePos(ActiveSrcEdit, ActiveUnitInfo,
NewSource, NewX, NewY, NewTopLine, true);
end else begin
// error: probably a syntax error or just not in a procedure head/body
@ -7389,6 +7390,9 @@ end.
{ =============================================================================
$Log$
Revision 1.411 2002/10/13 21:23:42 lazarus
MG: code completion: added local variable completion
Revision 1.410 2002/10/13 10:19:18 lazarus
MG: publish project: save project after dialog