paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 22:37:28 +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); procedure TComponentTreeView.DeleteComponentNode(APersistent: TPersistent);
begin begin
if not FindAndChange(APersistent, zoDelete) then FindAndChange(APersistent, zoDelete);
DebugLn(['TComponentTreeView.DeleteComponentNode failed.']);
end; end;
procedure TComponentTreeView.UpdateCompNode(ANode: TTreeNode); procedure TComponentTreeView.UpdateCompNode(ANode: TTreeNode);

2
designer/designer.pp
View File

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

4
designer/jitforms.pp
View File

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

8
ide/main.pp
View File

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