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

Fix minor bug: LogSQL always containted one more line than the value in the preferences screen said. Fix that by moving the code for deleting the first line to after adding the new one.

Browse Source
This commit is contained in:
Ansgar Becker
2007-10-07 20:18:43 +00:00
parent 970272ad65
commit fce4a738f8
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
source/childwin.pas
View File

@ -1149,16 +1149,11 @@ begin
end; end;
{**
Add a SQL-command or comment to SynMemoSQLLog
}
procedure TMDIChild.LogSQL(msg: String = ''; comment: Boolean = true); procedure TMDIChild.LogSQL(msg: String = ''; comment: Boolean = true);
begin begin
// Add a sql-command or info-line to history-memo
while ( SynMemoSQLLog.Lines.Count > prefLogsqlnum ) do
begin
SynMemoSQLLog.Lines.Delete(0);
// Increase first displayed number in gutter so it doesn't lie about the log entries
SynMemoSQLLog.Gutter.LineNumberStart := SynMemoSQLLog.Gutter.LineNumberStart + 1;
end;
// Shorten very long messages // Shorten very long messages
if ( Length( msg ) > SQLLOG_CHAR_LIMIT ) then if ( Length( msg ) > SQLLOG_CHAR_LIMIT ) then
begin begin
@ -1182,6 +1177,14 @@ begin
SynMemoSQLLog.GotoLineAndCenter( SynMemoSQLLog.Lines.Count ); SynMemoSQLLog.GotoLineAndCenter( SynMemoSQLLog.Lines.Count );
SynMemoSQLLog.Repaint(); SynMemoSQLLog.Repaint();
// Delete first line(s)
while SynMemoSQLLog.Lines.Count > prefLogsqlnum do
begin
SynMemoSQLLog.Lines.Delete(0);
// Increase first displayed number in gutter so it doesn't lie about the log entries
SynMemoSQLLog.Gutter.LineNumberStart := SynMemoSQLLog.Gutter.LineNumberStart + 1;
end;
// Log to file? // Log to file?
if prefLogToFile then if prefLogToFile then
try try