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

IdeIntf: Restore MaxValue in enum/set property editors. FPC will prohibit publishing non-contiguous enums and MaxValue will work. Issue #39832.

Browse Source
This commit is contained in:
juha 2022-08-17 22:06:53 +03:00
parent 7676949e2e
commit b75a7c1e81
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/propedits.pp
View File

@ -3817,7 +3817,7 @@ var
begin
EnumType := GetPropType;
with GetTypeData(EnumType)^ do
for I := MinValue to MinValue+GetEnumNameCount(EnumType)-1 do begin
for I := MinValue to MaxValue do begin
s := GetEnumName(EnumType, I);
Proc(s);
end;
@ -4247,7 +4247,7 @@ var
begin
EnumType := GetTypeData(GetPropType)^.CompType;
with GetTypeData(EnumType)^ do
for I := MinValue to MinValue+GetEnumNameCount(EnumType)-1 do
for I := MinValue to MaxValue do
Proc(TSetElementPropertyEditor.Create(Self, I));
end;
@ -7668,7 +7668,7 @@ var
// Get TypeInfo of set type.
EnumType := GetTypeData(ATypeInfo)^.CompType;
with GetTypeData(EnumType)^ do
for i := MinValue to MinValue+GetEnumNameCount(EnumType)-1 do
for i := MinValue to MaxValue do
begin
Result := PosI(APropNameFilter, GetEnumName(EnumType,i)) > 0;
if Result then