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

Merged revision(s) 56942 #3886b2f185 from trunk:

Browse Source 
IDE: PropertyEditor: Fixed components with published properties of type "interface" does not work. Issue #32919. Patch by Andi Friess
........

git-svn-id: branches/fixes_1_8@56985 -
This commit is contained in:
maxim 2018-01-06 13:17:33 +00:00
parent 915a923604
commit 217d1b169c
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/ideintf/propedits.pp
View File

@ -743,6 +743,7 @@ type
function GetSelections: TPersistentSelectionList; override; function GetSelections: TPersistentSelectionList; override;
public public
function AllEqual: Boolean; override; function AllEqual: Boolean; override;
function GetAttributes: TPropertyAttributes; override;
procedure GetValues(Proc: TGetStrProc); override; procedure GetValues(Proc: TGetStrProc); override;
procedure SetValue(const NewValue: string); override; procedure SetValue(const NewValue: string); override;
function GetValue: AnsiString; override; function GetValue: AnsiString; override;
@ -5097,6 +5098,17 @@ begin
Result := True; Result := True;
end; end;
function TInterfacePropertyEditor.GetAttributes: TPropertyAttributes;
begin
Result := [paMultiSelect];
if Assigned(GetPropInfo^.SetProc) then
Result := Result + [paValueList, paSortList, paRevertable, paVolatileSubProperties]
else
Result := Result + [paReadOnly];
if GReferenceExpandable and (GetComponentReference <> nil) and AllEqual then
Result := Result + [paSubProperties];
end;
function TInterfacePropertyEditor.GetComponent(const AInterface: IInterface): TComponent; function TInterfacePropertyEditor.GetComponent(const AInterface: IInterface): TComponent;
var var
ComponentRef: IInterfaceComponentReference; ComponentRef: IInterfaceComponentReference;