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

IDE: options filter: fixed accessing nil

Browse Source 
git-svn-id: trunk@23313 -
This commit is contained in:
mattias 2009-12-28 11:56:05 +00:00
parent 20f8159dce
commit 2871bcfd3b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/ideoptionsdlg.pas
View File

@ -30,9 +30,10 @@ unit IdeOptionsDlg;
interface
uses
Classes, SysUtils, Controls, Forms, LResources, ComCtrls, ButtonPanel,
Classes, SysUtils, Controls, Forms, LResources, ComCtrls, LCLProc, LCLType,
ButtonPanel,
EnvironmentOpts, LazarusIDEStrConsts, IDEWindowIntf, IDEOptionsIntf,
EditorOptions, IDECommands, LCLType;
EditorOptions, IDECommands;
type
{ TIDEOptionsDialog }
@ -355,6 +356,7 @@ begin
for i := 0 to IDEEditorGroups.Count - 1 do
begin
Rec := IDEEditorGroups[i];
//DebugLn(['TIDEOptionsDialog.CreateEditors ',Rec^.GroupClass.ClassName]);
if not PassesFilter(Rec) then
Continue;
if Rec^.Items <> nil then
@ -417,7 +419,8 @@ function TIDEOptionsDialog.PassesFilter(ARec: PIDEOptionsGroupRec): Boolean;
begin
if (ARec^.GroupClass = nil) and (OptionsFilter <> nil) then
Exit(False);
if (ARec^.GroupClass <> nil) and not ARec^.GroupClass.InheritsFrom(OptionsFilter) then
if (OptionsFilter<>nil) and (ARec^.GroupClass <> nil)
and (not ARec^.GroupClass.InheritsFrom(OptionsFilter)) then
Exit(False);
Result := True;
end;