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

ideintf: don't set paHasDefaultValue if property does not has default value (it was so for only few property editors)

Browse Source 
git-svn-id: trunk@19217 -
This commit is contained in:
paul 2009-04-04 16:30:59 +00:00
parent e11389adc0
commit 3d28c2f73a
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ideintf/propedits.pp
View File

@ -2997,7 +2997,9 @@ end;
function TEnumPropertyEditor.GetAttributes: TPropertyAttributes; function TEnumPropertyEditor.GetAttributes: TPropertyAttributes;
begin begin
Result:=[paMultiSelect,paValueList,paSortList,paRevertable,paHasDefaultValue]; Result := [paMultiSelect, paValueList, paSortList, paRevertable];
if GetDefaultOrdValue <> NoDefaultValue then
Result := Result + [paHasDefaultValue];
end; end;
function TEnumPropertyEditor.OrdValueToVisualValue(OrdValue: longint): string; function TEnumPropertyEditor.OrdValueToVisualValue(OrdValue: longint): string;
@ -3308,8 +3310,9 @@ end;
function TSetPropertyEditor.GetAttributes: TPropertyAttributes; function TSetPropertyEditor.GetAttributes: TPropertyAttributes;
begin begin
Result := [paMultiSelect,paSubProperties,paReadOnly,paRevertable, Result := [paMultiSelect, paSubProperties, paReadOnly, paRevertable];
paHasDefaultValue]; if GetDefaultOrdValue <> NoDefaultValue then
Result := Result + [paHasDefaultValue];
end; end;
procedure TSetPropertyEditor.GetProperties(Proc: TGetPropEditProc); procedure TSetPropertyEditor.GetProperties(Proc: TGetPropEditProc);
@ -4726,7 +4729,9 @@ const
function TModalResultPropertyEditor.GetAttributes: TPropertyAttributes; function TModalResultPropertyEditor.GetAttributes: TPropertyAttributes;
begin begin
Result := [paMultiSelect, paValueList, paRevertable, paHasDefaultValue]; Result := [paMultiSelect, paValueList, paRevertable];
if GetDefaultOrdValue <> NoDefaultValue then
Result := Result + [paHasDefaultValue];
end; end;
function TModalResultPropertyEditor.OrdValueToVisualValue(OrdValue: longint function TModalResultPropertyEditor.OrdValueToVisualValue(OrdValue: longint
@ -4954,11 +4959,12 @@ end;
function TShortCutPropertyEditor.GetAttributes: TPropertyAttributes; function TShortCutPropertyEditor.GetAttributes: TPropertyAttributes;
begin begin
Result := [paMultiSelect,paValueList,paRevertable,paHasDefaultValue,paDialog]; Result := [paMultiSelect, paValueList, paRevertable, paDialog];
if GetDefaultOrdValue <> NoDefaultValue then
Result := Result + [paHasDefaultValue];
end; end;
function TShortCutPropertyEditor.OrdValueToVisualValue(OrdValue: longint function TShortCutPropertyEditor.OrdValueToVisualValue(OrdValue: longint): string;
): string;
var var
CurValue: TShortCut; CurValue: TShortCut;
begin begin
@ -5068,11 +5074,12 @@ end;
function TCursorPropertyEditor.GetAttributes: TPropertyAttributes; function TCursorPropertyEditor.GetAttributes: TPropertyAttributes;
begin begin
Result:=[paMultiSelect,paSortList,paValueList,paRevertable,paHasDefaultValue]; Result := [paMultiSelect, paSortList, paValueList, paRevertable];
if GetDefaultOrdValue <> NoDefaultValue then
Result := Result + [paHasDefaultValue];
end; end;
function TCursorPropertyEditor.OrdValueToVisualValue(OrdValue: longint function TCursorPropertyEditor.OrdValueToVisualValue(OrdValue: longint): string;
): string;
begin begin
Result := CursorToString(TCursor(OrdValue)); Result := CursorToString(TCursor(OrdValue));
end; end;