Merged revision(s) 43671 #79d881edce, 43675-43676 #14406dfe3d-#14406dfe3d from trunk:

SqlDb: Improve SQL editor. Patch by Reinier Olislagers. ........ Components, SQLdb: updated Russian translation ........ Components, SQLdb: improved localization, updated Russian translation ........ git-svn-id: branches/fixes_1_2@43677 -
2025-09-24 22:19:22 +02:00 · 2014-01-08 16:39:01 +00:00 · 2014-01-08 16:39:01 +00:00 · ce75eb7d15
commit ce75eb7d15
parent 434ed26712
12 changed files with 273 additions and 67 deletions
--- a/components/sqldb/languages/sqlstringspropertyeditordlg.cs.po
+++ b/components/sqldb/languages/sqlstringspropertyeditordlg.cs.po
@ -10,6 +10,10 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "X-Generator: Poedit 1.5.4\n"

+#: sqlstringspropertyeditordlg.sloadsqlcodehint
+msgid "Load SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.smetacolumns
 msgid "Columns"
 msgstr "Sloupce"
@ -35,24 +39,36 @@ msgid "Tables"
 msgstr "Tabulky"

 #: sqlstringspropertyeditordlg.sqlsyntaxok
-msgid "No syntax errors in SQL statement."
+msgid "No syntax errors in SQL statement found."
+msgstr ""
+
+#: sqlstringspropertyeditordlg.squickcheckofsqlsyntaxhint
+msgid "Quick check of SQL syntax"
 msgstr ""

 #: sqlstringspropertyeditordlg.sresulttabcaption
 msgid "Results"
 msgstr "Výsledky"

+#: sqlstringspropertyeditordlg.srunsqlcodehint
+msgid "Run SQL code"
+msgstr ""
+
+#: sqlstringspropertyeditordlg.ssavesqlcodehint
+msgid "Save SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.ssqlerror
-msgid "SQL Error"
+msgid "Probable SQL error"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlok
-msgid "SQL OK"
+msgid "Quick SQL check OK"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlsyntaxerror
 msgid ""
-"Syntax error in SQL statement:\n"
+"Probable syntax error in SQL statement:\n"
 "%s\n"
 msgstr ""

--- a/components/sqldb/languages/sqlstringspropertyeditordlg.de.po
+++ b/components/sqldb/languages/sqlstringspropertyeditordlg.de.po
@ -9,6 +9,10 @@ msgstr ""
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"

+#: sqlstringspropertyeditordlg.sloadsqlcodehint
+msgid "Load SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.smetacolumns
 msgid "Columns"
 msgstr "Spalten"
@ -34,24 +38,36 @@ msgid "Tables"
 msgstr "Tabellen"

 #: sqlstringspropertyeditordlg.sqlsyntaxok
-msgid "No syntax errors in SQL statement."
+msgid "No syntax errors in SQL statement found."
+msgstr ""
+
+#: sqlstringspropertyeditordlg.squickcheckofsqlsyntaxhint
+msgid "Quick check of SQL syntax"
 msgstr ""

 #: sqlstringspropertyeditordlg.sresulttabcaption
 msgid "Results"
 msgstr "Ergebnisse"

+#: sqlstringspropertyeditordlg.srunsqlcodehint
+msgid "Run SQL code"
+msgstr ""
+
+#: sqlstringspropertyeditordlg.ssavesqlcodehint
+msgid "Save SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.ssqlerror
-msgid "SQL Error"
+msgid "Probable SQL error"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlok
-msgid "SQL OK"
+msgid "Quick SQL check OK"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlsyntaxerror
 msgid ""
-"Syntax error in SQL statement:\n"
+"Probable syntax error in SQL statement:\n"
 "%s\n"
 msgstr ""

--- a/components/sqldb/languages/sqlstringspropertyeditordlg.es.po
+++ b/components/sqldb/languages/sqlstringspropertyeditordlg.es.po
@ -9,6 +9,10 @@ msgstr ""
 "POT-Creation-Date: \n"
 "MIME-Version: 1.0\n"

+#: sqlstringspropertyeditordlg.sloadsqlcodehint
+msgid "Load SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.smetacolumns
 msgid "Columns"
 msgstr "Columnas"
@ -34,24 +38,36 @@ msgid "Tables"
 msgstr "Tablas"

 #: sqlstringspropertyeditordlg.sqlsyntaxok
