paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-03 19:38:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: allow writing WidgetSetRestrictions in OI

Browse Source 
git-svn-id: trunk@34865 -
This commit is contained in:
mattias 2012-01-22 13:23:05 +00:00
parent 86616ad9b9
commit deb1eafd12
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ideintf/oifavouriteproperties.pas
View File

@ -110,17 +110,14 @@ type
{ TOIRestrictedProperties } { TOIRestrictedProperties }
TOIRestrictedProperties = class(TOIFavouriteProperties) TOIRestrictedProperties = class(TOIFavouriteProperties)
protected
FWidgetSetRestrictions: TWidgetSetRestrictionsArray;
public public
WidgetSetRestrictions: TWidgetSetRestrictionsArray;
constructor Create; constructor Create;
function IsRestricted(AClass: TPersistentClass; function IsRestricted(AClass: TPersistentClass;
const PropertyName: string): TLCLPlatforms; const PropertyName: string): TLCLPlatforms;
function AreRestricted(Selection: TPersistentSelectionList; function AreRestricted(Selection: TPersistentSelectionList;
const PropertyName: string): TLCLPlatforms; const PropertyName: string): TLCLPlatforms;
property WidgetSetRestrictions: TWidgetSetRestrictionsArray
read FWidgetSetRestrictions;
end; end;
implementation implementation
@ -627,7 +624,7 @@ begin
inherited Create; inherited Create;
for P := Low(TLCLPlatform) to High(TLCLPlatform) do for P := Low(TLCLPlatform) to High(TLCLPlatform) do
FWidgetSetRestrictions[P] := 0; WidgetSetRestrictions[P] := 0;
end; end;
function TOIRestrictedProperties.IsRestricted(AClass: TPersistentClass; function TOIRestrictedProperties.IsRestricted(AClass: TPersistentClass;