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

IDE: fixed typos and comment

Browse Source
This commit is contained in:
mattias 2023-08-13 21:45:16 +02:00
parent 90da7e38d8
commit b73e4dcecf
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
designer/designer.pp
View File

@ -335,7 +335,7 @@ type
var TheMessage: TLMessage): Boolean; override;
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
function UniqueName(const BaseName: string): string; override;
Procedure RemovePersistentAndChilds(APersistent: TPersistent);
Procedure RemovePersistentAndChildren(APersistent: TPersistent);
procedure Notification({%H-}AComponent: TComponent;
Operation: TOperation); override;
procedure ValidateRename(AComponent: TComponent;
@ -2968,7 +2968,7 @@ begin
while DeletingPersistent.Count>0 do begin
APersistent:=TPersistent(DeletingPersistent[DeletingPersistent.Count-1]);
//debugln(['TDesigner.DoDeleteSelectedComponents A ',dbgsName(APersistent),' ',(APersistent is TComponent) and (TheFormEditor.FindComponent(TComponent(APersistent))<>nil)]);
RemovePersistentAndChilds(APersistent);
RemovePersistentAndChildren(APersistent);
end;
MouseDownComponent := Nil;
finally
@ -3131,7 +3131,7 @@ Begin
inherited Modified;
end;
procedure TDesigner.RemovePersistentAndChilds(APersistent: TPersistent);
procedure TDesigner.RemovePersistentAndChildren(APersistent: TPersistent);
var
i: integer;
AWinControl: TWinControl;
@ -3153,8 +3153,8 @@ Begin
while (i>=0) do begin
ChildControl:=AWinControl.Controls[i];
if ChildControl.Owner=FLookupRoot then begin
//Debugln(['[TDesigner.RemoveComponentAndChilds] B ',dbgsName(APersistent),' Child=',dbgsName(ChildControl),' i=',i,' ',TheFormEditor.FindComponent(ChildControl)<>nil]);
RemovePersistentAndChilds(ChildControl);
//Debugln(['[TDesigner.RemoveComponentAndChildren] B ',dbgsName(APersistent),' Child=',dbgsName(ChildControl),' i=',i,' ',TheFormEditor.FindComponent(ChildControl)<>nil]);
RemovePersistentAndChildren(ChildControl);
// the component list of the form has changed -> restart the search
i:=AWinControl.ControlCount-1;
end else
@ -3164,7 +3164,7 @@ Begin
end;
// remove component
{$IFDEF VerboseDesigner}
DebugLn('[TDesigner.RemovePersistentAndChilds] DoDeletePersistent ',dbgsName(APersistent));
DebugLn('[TDesigner.RemovePersistentAndChildren] DoDeletePersistent ',dbgsName(APersistent));
{$ENDIF}
DoDeletePersistent(APersistent,true);
end;

2
ide/buildmanager.pas
View File

@ -1495,7 +1495,7 @@ begin
exit(mrYes);
end;
// check all required packages
// check all direct required packages (indirect required were already compiled above)
Result:=PackageGraph.CheckCompileNeedDueToDependencies(AProject,
AProject.FirstRequiredDependency,
not (pfUseDesignTimePackages in AProject.Flags),

2
ide/main.pp
View File

@ -13633,7 +13633,7 @@ begin
if APersistent=nil then exit;
ADesigner:=TDesigner(FindRootDesigner(APersistent));
if ADesigner=nil then exit;
ADesigner.RemovePersistentAndChilds(APersistent);
ADesigner.RemovePersistentAndChildren(APersistent);
APersistent:=nil;
end;