-msgid "No syntax errors in SQL statement."
+msgid "No syntax errors in SQL statement found."
+msgstr ""
+
+#: sqlstringspropertyeditordlg.squickcheckofsqlsyntaxhint
+msgid "Quick check of SQL syntax"
 msgstr ""

 #: sqlstringspropertyeditordlg.sresulttabcaption
 msgid "Results"
 msgstr "Resultados"

+#: sqlstringspropertyeditordlg.srunsqlcodehint
+msgid "Run SQL code"
+msgstr ""
+
+#: sqlstringspropertyeditordlg.ssavesqlcodehint
+msgid "Save SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.ssqlerror
-msgid "SQL Error"
+msgid "Probable SQL error"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlok
-msgid "SQL OK"
+msgid "Quick SQL check OK"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlsyntaxerror
 msgid ""
-"Syntax error in SQL statement:\n"
+"Probable syntax error in SQL statement:\n"
 "%s\n"
 msgstr ""

--- a/components/sqldb/languages/sqlstringspropertyeditordlg.it.po
+++ b/components/sqldb/languages/sqlstringspropertyeditordlg.it.po
@ -10,6 +10,10 @@ msgstr ""
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 "X-Generator: Virtaal 0.5.1\n"

+#: sqlstringspropertyeditordlg.sloadsqlcodehint
+msgid "Load SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.smetacolumns
 msgid "Columns"
 msgstr ""
@ -35,24 +39,36 @@ msgid "Tables"
 msgstr ""

 #: sqlstringspropertyeditordlg.sqlsyntaxok
-msgid "No syntax errors in SQL statement."
+msgid "No syntax errors in SQL statement found."
+msgstr ""
+
+#: sqlstringspropertyeditordlg.squickcheckofsqlsyntaxhint
+msgid "Quick check of SQL syntax"
 msgstr ""

 #: sqlstringspropertyeditordlg.sresulttabcaption
 msgid "Results"
 msgstr "Risultati"

+#: sqlstringspropertyeditordlg.srunsqlcodehint
+msgid "Run SQL code"
+msgstr ""
+
+#: sqlstringspropertyeditordlg.ssavesqlcodehint
+msgid "Save SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.ssqlerror
-msgid "SQL Error"
+msgid "Probable SQL error"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlok
-msgid "SQL OK"
+msgid "Quick SQL check OK"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlsyntaxerror
 msgid ""
-"Syntax error in SQL statement:\n"
+"Probable syntax error in SQL statement:\n"
 "%s\n"
 msgstr ""

--- a/components/sqldb/languages/sqlstringspropertyeditordlg.lt.po
+++ b/components/sqldb/languages/sqlstringspropertyeditordlg.lt.po
@ -11,6 +11,10 @@ msgstr ""
 "Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && (n%100<10 || n%100>=20) ? 1 : 2);\n"
 "Language: lt\n"

+#: sqlstringspropertyeditordlg.sloadsqlcodehint
+msgid "Load SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.smetacolumns
 msgid "Columns"
 msgstr "Stulpeliai"
@ -36,24 +40,36 @@ msgid "Tables"
 msgstr "Lentelės"

 #: sqlstringspropertyeditordlg.sqlsyntaxok
-msgid "No syntax errors in SQL statement."
+msgid "No syntax errors in SQL statement found."
+msgstr ""
+
+#: sqlstringspropertyeditordlg.squickcheckofsqlsyntaxhint
+msgid "Quick check of SQL syntax"
 msgstr ""

 #: sqlstringspropertyeditordlg.sresulttabcaption
 msgid "Results"
 msgstr "Rezultatai"

+#: sqlstringspropertyeditordlg.srunsqlcodehint
+msgid "Run SQL code"
+msgstr ""
+
+#: sqlstringspropertyeditordlg.ssavesqlcodehint
+msgid "Save SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.ssqlerror
-msgid "SQL Error"
+msgid "Probable SQL error"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlok
-msgid "SQL OK"
+msgid "Quick SQL check OK"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlsyntaxerror
 msgid ""
-"Syntax error in SQL statement:\n"
+"Probable syntax error in SQL statement:\n"
 "%s\n"
 msgstr ""

