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

IDE: fixed compilation, bug #26268

Browse Source 
git-svn-id: trunk@45336 -
This commit is contained in:
mattias 2014-06-04 11:19:35 +00:00
parent 795c406e7d
commit f7c3dcd538
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/environmentopts.pp
View File

@ -1447,7 +1447,9 @@ begin
for mwc:=low(TMsgWndColor) to high(TMsgWndColor) do for mwc:=low(TMsgWndColor) to high(TMsgWndColor) do
fMsgViewColors[mwc]:=XMLConfig.GetValue( fMsgViewColors[mwc]:=XMLConfig.GetValue(
Path+'MsgView/Colors/'+MsgWndColorNames[mwc],MsgWndDefaultColors[mwc]); Path+'MsgView/Colors/'+MsgWndColorNames[mwc],MsgWndDefaultColors[mwc]);
{$IFDEF EnableNewExtTools}
MsgViewFilters.LoadFromXMLConfig(XMLConfig,'MsgView/Filters/'); MsgViewFilters.LoadFromXMLConfig(XMLConfig,'MsgView/Filters/');
{$ENDIF}
// glyphs // glyphs
FShowButtonGlyphs := TApplicationShowGlyphs(XMLConfig.GetValue(Path+'ShowButtonGlyphs/Value', FShowButtonGlyphs := TApplicationShowGlyphs(XMLConfig.GetValue(Path+'ShowButtonGlyphs/Value',
@ -1827,7 +1829,9 @@ begin
for mwc:=low(TMsgWndColor) to high(TMsgWndColor) do for mwc:=low(TMsgWndColor) to high(TMsgWndColor) do
XMLConfig.SetDeleteValue(Path+'MsgView/Colors/'+MsgWndColorNames[mwc], XMLConfig.SetDeleteValue(Path+'MsgView/Colors/'+MsgWndColorNames[mwc],
fMsgViewColors[mwc],MsgWndDefaultColors[mwc]); fMsgViewColors[mwc],MsgWndDefaultColors[mwc]);
{$IFDEF EnableNewExtTools}
MsgViewFilters.SaveToXMLConfig(XMLConfig,'MsgView/Filters/'); MsgViewFilters.SaveToXMLConfig(XMLConfig,'MsgView/Filters/');
{$ENDIF}
// glyphs // glyphs
XMLConfig.SetDeleteValue(Path+'ShowButtonGlyphs/Value', XMLConfig.SetDeleteValue(Path+'ShowButtonGlyphs/Value',

2
ide/ideoptiondefs.pas
View File

@ -617,6 +617,7 @@ begin
Result:=FXMLConfig.Filename; Result:=FXMLConfig.Filename;
end; end;
{$IFDEF EnableNewExtTools}
{ TLMVFilterMsgType } { TLMVFilterMsgType }
procedure TLMVFilterMsgType.SetMsgID(AValue: integer); procedure TLMVFilterMsgType.SetMsgID(AValue: integer);
@ -963,6 +964,7 @@ begin
E(IntToStr(i)); E(IntToStr(i));
end; end;
end; end;
{$ENDIF}
initialization initialization
DefaultConfigClass:=TXMLOptionsStorage; DefaultConfigClass:=TXMLOptionsStorage;