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

2
ide/buildmanager.pas
View File

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

2
ide/main.pp
View File

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