--- a/components/sqldb/languages/sqlstringspropertyeditordlg.po
+++ b/components/sqldb/languages/sqlstringspropertyeditordlg.po
@ -1,6 +1,10 @@
 msgid ""
 msgstr "Content-Type: text/plain; charset=UTF-8"

+#: sqlstringspropertyeditordlg.sloadsqlcodehint
+msgid "Load SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.smetacolumns
 msgid "Columns"
 msgstr ""
@ -26,24 +30,36 @@ msgid "Tables"
 msgstr ""

 #: sqlstringspropertyeditordlg.sqlsyntaxok
-msgid "No syntax errors in SQL statement."
+msgid "No syntax errors in SQL statement found."
+msgstr ""
+
+#: sqlstringspropertyeditordlg.squickcheckofsqlsyntaxhint
+msgid "Quick check of SQL syntax"
 msgstr ""

 #: sqlstringspropertyeditordlg.sresulttabcaption
 msgid "Results"
 msgstr ""

+#: sqlstringspropertyeditordlg.srunsqlcodehint
+msgid "Run SQL code"
+msgstr ""
+
+#: sqlstringspropertyeditordlg.ssavesqlcodehint
+msgid "Save SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.ssqlerror
-msgid "SQL Error"
+msgid "Probable SQL error"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlok
-msgid "SQL OK"
+msgid "Quick SQL check OK"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlsyntaxerror
 msgid ""
-"Syntax error in SQL statement:\n"
+"Probable syntax error in SQL statement:\n"
 "%s\n"
 msgstr ""

--- a/components/sqldb/languages/sqlstringspropertyeditordlg.pt_BR.po
+++ b/components/sqldb/languages/sqlstringspropertyeditordlg.pt_BR.po
@ -9,6 +9,10 @@ msgstr ""
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"

+#: sqlstringspropertyeditordlg.sloadsqlcodehint
+msgid "Load SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.smetacolumns
 msgid "Columns"
 msgstr "Colunas"
@ -34,24 +38,36 @@ msgid "Tables"
 msgstr "Tabelas"

 #: sqlstringspropertyeditordlg.sqlsyntaxok
-msgid "No syntax errors in SQL statement."
+msgid "No syntax errors in SQL statement found."
+msgstr ""
+
+#: sqlstringspropertyeditordlg.squickcheckofsqlsyntaxhint
+msgid "Quick check of SQL syntax"
 msgstr ""

 #: sqlstringspropertyeditordlg.sresulttabcaption
 msgid "Results"
 msgstr "Resultados"

+#: sqlstringspropertyeditordlg.srunsqlcodehint
+msgid "Run SQL code"
+msgstr ""
+
+#: sqlstringspropertyeditordlg.ssavesqlcodehint
+msgid "Save SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.ssqlerror
-msgid "SQL Error"
+msgid "Probable SQL error"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlok
-msgid "SQL OK"
+msgid "Quick SQL check OK"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlsyntaxerror
 msgid ""
-"Syntax error in SQL statement:\n"
+"Probable syntax error in SQL statement:\n"
 "%s\n"
 msgstr ""

--- a/components/sqldb/languages/sqlstringspropertyeditordlg.ru.po
+++ b/components/sqldb/languages/sqlstringspropertyeditordlg.ru.po
@ -9,6 +9,10 @@ msgstr ""
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"

+#: sqlstringspropertyeditordlg.sloadsqlcodehint
+msgid "Load SQL code ..."
+msgstr "Загрузить код SQL ..."
+
 #: sqlstringspropertyeditordlg.smetacolumns
 msgid "Columns"
 msgstr "Столбцы"
@ -34,27 +38,42 @@ msgid "Tables"
 msgstr "Таблицы"

 #: sqlstringspropertyeditordlg.sqlsyntaxok
-msgid "No syntax errors in SQL statement."
-msgstr "Выражение SQL не содержит синтаксических ошибок."
+#| msgid "No syntax errors in SQL statement."
+msgid "No syntax errors in SQL statement found."
+msgstr "В выражении SQL синтаксических ошибок не найдено."
+
+#: sqlstringspropertyeditordlg.squickcheckofsqlsyntaxhint
+msgid "Quick check of SQL syntax"
+msgstr "Выполнить быструю проверку синтаксиса кода SQL"

 #: sqlstringspropertyeditordlg.sresulttabcaption
 msgid "Results"
 msgstr "Результаты"

