paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-16 03:42:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

EditorOptions: call BeginUpdate, before setting colors

Browse Source 
git-svn-id: trunk@25755 -
This commit is contained in:
martin 2010-05-30 00:42:23 +00:00
parent 63fe4cd1db
commit 6c496f0876
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/editoroptions.pp
View File

@ -4008,11 +4008,13 @@ begin
Src := Self; Src := Self;
if IsUsingSchemeGlobals then if IsUsingSchemeGlobals then
Src := GetSchemeGlobal; Src := GetSchemeGlobal;
aDest.BeginUpdate;
aDest.Foreground := Src.Foreground; aDest.Foreground := Src.Foreground;
aDest.Background := Src.Background; aDest.Background := Src.Background;
aDest.FrameColor := Src.FrameColor; aDest.FrameColor := Src.FrameColor;
aDest.Style := Src.Style; aDest.Style := Src.Style;
aDest.StyleMask := Src.StyleMask; aDest.StyleMask := Src.StyleMask;
aDest.EndUpdate;
end; end;
procedure TColorSchemeAttribute.Assign(Src: TPersistent); procedure TColorSchemeAttribute.Assign(Src: TPersistent);