From f7c3dcd5382884dcf58512b4ffc7d0cb3e3fd304 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 4 Jun 2014 11:19:35 +0000 Subject: [PATCH] IDE: fixed compilation, bug #26268 git-svn-id: trunk@45336 - --- ide/environmentopts.pp | 4 ++++ ide/ideoptiondefs.pas | 2 ++ 2 files changed, 6 insertions(+) diff --git a/ide/environmentopts.pp b/ide/environmentopts.pp index 2a16088c98..85b6487d11 100644 --- a/ide/environmentopts.pp +++ b/ide/environmentopts.pp @@ -1447,7 +1447,9 @@ begin for mwc:=low(TMsgWndColor) to high(TMsgWndColor) do fMsgViewColors[mwc]:=XMLConfig.GetValue( Path+'MsgView/Colors/'+MsgWndColorNames[mwc],MsgWndDefaultColors[mwc]); + {$IFDEF EnableNewExtTools} MsgViewFilters.LoadFromXMLConfig(XMLConfig,'MsgView/Filters/'); + {$ENDIF} // glyphs FShowButtonGlyphs := TApplicationShowGlyphs(XMLConfig.GetValue(Path+'ShowButtonGlyphs/Value', @@ -1827,7 +1829,9 @@ begin for mwc:=low(TMsgWndColor) to high(TMsgWndColor) do XMLConfig.SetDeleteValue(Path+'MsgView/Colors/'+MsgWndColorNames[mwc], fMsgViewColors[mwc],MsgWndDefaultColors[mwc]); + {$IFDEF EnableNewExtTools} MsgViewFilters.SaveToXMLConfig(XMLConfig,'MsgView/Filters/'); + {$ENDIF} // glyphs XMLConfig.SetDeleteValue(Path+'ShowButtonGlyphs/Value', diff --git a/ide/ideoptiondefs.pas b/ide/ideoptiondefs.pas index e219541355..6877839e1e 100644 --- a/ide/ideoptiondefs.pas +++ b/ide/ideoptiondefs.pas @@ -617,6 +617,7 @@ begin Result:=FXMLConfig.Filename; end; +{$IFDEF EnableNewExtTools} { TLMVFilterMsgType } procedure TLMVFilterMsgType.SetMsgID(AValue: integer); @@ -963,6 +964,7 @@ begin E(IntToStr(i)); end; end; +{$ENDIF} initialization DefaultConfigClass:=TXMLOptionsStorage;