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

IDE: consistent check and typecast

Browse Source
This commit is contained in:
mattias 2022-12-16 13:44:09 +01:00
parent 8a80bb3b85
commit e7126c8d19
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/designer.pp
View File

@ -661,12 +661,12 @@ begin
inherited Create; inherited Create;
//debugln(['TDesigner.Create Self=',dbgs(Pointer(Self)),' TheDesignerForm=',DbgSName(TheDesignerForm)]); //debugln(['TDesigner.Create Self=',dbgs(Pointer(Self)),' TheDesignerForm=',DbgSName(TheDesignerForm)]);
FForm := TheDesignerForm; FForm := TheDesignerForm;
if FForm is BaseFormEditor1.NonFormProxyDesignerForm[NonControlProxyDesignerFormId] then begin if FForm is INonControlDesigner then begin
LNonControlDesigner := FForm as INonControlDesigner; LNonControlDesigner := FForm as INonControlDesigner;
FLookupRoot := LNonControlDesigner.LookupRoot; FLookupRoot := LNonControlDesigner.LookupRoot;
Mediator := LNonControlDesigner.Mediator; Mediator := LNonControlDesigner.Mediator;
end end
else if FForm is BaseFormEditor1.NonFormProxyDesignerForm[FrameProxyDesignerFormId] then else if FForm is IFrameDesigner then
FLookupRoot := (FForm as IFrameDesigner).LookupRoot FLookupRoot := (FForm as IFrameDesigner).LookupRoot
else else
FLookupRoot := FForm; FLookupRoot := FForm;
@ -784,6 +784,7 @@ procedure TDesigner.AddComponentCheckParent(var NewParent: TComponent;
var var
NewParentControl: TWinControl; NewParentControl: TWinControl;
begin begin
//debugln(['TDesigner.AddComponentCheckParent Mediator=',DbgSName(Mediator),' NewParent=',DbgSName(NewParent),' NewComponentClass=',NewComponentClass.ClassName]);
if Mediator<>nil then begin if Mediator<>nil then begin
// mediator, non LCL components // mediator, non LCL components
if NewParent=nil then if NewParent=nil then