paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 22:26:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove an obsolete dbg message when deleting a comp. Remove "var" from params when not needed.

Browse Source 
git-svn-id: trunk@65000 -
This commit is contained in:
juha 2021-04-15 19:22:38 +00:00
parent fb902432c9
commit 7b18690162
4 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/componenttreeview.pas
View File

@ -861,8 +861,7 @@ end;
procedure TComponentTreeView.DeleteComponentNode(APersistent: TPersistent);
begin
if not FindAndChange(APersistent, zoDelete) then
DebugLn(['TComponentTreeView.DeleteComponentNode failed.']);
FindAndChange(APersistent, zoDelete);
end;
procedure TComponentTreeView.UpdateCompNode(ANode: TTreeNode);

2
designer/designer.pp
View File

@ -63,7 +63,7 @@ type
Value: boolean) of object;
TOnPasteComponents = procedure(Sender: TObject; LookupRoot: TComponent;
TxtCompStream: TStream; Parent: TWinControl;
var NewComponents: TFPList) of object;
NewComponents: TFPList) of object;
TOnPastedComponents = procedure(Sender: TObject; LookupRoot: TComponent) of object;
TOnPersistentDeleted = procedure(Sender: TObject; APersistent: TPersistent)
of object;

4
designer/jitforms.pp
View File

@ -205,7 +205,7 @@ type
// child components
procedure AddJITChildComponentsFromStream(JITOwnerComponent: TComponent;
BinStream: TStream; ComponentClass: TComponentClass;
ParentControl: TWinControl; var NewComponents: TFPList);
ParentControl: TWinControl; NewComponents: TFPList);
procedure ReadInlineJITChildComponent(Component: TComponent);
public
property OnReaderError: TJITReaderErrorEvent
@ -1335,7 +1335,7 @@ end;
procedure TJITComponentList.AddJITChildComponentsFromStream(
JITOwnerComponent: TComponent; BinStream: TStream;
ComponentClass: TComponentClass; ParentControl: TWinControl;
var NewComponents: TFPList);
NewComponents: TFPList);
var
Reader: TReader;
DestroyDriver: Boolean;

8
ide/main.pp
View File

@ -553,7 +553,7 @@ type
procedure DesignerShowOptions(Sender: TObject);
procedure DesignerPasteComponents(Sender: TObject; LookupRoot: TComponent;
TxtCompStream: TStream; ParentControl: TWinControl;
var NewComponents: TFPList);
NewComponents: TFPList);
procedure DesignerPastedComponents(Sender: TObject; LookupRoot: TComponent);
procedure DesignerPropertiesChanged(Sender: TObject);
procedure DesignerPersistentDeleted(Sender: TObject; APersistent: TPersistent);
@ -9325,7 +9325,7 @@ end;
procedure TMainIDE.DesignerPasteComponents(Sender: TObject;
LookupRoot: TComponent; TxtCompStream: TStream; ParentControl: TWinControl;
var NewComponents: TFPList);
NewComponents: TFPList);
var
NewClassName: String;
ARegComp: TRegisteredComponent;
@ -9379,10 +9379,8 @@ begin
// create the component
FormEditor1.CreateChildComponentsFromStream(BinCompStream,
ARegComp.ComponentClass,LookupRoot,ParentControl,NewComponents);
if NewComponents.Count=0 then begin
if NewComponents.Count=0 then
DebugLn('Error: (lazarus) TMainIDE.DesignerPasteComponent FAILED FormEditor1.CreateChildComponentFromStream');
exit;
end;
finally
BinCompStream.Free;