mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 10:59:19 +02:00
parent
795c406e7d
commit
f7c3dcd538
@ -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',
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user