Fix adjusting linenumbers in SQL log when user changed the max linecount in preferences.

This commit is contained in:
Ansgar Becker
2007-10-10 18:17:35 +00:00
parent 07564f217e
commit b7b652da67
2 changed files with 23 additions and 9 deletions

View File

@ -205,8 +205,6 @@ begin
cwin.SynSQLSyn1.CommentAttri.Foreground := self.pnlComments.Color;
cwin.SynSQLSyn1.TablenameAttri.Foreground := self.pnlTablenames.Color;
cwin.SynMemoQuery.ActiveLineColor := self.pnlActiveLine.Color;
while cwin.SynMemoSQLLog.Lines.Count > updownLogSQLNum.Position do
cwin.SynMemoSQLLog.Lines.Delete(0);
cwin.gridData.Font := self.Panel8.font;
cwin.gridQuery.Font := self.Panel8.font;
cwin.DBMemo1.Font := self.Panel8.font;
@ -216,6 +214,7 @@ begin
cwin.gridQuery.Options := cwin.gridQuery.Options + [dgAlwaysShowEditor];
cwin.prefRememberFilters := chkRememberFilters.Checked;
cwin.prefLogsqlnum := self.updownLogSQLNum.Position;
cwin.TrimSQLLog;
if chkLogToFile.Checked then
cwin.ActivateFileLogging
else if cwin.prefLogToFile then