/dports/editors/lazarus/lazarus/designer/ |
H A D | customnonformdesigner.pas | 58 property LookupRoot: TComponent read GetLookupRoot write SetLookupRoot; property 78 Result := ComparePointers(Pointer(Form1.LookupRoot), Pointer(Form2.LookupRoot)); 83 LookupRoot: TComponent; 86 LookupRoot := TComponent(Key); 88 Result := ComparePointers(Pointer(LookupRoot), Pointer(Form.LookupRoot)); 95 Result := FNonFormProxyDesignerForm.LookupRoot; 100 if FNonFormProxyDesignerForm.LookupRoot = AValue then 102 if FNonFormProxyDesignerForm.LookupRoot<>nil then 105 FNonFormProxyDesignerForm.LookupRoot := AValue; 106 if FNonFormProxyDesignerForm.LookupRoot <> nil then begin [all …]
|
H A D | framedesigner.pas | 68 if LookupRoot is TControl then 69 TControl(LookupRoot).RemoveAllHandlersOfObject(Self); 77 if AValue = LookupRoot then Exit; 78 if LookupRoot is TControl then 96 AControl := TControl(LookupRoot); 114 AControl := TControl(LookupRoot); 169 if LookupRoot is TControl then 171 CurControl := TControl(LookupRoot); 179 if LookupRoot <> nil then 185 if LookupRoot is TControl then [all …]
|
H A D | noncontroldesigner.pas | 149 if LookupRoot is TDataModule then 160 if (Mediator<>nil) and (LookupRoot<>nil) then 199 if LookupRoot=nil then exit; 201 if LookupRoot is TDataModule then 203 CurDataModule := TDataModule(LookupRoot); 212 Mediator.GetFormBounds(LookupRoot,NewBounds,NewClientRect); 224 GetComponentLeftTopOrDesignInfo(LookupRoot,NewLeft,NewTop); 237 if LookupRoot is TDataModule then begin 238 with NonFormProxyDesignerForm, TDataModule(LookupRoot) do begin 249 Mediator.SetFormBounds(LookupRoot, LBoundsRect, LClientRect); [all …]
|
H A D | objinspext.pas | 223 LookupRoot: TPersistent; 267 LookupRoot:=Row.Editor.PropertyHook.LookupRoot; 268 if LookupRoot=nil then begin 273 AFile:=LazarusIDE.GetProjectFileWithRootComponent(TComponent(LookupRoot)); 275 …DebugLn('FindDeclarationOfOIProperty AFile=nil Row=',Row.Name,' LookupRoot=',DbgSName(LookupRoot)); 283 …=',Row.Name,' Instance=',DbgSName(APersistent),' LookupRoot=',DbgSName(LookupRoot),' Unit not foun…
|
H A D | taborderdlg.pas | 390 LookupRoot: TPersistent; 397 LookupRoot := GlobalDesignHook.LookupRoot; 398 if LookupRoot is TWinControl then begin 401 CreateCandidates(TComponent(LookupRoot), Candidates); 402 CreateNodes(TWinControl(LookupRoot), nil, Candidates); 406 Caption := Format(lisTabOrderOf, [TWinControl(LookupRoot).Name]);
|
/dports/editors/lazarus-qt5/lazarus/designer/ |
H A D | customnonformdesigner.pas | 58 property LookupRoot: TComponent read GetLookupRoot write SetLookupRoot; property 78 Result := ComparePointers(Pointer(Form1.LookupRoot), Pointer(Form2.LookupRoot)); 83 LookupRoot: TComponent; 86 LookupRoot := TComponent(Key); 88 Result := ComparePointers(Pointer(LookupRoot), Pointer(Form.LookupRoot)); 95 Result := FNonFormProxyDesignerForm.LookupRoot; 100 if FNonFormProxyDesignerForm.LookupRoot = AValue then 102 if FNonFormProxyDesignerForm.LookupRoot<>nil then 105 FNonFormProxyDesignerForm.LookupRoot := AValue; 106 if FNonFormProxyDesignerForm.LookupRoot <> nil then begin [all …]
|
H A D | framedesigner.pas | 68 if LookupRoot is TControl then 69 TControl(LookupRoot).RemoveAllHandlersOfObject(Self); 77 if AValue = LookupRoot then Exit; 78 if LookupRoot is TControl then 96 AControl := TControl(LookupRoot); 114 AControl := TControl(LookupRoot); 169 if LookupRoot is TControl then 171 CurControl := TControl(LookupRoot); 179 if LookupRoot <> nil then 185 if LookupRoot is TControl then [all …]
|
H A D | noncontroldesigner.pas | 149 if LookupRoot is TDataModule then 160 if (Mediator<>nil) and (LookupRoot<>nil) then 199 if LookupRoot=nil then exit; 201 if LookupRoot is TDataModule then 203 CurDataModule := TDataModule(LookupRoot); 212 Mediator.GetFormBounds(LookupRoot,NewBounds,NewClientRect); 224 GetComponentLeftTopOrDesignInfo(LookupRoot,NewLeft,NewTop); 237 if LookupRoot is TDataModule then begin 238 with NonFormProxyDesignerForm, TDataModule(LookupRoot) do begin 249 Mediator.SetFormBounds(LookupRoot, LBoundsRect, LClientRect); [all …]
|
H A D | objinspext.pas | 223 LookupRoot: TPersistent; 267 LookupRoot:=Row.Editor.PropertyHook.LookupRoot; 268 if LookupRoot=nil then begin 273 AFile:=LazarusIDE.GetProjectFileWithRootComponent(TComponent(LookupRoot)); 275 …DebugLn('FindDeclarationOfOIProperty AFile=nil Row=',Row.Name,' LookupRoot=',DbgSName(LookupRoot)); 283 …=',Row.Name,' Instance=',DbgSName(APersistent),' LookupRoot=',DbgSName(LookupRoot),' Unit not foun…
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/designer/ |
H A D | customnonformdesigner.pas | 61 property LookupRoot: TComponent read GetLookupRoot write SetLookupRoot; property 81 Result := ComparePointers(Pointer(Form1.LookupRoot), Pointer(Form2.LookupRoot)); 86 LookupRoot: TComponent; 89 LookupRoot := TComponent(Key); 91 Result := ComparePointers(Pointer(LookupRoot), Pointer(Form.LookupRoot)); 114 Result := FNonFormProxyDesignerForm.LookupRoot; 119 if FNonFormProxyDesignerForm.LookupRoot = AValue then 121 if FNonFormProxyDesignerForm.LookupRoot<>nil then 124 FNonFormProxyDesignerForm.LookupRoot := AValue; 125 if FNonFormProxyDesignerForm.LookupRoot <> nil then begin [all …]
|
H A D | framedesigner.pas | 71 if LookupRoot is TControl then 72 TControl(LookupRoot).RemoveAllHandlersOfObject(Self); 80 if AValue = LookupRoot then Exit; 81 if LookupRoot is TControl then 99 AControl := TControl(LookupRoot); 117 AControl := TControl(LookupRoot); 172 if LookupRoot is TControl then 174 CurControl := TControl(LookupRoot); 182 if LookupRoot <> nil then 188 if LookupRoot is TControl then [all …]
|
H A D | noncontroldesigner.pas | 110 if (Mediator<>nil) and (LookupRoot<>nil) then 153 if LookupRoot is TDataModule then 164 if (Mediator<>nil) and (LookupRoot<>nil) then 203 if LookupRoot=nil then exit; 205 if LookupRoot is TDataModule then 207 CurDataModule := TDataModule(LookupRoot); 216 Mediator.GetFormBounds(LookupRoot,NewBounds,NewClientRect); 228 GetComponentLeftTopOrDesignInfo(LookupRoot,NewLeft,NewTop); 241 if LookupRoot is TDataModule then begin 242 with NonFormProxyDesignerForm, TDataModule(LookupRoot) do begin [all …]
|
H A D | objinspext.pas | 224 LookupRoot: TPersistent; 268 LookupRoot:=Row.Editor.PropertyHook.LookupRoot; 269 if LookupRoot=nil then begin 274 AFile:=LazarusIDE.GetProjectFileWithRootComponent(TComponent(LookupRoot)); 276 …DebugLn('FindDeclarationOfOIProperty AFile=nil Row=',Row.Name,' LookupRoot=',DbgSName(LookupRoot)); 284 …=',Row.Name,' Instance=',DbgSName(APersistent),' LookupRoot=',DbgSName(LookupRoot),' Unit not foun…
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/designer/ |
H A D | customnonformdesigner.pas | 61 property LookupRoot: TComponent read GetLookupRoot write SetLookupRoot; property 81 Result := ComparePointers(Pointer(Form1.LookupRoot), Pointer(Form2.LookupRoot)); 86 LookupRoot: TComponent; 89 LookupRoot := TComponent(Key); 91 Result := ComparePointers(Pointer(LookupRoot), Pointer(Form.LookupRoot)); 114 Result := FNonFormProxyDesignerForm.LookupRoot; 119 if FNonFormProxyDesignerForm.LookupRoot = AValue then 121 if FNonFormProxyDesignerForm.LookupRoot<>nil then 124 FNonFormProxyDesignerForm.LookupRoot := AValue; 125 if FNonFormProxyDesignerForm.LookupRoot <> nil then begin [all …]
|
H A D | framedesigner.pas | 71 if LookupRoot is TControl then 72 TControl(LookupRoot).RemoveAllHandlersOfObject(Self); 80 if AValue = LookupRoot then Exit; 81 if LookupRoot is TControl then 99 AControl := TControl(LookupRoot); 117 AControl := TControl(LookupRoot); 172 if LookupRoot is TControl then 174 CurControl := TControl(LookupRoot); 182 if LookupRoot <> nil then 188 if LookupRoot is TControl then [all …]
|
H A D | noncontroldesigner.pas | 110 if (Mediator<>nil) and (LookupRoot<>nil) then 153 if LookupRoot is TDataModule then 164 if (Mediator<>nil) and (LookupRoot<>nil) then 203 if LookupRoot=nil then exit; 205 if LookupRoot is TDataModule then 207 CurDataModule := TDataModule(LookupRoot); 216 Mediator.GetFormBounds(LookupRoot,NewBounds,NewClientRect); 228 GetComponentLeftTopOrDesignInfo(LookupRoot,NewLeft,NewTop); 241 if LookupRoot is TDataModule then begin 242 with NonFormProxyDesignerForm, TDataModule(LookupRoot) do begin [all …]
|
H A D | objinspext.pas | 224 LookupRoot: TPersistent; 268 LookupRoot:=Row.Editor.PropertyHook.LookupRoot; 269 if LookupRoot=nil then begin 274 AFile:=LazarusIDE.GetProjectFileWithRootComponent(TComponent(LookupRoot)); 276 …DebugLn('FindDeclarationOfOIProperty AFile=nil Row=',Row.Name,' LookupRoot=',DbgSName(LookupRoot)); 284 …=',Row.Name,' Instance=',DbgSName(APersistent),' LookupRoot=',DbgSName(LookupRoot),' Unit not foun…
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/sparta/dockedformeditor/source/ |
H A D | sparta_fakecustom.pas | 319 if LookupRoot <> nil then 320 with LookupRoot as TControl do 412 Left := (LookupRoot as TFrame).Left; 413 Top := (LookupRoot as TFrame).Top; 414 Width := (LookupRoot as TFrame).Width; 415 Height := (LookupRoot as TFrame).Height; 549 if LookupRoot is TDataModule then 551 Width := (LookupRoot as TDataModule).DesignSize.x; 552 Height := (LookupRoot as TDataModule).DesignSize.y; 554 else if (LookupRoot <> nil) and (Mediator <> nil) then [all …]
|
/dports/editors/lazarus/lazarus/components/sparta/dockedformeditor/source/ |
H A D | sparta_fakecustom.pas | 323 if LookupRoot <> nil then 324 with LookupRoot as TControl do 416 Left := (LookupRoot as TFrame).Left; 417 Top := (LookupRoot as TFrame).Top; 418 Width := (LookupRoot as TFrame).Width; 419 Height := (LookupRoot as TFrame).Height; 554 if LookupRoot is TDataModule then 556 Width := (LookupRoot as TDataModule).DesignSize.x; 557 Height := (LookupRoot as TDataModule).DesignSize.y; 559 else if (LookupRoot <> nil) and (Mediator <> nil) then [all …]
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/sparta/dockedformeditor/source/ |
H A D | sparta_fakecustom.pas | 319 if LookupRoot <> nil then 320 with LookupRoot as TControl do 412 Left := (LookupRoot as TFrame).Left; 413 Top := (LookupRoot as TFrame).Top; 414 Width := (LookupRoot as TFrame).Width; 415 Height := (LookupRoot as TFrame).Height; 549 if LookupRoot is TDataModule then 551 Width := (LookupRoot as TDataModule).DesignSize.x; 552 Height := (LookupRoot as TDataModule).DesignSize.y; 554 else if (LookupRoot <> nil) and (Mediator <> nil) then [all …]
|
/dports/editors/lazarus-qt5/lazarus/components/sparta/dockedformeditor/source/ |
H A D | sparta_fakecustom.pas | 323 if LookupRoot <> nil then 324 with LookupRoot as TControl do 416 Left := (LookupRoot as TFrame).Left; 417 Top := (LookupRoot as TFrame).Top; 418 Width := (LookupRoot as TFrame).Width; 419 Height := (LookupRoot as TFrame).Height; 554 if LookupRoot is TDataModule then 556 Width := (LookupRoot as TDataModule).DesignSize.x; 557 Height := (LookupRoot as TDataModule).DesignSize.y; 559 else if (LookupRoot <> nil) and (Mediator <> nil) then [all …]
|
/dports/editors/lazarus/lazarus/ide/ |
H A D | emptymethodsdlg.pas | 268 LookupRoot: TComponent; 295 LookupRoot:=AnUnitInfo.Component; 296 if (LookupRoot<>nil) 297 and (SysUtils.CompareText(LookupRoot.ClassName,CurClassName)=0) then 300 CheckEvents(LookupRoot); 301 for i:=0 to LookupRoot.ComponentCount-1 do 302 CheckEvents(LookupRoot.Components[i]); 304 if PropChanged and (GlobalDesignHook.LookupRoot=LookupRoot) then
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/ide/ |
H A D | emptymethodsdlg.pas | 267 LookupRoot: TComponent; 290 LookupRoot:=AnUnitInfo.Component; 291 if (LookupRoot<>nil) and (CompareText(LookupRoot.ClassName,CurClassName)=0) then 294 CheckEvents(LookupRoot); 295 for i:=0 to LookupRoot.ComponentCount-1 do 296 CheckEvents(LookupRoot.Components[i]); 298 if PropChanged and (GlobalDesignHook.LookupRoot=LookupRoot) then
|
/dports/editors/lazarus-qt5/lazarus/ide/ |
H A D | emptymethodsdlg.pas | 268 LookupRoot: TComponent; 295 LookupRoot:=AnUnitInfo.Component; 296 if (LookupRoot<>nil) 297 and (SysUtils.CompareText(LookupRoot.ClassName,CurClassName)=0) then 300 CheckEvents(LookupRoot); 301 for i:=0 to LookupRoot.ComponentCount-1 do 302 CheckEvents(LookupRoot.Components[i]); 304 if PropChanged and (GlobalDesignHook.LookupRoot=LookupRoot) then
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/ide/ |
H A D | emptymethodsdlg.pas | 267 LookupRoot: TComponent; 290 LookupRoot:=AnUnitInfo.Component; 291 if (LookupRoot<>nil) and (CompareText(LookupRoot.ClassName,CurClassName)=0) then 294 CheckEvents(LookupRoot); 295 for i:=0 to LookupRoot.ComponentCount-1 do 296 CheckEvents(LookupRoot.Components[i]); 298 if PropChanged and (GlobalDesignHook.LookupRoot=LookupRoot) then
|