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

IDEIntf: Change TComponentPropertyEditor back to original behavior so it lists all components from all forms.

Browse Source 
git-svn-id: trunk@42886 -
This commit is contained in:
juha 2013-09-19 18:59:22 +00:00
parent a4a4e4c791
commit 0a0a90e99b
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
components/ideintf/propedits.pp
View File

@ -620,12 +620,12 @@ type
procedure SetValue(const NewValue: ansistring); override;
end;
{ TComponentPropertyEditor
The default editor for TComponents. It allows the user to set the value of this
{ TComponentOneFormPropertyEditor
An editor for TComponents. It allows the user to set the value of this
property to point to a component in the same form that is type compatible
with the property being edited (e.g. the ActiveControl property). }
TComponentPropertyEditor = class(TPersistentPropertyEditor)
TComponentOneFormPropertyEditor = class(TPersistentPropertyEditor)
private
fIgnoreClass: TControlClass;
public
@ -635,17 +635,17 @@ type
{ TCoolBarControlPropertyEditor }
TCoolBarControlPropertyEditor = class(TComponentPropertyEditor)
TCoolBarControlPropertyEditor = class(TComponentOneFormPropertyEditor)
public
constructor Create(Hook: TPropertyEditorHook; APropCount: Integer); override;
end;
{ TComponentAllPropertyEditor
The default editor for TComponents. It allows the user to set the value of this
property to point to a component in any form in the project (?) that is
{ TComponentPropertyEditor
The default editor for TComponents. It allows the user to set the value of
this property to point to a component in any form in the project that is
type compatible with the property being edited. }
TComponentAllPropertyEditor = class(TPersistentPropertyEditor)
TComponentPropertyEditor = class(TPersistentPropertyEditor)
protected
function GetComponentReference: TComponent; virtual;
public
@ -658,7 +658,7 @@ type
a component on the form (or via form linking) that is type compatible
with the property being edited. }
TInterfacePropertyEditor = class(TComponentAllPropertyEditor)
TInterfacePropertyEditor = class(TComponentPropertyEditor)
private
protected
function GetComponent(const AInterface: IInterface): TComponent;
@ -672,7 +672,7 @@ type
{ TNoteBookActiveControlPropertyEditor }
TNoteBookActiveControlPropertyEditor = class(TComponentAllPropertyEditor)
TNoteBookActiveControlPropertyEditor = class(TComponentPropertyEditor)
protected
function CheckNewValue(APersistent: TPersistent): boolean; override;
public
@ -4342,9 +4342,9 @@ begin
end;
end;
{ TComponentPropertyEditor }
{ TComponentOneFormPropertyEditor }
function TComponentPropertyEditor.AllEqual: Boolean;
function TComponentOneFormPropertyEditor.AllEqual: Boolean;
var
AComponent: TComponent;
begin
@ -4355,7 +4355,7 @@ begin
Result:=csDesigning in AComponent.ComponentState;
end;
procedure TComponentPropertyEditor.GetValues(Proc: TGetStrProc);
procedure TComponentOneFormPropertyEditor.GetValues(Proc: TGetStrProc);
procedure TraverseComponents(Root: TComponent);
var
@ -4380,14 +4380,14 @@ begin
fIgnoreClass := TCustomCoolBar;
end;
{ TComponentAllPropertyEditor }
{ TComponentPropertyEditor }
function TComponentAllPropertyEditor.GetComponentReference: TComponent;
function TComponentPropertyEditor.GetComponentReference: TComponent;
begin
Result := TComponent(GetObjectValue);
end;
function TComponentAllPropertyEditor.AllEqual: Boolean;
function TComponentPropertyEditor.AllEqual: Boolean;
var
AComponent: TComponent;
begin
@ -6693,8 +6693,8 @@ begin
// nil,'',TTimePropertyEditor);
RegisterPropertyEditor(TypeInfo(TDateTime), nil, '', TDateTimePropertyEditor);
RegisterPropertyEditor(TypeInfo(TCursor), nil, '', TCursorPropertyEditor);
RegisterPropertyEditor(TypeInfo(TComponent), nil, '', TComponentAllPropertyEditor);
RegisterPropertyEditor(TypeInfo(TComponent), nil, 'ActiveControl', TComponentPropertyEditor);
RegisterPropertyEditor(TypeInfo(TComponent), nil, '', TComponentPropertyEditor);
RegisterPropertyEditor(TypeInfo(TComponent), nil, 'ActiveControl', TComponentOneFormPropertyEditor);
RegisterPropertyEditor(TypeInfo(TControl), TCoolBand, 'Control', TCoolBarControlPropertyEditor);
RegisterPropertyEditor(TypeInfo(TCollection), nil, '', TCollectionPropertyEditor);
RegisterPropertyEditor(TypeInfo(AnsiString), TFileDialog, 'Filter', TFileDlgFilterProperty);