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

ide: fix IDE option dialog ReadSettings, WriteSettings - call methods if supported class is ancestor too

Browse Source 
git-svn-id: trunk@23341 -
This commit is contained in:
paul 2010-01-02 09:30:19 +00:00
parent 8cfb4412a9
commit 5413724717
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/ideoptionsdlg.pas
View File

@ -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);