From 6b5c26ba4367106ced2aa5bc2cad465c04968ea4 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 20 Aug 2016 12:44:51 +0200
Subject: [PATCH] fixup for flat look, sync persistent page options with val
 set from appli opts

---
 src/ce_editor.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index 9a124b4e..6de9a001 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -355,9 +355,15 @@ procedure TCEEditorWidget.setToolBarFlat(value: boolean);
 begin
   inherited setToolBarFlat(value);
   if value then
+  begin
+    fOptions.pageOptions:= fOptions.pageOptions + [poFlatButtons];
     pageControl.options := pageControl.options + [poFlatButtons]
+  end
   else
+  begin
+    fOptions.pageOptions:= fOptions.pageOptions - [poFlatButtons];
     pageControl.options := pageControl.options - [poFlatButtons];
+  end;
 end;
 {$ENDREGION}