opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add preference option for adding timestamp to log messages. Helpful for debugging performance issues.

Browse Source
This commit is contained in:
Ansgar Becker
2022-10-20 18:47:10 +02:00
parent fb2668b48c
commit 59bb389650
5 changed files with 22 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/apphelpers.pas
View File

@ -192,7 +192,7 @@ type
asTabsToSpaces, asFilterPanel, asAllowMultipleInstances, asFindDialogSearchHistory, asGUIFontName, asGUIFontSize,
asTheme, asIconPack, asWebSearchBaseUrl,
asFindDialogReplaceHistory, asMaxQueryResults, asLogErrors,
asLogUserSQL, asLogSQL, asLogInfos, asLogDebug, asLogScript, asFieldColorNumeric,
asLogUserSQL, asLogSQL, asLogInfos, asLogDebug, asLogScript, asLogTimestamp, asFieldColorNumeric,
asFieldColorReal, asFieldColorText, asFieldColorBinary, asFieldColorDatetime, asFieldColorSpatial,
asFieldColorOther, asFieldEditorBinary, asFieldEditorDatetime, asFieldEditorDatetimePrefill, asFieldEditorEnum,
asFieldEditorSet, asFieldNullBackground, asRowBackgroundEven, asRowBackgroundOdd, asGroupTreeObjects, asDisplayObjectSizeColumn, asSQLfile,
@ -3753,6 +3753,7 @@ begin
InitSetting(asLogScript, 'LogScript', 0, False);
InitSetting(asLogInfos, 'LogInfos', 0, True);
InitSetting(asLogDebug, 'LogDebug', 0, False);
InitSetting(asLogTimestamp, 'LogTimestamp', 0, False);
InitSetting(asFieldColorNumeric, 'FieldColor_Numeric', $00FF0000);
InitSetting(asFieldColorReal, 'FieldColor_Real', $00FF0048);
InitSetting(asFieldColorText, 'FieldColor_Text', $00008000);

5
source/main.pas
View File

@ -5427,7 +5427,10 @@ var
begin
LogItem := TDBLogItem.Create;
LogItem.Category := Category;
LogItem.LineText := Msg;
if AppSettings.ReadBool(asLogTimestamp) then
LogItem.LineText := '['+FormatDateTime('hh:nn:ss.zzz', Now)+'] '+ Msg
else
LogItem.LineText := Msg;
LogItem.Connection := Connection;
PostponedLogItems.Add(LogItem);

11
source/preferences.dfm
View File

@ -13,7 +13,6 @@ object frmPreferences: TfrmPreferences
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
@ -21,7 +20,6 @@ object frmPreferences: TfrmPreferences
DesignSize = (
722
460)
PixelsPerInch = 96
TextHeight = 14
object pagecontrolMain: TPageControl
Left = 8
@ -551,6 +549,15 @@ object frmPreferences: TfrmPreferences
TabOrder = 9
OnClick = Modified
end
object chkLogTimestamp: TCheckBox
Left = 220
Top = 292
Width = 475
Height = 17
Caption = 'Add timestamp to all log messages'
TabOrder = 16
OnClick = Modified
end
end
object tabSQL: TTabSheet
Caption = 'SQL'

3
source/preferences.pas
View File

@ -179,6 +179,7 @@ type
editRealTrailingZeros: TEdit;
updownRealTrailingZeros: TUpDown;
lblRealTrailingZerosHint: TLabel;
chkLogTimestamp: TCheckBox;
procedure FormShow(Sender: TObject);
procedure Modified(Sender: TObject);
procedure Apply(Sender: TObject);
@ -311,6 +312,7 @@ begin
AppSettings.WriteBool(asQueryHistoryEnabled, chkQueryHistory.Checked);
AppSettings.WriteInt(asQueryHistoryKeepDays, updownQueryHistoryKeepDays.Position);
AppSettings.WriteBool(asLogHorizontalScrollbar, chkHorizontalScrollbar.Checked);
AppSettings.WriteBool(asLogTimestamp, chkLogTimestamp.Checked);
for i:=0 to SynSQLSynSQLSample.AttrCount - 1 do begin
Attri := SynSQLSynSQLSample.Attribute[i];
AppSettings.WriteInt(asHighlighterForeground, Attri.Foreground, Attri.Name);
@ -683,6 +685,7 @@ begin
chkQueryHistory.Checked := AppSettings.ReadBool(asQueryHistoryEnabled);
updownQueryHistoryKeepDays.Position := AppSettings.ReadInt(asQueryHistoryKeepDays);
chkHorizontalScrollbar.Checked := AppSettings.ReadBool(asLogHorizontalScrollbar);
chkLogTimestamp.Checked := AppSettings.ReadBool(asLogTimestamp);
// Default column width in grids:
updownMaxColWidth.Position := AppSettings.ReadInt(asMaxColWidth);