opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Preferences: Add checkbox for "Horizontal scrollbar" in Logging tab.

Browse Source
This commit is contained in:
Ansgar Becker
2016-06-02 18:39:22 +00:00
parent 881f33a014
commit 05ca87f3cd
2 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/options.dfm
View File

@@ -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

5
source/options.pas
View File

@@ -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);