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

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

Browse Source 
git-svn-id: trunk@56942 -
This commit is contained in:
michl 2018-01-03 21:54:13 +00:00
parent c216c92b71
commit 3886b2f185
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

@ -747,6 +747,7 @@ type
function GetSelections: TPersistentSelectionList; override;
public
function AllEqual: Boolean; override;
function GetAttributes: TPropertyAttributes; override;
procedure GetValues(Proc: TGetStrProc); override;
procedure SetValue(const NewValue: string); override;
function GetValue: AnsiString; override;
@ -5088,6 +5089,17 @@ begin
Result := True;
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;
var
ComponentRef: IInterfaceComponentReference;