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

Spelling

Browse Source
This commit is contained in:
Martin 2024-09-24 23:37:18 +02:00
parent 77c4b7ceae
commit 54b57dc2fb
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/packages/ideproject/project.pp
View File

@ -308,7 +308,7 @@ type
fSourceChangeStep: LongInt;
FSourceDirectoryReferenced: boolean;
fLastDirectoryReferenced: string;
FSetBookmarLock: Integer;
FSetBookmarkLock: Integer;
FUnitResourceFileformat: TUnitResourcefileFormatClass;
function ComponentLFMOnDiskHasChanged: boolean;
@ -1768,7 +1768,7 @@ end;
procedure TUnitInfo.Clear;
begin
FBookmarks.Clear;
FSetBookmarLock := 0;
FSetBookmarkLock := 0;
BuildFileIfActive:=false;
fComponent := nil;
fComponentName := '';
@ -2088,7 +2088,7 @@ begin
if Assigned(Project1) and Assigned(Project1.Bookmarks) then
begin
if OpenEditorInfoCount > 0 then begin
inc(FSetBookmarLock);
inc(FSetBookmarkLock);
try
// Adjust bookmarks
for i := Bookmarks.Count-1 downto 0 do
@ -2099,7 +2099,7 @@ begin
OpenEditorInfo[0].EditorComponent.SetBookMark(BM.ID, BM.CursorPos.X, BM.CursorPos.Y, BM.Left, BM.Top);
end;
finally
dec(FSetBookmarLock);
dec(FSetBookmarkLock);
end;
end
else // OpenEditorInfoCount = 0
@ -2432,7 +2432,7 @@ end;
function TUnitInfo.AddBookmark(X, Y, ID: integer): integer;
begin
if FSetBookmarLock = 0 then
if FSetBookmarkLock = 0 then
Result := Bookmarks.Add(X, Y, ID)
else
Result := -1;
@ -2442,7 +2442,7 @@ end;
function TUnitInfo.AddBookmark(X, Y, ALeft, ATop, ID: integer): integer;
begin
if FSetBookmarLock = 0 then
if FSetBookmarkLock = 0 then
Result := Bookmarks.Add(X, Y, ALeft, ATop, ID)
else
Result := -1;