simplewebserver: fixed frame inheritance

This commit is contained in:
mattias 2024-01-24 11:25:43 +01:00
parent b737901aa5
commit 479c0c04f4

View File

@ -281,7 +281,7 @@ end;
class function TSimpleWebSrvOptsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result:=TAbstractIDEEnvironmentOptions;
Result:=IDEEditorGroups.GetByIndex(GroupEnvironment)^.GroupClass;
end;
procedure TSimpleWebSrvOptsFrame.WriteSettings(AOptions: TAbstractIDEOptions);