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

IdeIntf: Prevent bogus entries in TEnumPropertyEditor better. Issue #39832.

Browse Source 
(cherry picked from commit d623f68c1d)
This commit is contained in:
juha 2022-08-11 18:57:32 +03:00 committed by Maxim Ganetsky
parent cd3d8a368b
commit aa1d7758ce
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/ideintf/propedits.pp
View File

@ -3853,17 +3853,13 @@ procedure TEnumPropertyEditor.GetValues(Proc: TGetStrProc);
var
I: Integer;
EnumType: PTypeInfo;
s, EnumUnitName: String;
s: String;
begin
EnumType := GetPropType;
EnumUnitName := GetPropTypeUnitName;
with GetTypeData(EnumType)^ do
for I := MinValue to MaxValue do begin
for I := MinValue to MinValue+GetEnumNameCount(EnumType)-1 do begin
s := GetEnumName(EnumType, I);
// An empty string and the enum's unit name happen in gaps
// of a non-contiguous enum. Why the unit name? A bug in FPC code?
if (s <> '') and (s <> EnumUnitName) then
Proc(s);
Proc(s);
end;
end;