+#: sqlstringspropertyeditordlg.srunsqlcodehint
+msgid "Run SQL code"
+msgstr "Запустить код SQL"
+
+#: sqlstringspropertyeditordlg.ssavesqlcodehint
+msgid "Save SQL code ..."
+msgstr "Сохранить код SQL ..."
+
 #: sqlstringspropertyeditordlg.ssqlerror
-msgid "SQL Error"
-msgstr "Код SQL некорректен"
+#| msgid "SQL Error"
+msgid "Probable SQL error"
+msgstr "Возможная ошибка SQL"

 #: sqlstringspropertyeditordlg.ssqlok
-msgid "SQL OK"
-msgstr "Код SQL корректен"
+#| msgid "SQL OK"
+msgid "Quick SQL check OK"
+msgstr "Быстрая проверка кода SQL прошла успешно"

 #: sqlstringspropertyeditordlg.ssqlsyntaxerror
 msgid ""
-"Syntax error in SQL statement:\n"
+"Probable syntax error in SQL statement:\n"
 "%s\n"
 msgstr ""
-"Синтаксическая ошибка в выражении SQL:\n"
+"Возможно, имеется синтаксическая ошибка в выражении SQL:\n"
 "%s\n"

 #: sqlstringspropertyeditordlg.ssqltabcaption
--- a/components/sqldb/languages/sqlstringspropertyeditordlg.uk.po
+++ b/components/sqldb/languages/sqlstringspropertyeditordlg.uk.po
@ -9,6 +9,10 @@ msgstr ""
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"

+#: sqlstringspropertyeditordlg.sloadsqlcodehint
+msgid "Load SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.smetacolumns
 msgid "Columns"
 msgstr ""
@ -34,24 +38,36 @@ msgid "Tables"
 msgstr ""

 #: sqlstringspropertyeditordlg.sqlsyntaxok
-msgid "No syntax errors in SQL statement."
+msgid "No syntax errors in SQL statement found."
+msgstr ""
+
+#: sqlstringspropertyeditordlg.squickcheckofsqlsyntaxhint
+msgid "Quick check of SQL syntax"
 msgstr ""

 #: sqlstringspropertyeditordlg.sresulttabcaption
 msgid "Results"
 msgstr "Результати"

+#: sqlstringspropertyeditordlg.srunsqlcodehint
+msgid "Run SQL code"
+msgstr ""
+
+#: sqlstringspropertyeditordlg.ssavesqlcodehint
+msgid "Save SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.ssqlerror
-msgid "SQL Error"
+msgid "Probable SQL error"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlok
-msgid "SQL OK"
+msgid "Quick SQL check OK"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlsyntaxerror
 msgid ""
-"Syntax error in SQL statement:\n"
+"Probable syntax error in SQL statement:\n"
 "%s\n"
 msgstr ""

--- a/components/sqldb/languages/sqlstringspropertyeditordlg.zh_CN.po
+++ b/components/sqldb/languages/sqlstringspropertyeditordlg.zh_CN.po
@ -12,6 +12,10 @@ msgstr ""
 "X-Poedit-Country: CHINA\n"
 "X-Poedit-SourceCharset: utf-8\n"

+#: sqlstringspropertyeditordlg.sloadsqlcodehint
+msgid "Load SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.smetacolumns
 msgid "Columns"
 msgstr ""
@ -37,24 +41,36 @@ msgid "Tables"
 msgstr ""

 #: sqlstringspropertyeditordlg.sqlsyntaxok
-msgid "No syntax errors in SQL statement."
+msgid "No syntax errors in SQL statement found."
+msgstr ""
+
+#: sqlstringspropertyeditordlg.squickcheckofsqlsyntaxhint
+msgid "Quick check of SQL syntax"
 msgstr ""

 #: sqlstringspropertyeditordlg.sresulttabcaption
 msgid "Results"
 msgstr "返回值"

+#: sqlstringspropertyeditordlg.srunsqlcodehint
+msgid "Run SQL code"
+msgstr ""
+
+#: sqlstringspropertyeditordlg.ssavesqlcodehint
+msgid "Save SQL code ..."
+msgstr ""
+
 #: sqlstringspropertyeditordlg.ssqlerror
