From 05ca87f3cdcdd122d2f4aa71ddb78046aac6ce48 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 2 Jun 2016 18:39:22 +0000
Subject: [PATCH] Preferences: Add checkbox for "Horizontal scrollbar" in
 Logging tab.

---
 source/options.dfm | 10 ++++++++++
 source/options.pas |  5 +++++
 2 files changed, 15 insertions(+)

diff --git a/source/options.dfm b/source/options.dfm
index 5b3f403a..cc488f1a 100644
--- a/source/options.dfm
+++ b/source/options.dfm
@@ -422,6 +422,16 @@ object optionsform: Toptionsform
         Height = 17
         Caption = 'Enable query history'
         TabOrder = 11
+        OnClick = Modified
+      end
+      object chkHorizontalScrollbar: TCheckBox
+        Left = 8
+        Top = 223
+        Width = 434
+        Height = 17
+        Caption = 'Horizontal scrollbar'
+        TabOrder = 12
+        OnClick = Modified
       end
     end
     object tabSQL: TTabSheet
diff --git a/source/options.pas b/source/options.pas
index a6094e08..2d952df8 100644
--- a/source/options.pas
+++ b/source/options.pas
@@ -135,6 +135,7 @@ type
     editGUIFontSize: TEdit;
     updownGUIFontSize: TUpDown;
     lblGUIFontSize: TLabel;
+    chkHorizontalScrollbar: TCheckBox;
     procedure FormShow(Sender: TObject);
     procedure Modified(Sender: TObject);
     procedure Apply(Sender: TObject);
@@ -247,6 +248,7 @@ begin
   AppSettings.WriteBool(asLogInfos, chkLogEventInfo.Checked);
   AppSettings.WriteBool(asLogDebug, chkLogEventDebug.Checked);
   AppSettings.WriteBool(asQueryHistoryEnabled, chkQueryHistory.Checked);
+  AppSettings.WriteBool(asLogHorizontalScrollbar, chkHorizontalScrollbar.Checked);
   for i:=0 to SynSQLSynSQLSample.AttrCount - 1 do begin
     Attri := SynSQLSynSQLSample.Attribute[i];
     AppSettings.WriteInt(asHighlighterForeground, Attri.Foreground, Attri.Name);
@@ -349,6 +351,8 @@ begin
   MainForm.ApplyFontToGrids;
 
   Mainform.LogToFile := chkLogToFile.Checked;
+  MainForm.actLogHorizontalScrollbar.Checked := chkHorizontalScrollbar.Checked;
+  MainForm.actLogHorizontalScrollbar.OnExecute(MainForm.actLogHorizontalScrollbar);
   DatatypeCategories[dtcInteger].Color := FGridTextColors[dtcInteger];
   DatatypeCategories[dtcReal].Color := FGridTextColors[dtcReal];
   DatatypeCategories[dtcText].Color := FGridTextColors[dtcText];
@@ -484,6 +488,7 @@ begin
   chkLogEventInfo.Checked := AppSettings.ReadBool(asLogInfos);
   chkLogEventDebug.Checked := AppSettings.ReadBool(asLogDebug);
   chkQueryHistory.Checked := AppSettings.ReadBool(asQueryHistoryEnabled);
+  chkHorizontalScrollbar.Checked := AppSettings.ReadBool(asLogHorizontalScrollbar);
 
   // Default column width in grids:
   updownMaxColWidth.Position := AppSettings.ReadInt(asMaxColWidth);