From 541372471795774665411b52db668a22468e19fd Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 2 Jan 2010 09:30:19 +0000
Subject: [PATCH] ide: fix IDE option dialog ReadSettings, WriteSettings - call
 methods if supported class is ancestor too

git-svn-id: trunk@23341 -
---
 ide/ideoptionsdlg.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ide/ideoptionsdlg.pas b/ide/ideoptionsdlg.pas
index ff9959557c..eaa21010b0 100644
--- a/ide/ideoptionsdlg.pas
+++ b/ide/ideoptionsdlg.pas
@@ -184,7 +184,8 @@ var
     begin
       if Node.Data <> nil then
         with TAbstractIDEOptionsEditor(Node.Data) do
-          if SupportedOptionsClass = ClassTypeForCompare then
+          if ((ClassTypeForCompare = nil) and (SupportedOptionsClass = nil)) or
+             ClassTypeForCompare.InheritsFrom(SupportedOptionsClass) then
             ReadSettings(AOptions);
       Traverse(Node.GetFirstChild);
       Traverse(Node.GetNextSibling);
@@ -211,7 +212,8 @@ var
     begin
       if Node.Data <> nil then
         with TAbstractIDEOptionsEditor(Node.Data) do
-          if SupportedOptionsClass = ClassTypeForCompare then
+          if ((ClassTypeForCompare = nil) and (SupportedOptionsClass = nil)) or
+             ClassTypeForCompare.InheritsFrom(SupportedOptionsClass) then
             WriteSettings(AOptions);
       Traverse(Node.GetFirstChild);
       Traverse(Node.GetNextSibling);