-msgid "SQL Error"
+msgid "Probable SQL error"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlok
-msgid "SQL OK"
+msgid "Quick SQL check OK"
 msgstr ""

 #: sqlstringspropertyeditordlg.ssqlsyntaxerror
 msgid ""
-"Syntax error in SQL statement:\n"
+"Probable syntax error in SQL statement:\n"
 "%s\n"
 msgstr ""

--- a/components/sqldb/sqlstringspropertyeditordlg.lfm
+++ b/components/sqldb/sqlstringspropertyeditordlg.lfm
@ -9,7 +9,7 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
  ClientWidth = 494
  OnShow = FormShow
  Position = poScreenCenter
-  LCLVersion = '1.1'
+  LCLVersion = '1.3'
  object ButtonsPanel: TButtonPanel
    Left = 6
    Height = 34
@ -40,17 +40,23 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
    TabOrder = 1
    object OpenToolButton: TToolButton
      Left = 1
+      Hint = 'Load SQL code...'
      Top = 2
      Caption = 'OpenToolButton'
      ImageIndex = 0
      OnClick = OpenToolButtonClick
+      ParentShowHint = False
+      ShowHint = True
    end
    object SaveToolButton: TToolButton
      Left = 29
+      Hint = 'Save SQL code...'
      Top = 2
      Caption = 'SaveToolButton'
      ImageIndex = 1
      OnClick = SaveToolButtonClick
+      ParentShowHint = False
+      ShowHint = True
    end
    object DividerToolButton: TToolButton
      Left = 57
@ -61,17 +67,23 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
    end
    object ExecuteToolButton: TToolButton
      Left = 62
+      Hint = 'Run SQL code'
      Top = 2
      Caption = 'ExecuteToolButton'
      ImageIndex = 2
      OnClick = ExecuteToolButtonClick
+      ParentShowHint = False
+      ShowHint = True
    end
    object TBCheck: TToolButton
      Left = 90
+      Hint = 'Quick check of SQL syntax'
      Top = 2
      Caption = 'TBCheck'
      ImageIndex = 3
      OnClick = TBCheckClick
+      ParentShowHint = False
+      ShowHint = True
    end
  end
  object PageControl: TPageControl
@ -514,17 +526,31 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
            Command = emcStartDragMove
          end>
        VisibleSpecialChars = [vscSpace, vscTabAtLast]
+        SelectedColor.FrameEdges = sfeAround
+        SelectedColor.BackPriority = 50
+        SelectedColor.ForePriority = 50
+        SelectedColor.FramePriority = 50
+        SelectedColor.BoldPriority = 50
+        SelectedColor.ItalicPriority = 50
+        SelectedColor.UnderlinePriority = 50
+        SelectedColor.StrikeOutPriority = 50
+        IncrementColor.FrameEdges = sfeAround
+        HighlightAllColor.FrameEdges = sfeAround
        BracketHighlightStyle = sbhsBoth
        BracketMatchColor.Background = clNone
        BracketMatchColor.Foreground = clNone
+        BracketMatchColor.FrameEdges = sfeAround
        BracketMatchColor.Style = [fsBold]
        FoldedCodeColor.Background = clNone
        FoldedCodeColor.Foreground = clGray
        FoldedCodeColor.FrameColor = clGray
+        FoldedCodeColor.FrameEdges = sfeAround
        MouseLinkColor.Background = clNone
        MouseLinkColor.Foreground = clBlue
+        MouseLinkColor.FrameEdges = sfeAround
        LineHighlightColor.Background = clNone
        LineHighlightColor.Foreground = clNone
+        LineHighlightColor.FrameEdges = sfeAround
        inline SynGutterPartList1: TSynGutterPartList
          object SynGutterMarks1: TSynGutterMarks
            Width = 24
@ -535,6 +561,7 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
            MouseActions = <>
            MarkupInfo.Background = clBtnFace
            MarkupInfo.Foreground = clNone
+            MarkupInfo.FrameEdges = sfeAround
            DigitCount = 2
            ShowOnlyLineNumbersMultiplesOf = 1
            ZeroStart = False
@ -549,6 +576,9 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
          object SynGutterSeparator1: TSynGutterSeparator
            Width = 2
            MouseActions = <>
