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

ideintf: improve TSetElementPropertyEditor - report non default values

Browse Source 
git-svn-id: trunk@17609 -
This commit is contained in:
paul 2008-11-27 03:29:28 +00:00
parent 6096d9d91f
commit cdb0d3c467
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ideintf/propedits.pp
View File

@ -528,6 +528,7 @@ type
function GetValue: ansistring; override; function GetValue: ansistring; override;
procedure GetValues(Proc: TGetStringProc); override; procedure GetValues(Proc: TGetStringProc); override;
procedure SetValue(const NewValue: ansistring); override; procedure SetValue(const NewValue: ansistring); override;
function IsNotDefaultValue: boolean; override;
end; end;
{ TSetPropertyEditor { TSetPropertyEditor
@ -3201,6 +3202,8 @@ end;
function TSetElementPropertyEditor.GetAttributes: TPropertyAttributes; function TSetElementPropertyEditor.GetAttributes: TPropertyAttributes;
begin begin
Result := [paMultiSelect, paValueList, paSortList]; Result := [paMultiSelect, paValueList, paSortList];
if GetDefaultOrdValue <> NoDefaultValue then
Result := Result + [paHasDefaultValue];
end; end;
function TSetElementPropertyEditor.GetName: shortstring; function TSetElementPropertyEditor.GetName: shortstring;
@ -3234,6 +3237,19 @@ begin
SetOrdValue(Integer(S)); SetOrdValue(Integer(S));
end; end;
function TSetElementPropertyEditor.IsNotDefaultValue: boolean;
var
S1, S2: TIntegerSet;
begin
Result := (paHasDefaultValue in GetAttributes);
if Result then
begin
Integer(S1) := GetOrdValue;
Integer(S2) := GetDefaultOrdValue;
Result := (FElement in S1) <> (FElement in S2);
end;
end;
{ TSetPropertyEditor } { TSetPropertyEditor }
function TSetPropertyEditor.GetAttributes: TPropertyAttributes; function TSetPropertyEditor.GetAttributes: TPropertyAttributes;