From 09e6942f7b7d17b66066e74d823ae548b0b5f15b Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Sun, 26 Nov 2017 10:32:03 +0100 Subject: [PATCH] SynEdit's SQL highlighter provides a sample source text. Display that text in the preferences editor panel for SQL colors. --- source/options.pas | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/source/options.pas b/source/options.pas index a2073094..d53f3a9d 100644 --- a/source/options.pas +++ b/source/options.pas @@ -424,14 +424,8 @@ begin // SQL EnumFontFamilies(Canvas.Handle, nil, @EnumFixedProc, LPARAM(Pointer(comboSQLFontName.Items))); comboSQLFontName.Sorted := True; - SynMemoSQLSample.Text := 'SELECT DATE_SUB(NOW(), INTERVAL 1 DAY),' + CRLF + - #9'''String literal'' AS lit' + CRLF + - 'FROM tableA AS ta -- A comment' + CRLF + - 'WHERE `columnA` IS NULL; # More comment' + CRLF + - CRLF + - 'CREATE TABLE /*!32312 IF NOT EXISTS*/ tableB' + CRLF + - #9'(id INT, name VARCHAR(30) DEFAULT "standard")'; - SynSQLSynSQLSample.TableNames.CommaText := 'tableA,tableB'; + SynMemoSQLSample.Text := SynMemoSQLSample.Highlighter.SampleSource; + SynSQLSynSQLSample.TableNames.CommaText := 't,sample'; for i:=0 to SynSQLSynSQLSample.AttrCount - 1 do begin SynSQLSynSQLSample.Attribute[i].AssignColorAndStyle(MainForm.SynSQLSyn1.Attribute[i]); comboSQLColElement.Items.Add(SynSQLSynSQLSample.Attribute[i].FriendlyName);