+            MarkupInfo.Background = clWhite
+            MarkupInfo.Foreground = clGray
+            MarkupInfo.FrameEdges = sfeAround
          end
          object SynGutterCodeFolding1: TSynGutterCodeFolding
            MouseActions = <            
@ -579,6 +609,7 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
              end>
            MarkupInfo.Background = clNone
            MarkupInfo.Foreground = clGray
+            MarkupInfo.FrameEdges = sfeAround
            MouseActionsExpanded = <            
              item
                ClickCount = ccAny
@ -690,33 +721,33 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
    TableNameAttri.FrameEdges = sfeAround
    VariableAttri.FrameEdges = sfeAround
    SQLDialect = sqlInterbase6
-    left = 120
-    top = 156
+    left = 88
+    top = 136
  end
  object OpenDialog: TOpenDialog
    Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail]
-    left = 156
-    top = 157
+    left = 152
+    top = 152
  end
  object SaveDialog: TSaveDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing, ofViewDetail]
-    left = 188
-    top = 157
+    left = 208
+    top = 136
  end
  object SQLQuery: TSQLQuery
    FieldDefs = <>
    Params = <>
-    left = 220
-    top = 157
+    left = 264
+    top = 152
  end
-  object SQLDataSource: TDatasource
+  object SQLDataSource: TDataSource
    DataSet = SQLQuery
-    left = 252
-    top = 157
+    left = 336
+    top = 136
  end
  object ImageList: TImageList
-    left = 284
-    top = 156
+    left = 408
+    top = 152
    Bitmap = {
      4C69050000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB92FFD1A06CF5D09E6DF6CC96
@ -883,8 +914,8 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
  end
  object PMSQL: TPopupMenu
    Images = ImageList
-    left = 155
-    top = 101
+    left = 152
+    top = 64
    object MICheck: TMenuItem
      Caption = 'Check syntax'
      Bitmap.Data = {
@ -982,12 +1013,12 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
  object SQLMeta: TSQLQuery
    FieldDefs = <>
    Params = <>
-    left = 220
+    left = 120
    top = 208
  end
-  object SQLDataSource1: TDatasource
+  object SQLDataSource1: TDataSource
    DataSet = SQLMeta
-    left = 256
+    left = 208
    top = 208
  end
  object PMMeta: TPopupMenu
--- a/components/sqldb/sqlstringspropertyeditordlg.pas
+++ b/components/sqldb/sqlstringspropertyeditordlg.pas
@ -94,10 +94,18 @@ resourcestring
  SMetaPleaseSpecifyATableInTheObjectField = 'Please specify a table in the '
    +'object field.';
  SMetaSysTables    = 'SysTables';
-  SSQLOK            = 'SQL OK';
-  SQLSyntaxOK       = 'No syntax errors in SQL statement.';
-  SSQLError         = 'SQL Error';
-  SSQLSyntaxError   = 'Syntax error in SQL statement:'+slineBreak+'%s';
+
+  SLoadSQLCodeHint = 'Load SQL code ...';
+  SSaveSQLCodeHint = 'Save SQL code ...';
+  SRunSQLCodeHint = 'Run SQL code';
+  SQuickCheckOfSQLSyntaxHint = 'Quick check of SQL syntax';
+
+  // SQL Parser results:
+  // Note: sql parser is not quite exact, so indicate it's not completely sure
+  SSQLOK            = 'Quick SQL check OK';
+  SQLSyntaxOK       = 'No syntax errors in SQL statement found.';
+  SSQLError         = 'Probable SQL error';
+  SSQLSyntaxError   = 'Probable syntax error in SQL statement:'+slineBreak+'%s';

 { TSQLStringsPropertyEditorDlg }

@ -110,6 +118,10 @@ begin
  EditorTabSheet.Caption := SSQLTabCaption;
  ResultTabSheet.Caption := SResultTabCaption;
  MetaTabSheet.Caption := SMetaTabCaption;
+  OpenToolButton.Hint := SLoadSQLCodeHint;
+  SaveToolButton.Hint := SSaveSQLCodeHint;
+  ExecuteToolButton.Hint := SRunSQLCodeHint;
+  TBCheck.Hint := SQuickCheckOfSQLSyntaxHint;
  CbxMetaData.Items.Add(SMetaTables);
  CbxMetaData.Items.Add(SMetaSysTables);
  CbxMetaData.Items.Add(SMetaColumns);