Home
last modified time | relevance | path

Searched refs:LookupRoot (Results 1 – 25 of 461) sorted by relevance

12345678910>>...19

/dports/editors/lazarus/lazarus/designer/
H A Dcustomnonformdesigner.pas58 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 Dframedesigner.pas68 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 Dnoncontroldesigner.pas149 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 Dobjinspext.pas223 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 Dtaborderdlg.pas390 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 Dcustomnonformdesigner.pas58 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 Dframedesigner.pas68 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 Dnoncontroldesigner.pas149 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 Dobjinspext.pas223 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 Dcustomnonformdesigner.pas61 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 Dframedesigner.pas71 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 Dnoncontroldesigner.pas110 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 Dobjinspext.pas224 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 Dcustomnonformdesigner.pas61 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 Dframedesigner.pas71 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 Dnoncontroldesigner.pas110 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 Dobjinspext.pas224 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 Dsparta_fakecustom.pas319 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 Dsparta_fakecustom.pas323 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 Dsparta_fakecustom.pas319 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 Dsparta_fakecustom.pas323 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 Demptymethodsdlg.pas268 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 Demptymethodsdlg.pas267 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 Demptymethodsdlg.pas268 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 Demptymethodsdlg.pas267 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

12345678910>>...19