ソースを参照

Adding navigator to Query window result set
modified: TurboBird.ico
modified: TurboBird.lpi
modified: TurboBird.lpr
modified: TurboBird.res
modified: querywindow.lfm
modified: querywindow.lrs
modified: querywindow.pas

motaz 12 年 前
コミット
df6fcf7b25
7 ファイル変更180 行追加152 行削除
  1. BIN
      TurboBird.ico
  2. 64 64
      TurboBird.lpi
  3. 2 2
      TurboBird.lpr
  4. BIN
      TurboBird.res
  5. 7 1
      querywindow.lfm
  6. 83 80
      querywindow.lrs
  7. 24 5
      querywindow.pas

BIN
TurboBird.ico


+ 64 - 64
TurboBird.lpi

@@ -17,8 +17,8 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="9"/>
-      <RevisionNr Value="6"/>
-      <BuildNr Value="1075"/>
+      <RevisionNr Value="5"/>
+      <BuildNr Value="1076"/>
       <StringTable ProductVersion="0.9"/>
     </VersionInfo>
     <BuildModes Count="1">
@@ -62,8 +62,8 @@
         <UnitName Value="TurboBird"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="31"/>
-        <CursorPos X="3" Y="50"/>
+        <TopLine Value="1"/>
+        <CursorPos X="27" Y="10"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -118,10 +118,11 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="QueryWindow"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="188"/>
-        <CursorPos X="3" Y="190"/>
+        <TopLine Value="374"/>
+        <CursorPos X="20" Y="377"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -631,7 +632,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="13"/>
         <CursorPos X="22" Y="54"/>
-        <UsageCount Value="199"/>
+        <UsageCount Value="200"/>
       </Unit60>
       <Unit61>
         <Filename Value="unitfirebirdservices.pas"/>
@@ -697,7 +698,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <CursorPos X="71" Y="7"/>
-        <UsageCount Value="169"/>
+        <UsageCount Value="170"/>
       </Unit68>
       <Unit69>
         <Filename Value="changepass.pas"/>
@@ -710,7 +711,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <CursorPos X="88" Y="14"/>
-        <UsageCount Value="168"/>
+        <UsageCount Value="169"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit69>
@@ -725,7 +726,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="270"/>
         <CursorPos X="33" Y="284"/>
-        <UsageCount Value="166"/>
+        <UsageCount Value="167"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit70>
@@ -740,7 +741,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="4"/>
         <CursorPos X="20" Y="89"/>
-        <UsageCount Value="151"/>
+        <UsageCount Value="152"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit71>
@@ -769,7 +770,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="120"/>
         <CursorPos X="20" Y="126"/>
-        <UsageCount Value="122"/>
+        <UsageCount Value="123"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit74>
@@ -964,7 +965,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="31"/>
         <CursorPos X="19" Y="39"/>
-        <UsageCount Value="90"/>
+        <UsageCount Value="91"/>
       </Unit98>
       <Unit99>
         <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60dyn.pp"/>
@@ -996,12 +997,11 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Comparison"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
         <TopLine Value="600"/>
         <CursorPos X="95" Y="626"/>
-        <UsageCount Value="77"/>
+        <UsageCount Value="78"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit102>
@@ -1037,53 +1037,53 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="1" Y="1"/>
-        <UsageCount Value="23"/>
+        <UsageCount Value="24"/>
       </Unit106>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="main.pas"/>
-        <Caret Line="420" Column="20" TopLine="408"/>
+        <Caret Line="549" Column="83" TopLine="536"/>
       </Position1>
       <Position2>
         <Filename Value="main.pas"/>
-        <Caret Line="2196" Column="1" TopLine="2170"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position2>
       <Position3>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="968" Column="53" TopLine="944"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="678" Column="30" TopLine="658"/>
       </Position3>
       <Position4>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="196" Column="3" TopLine="193"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="693" Column="3" TopLine="686"/>
       </Position4>
       <Position5>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="190" Column="3" TopLine="188"/>
+        <Filename Value="enterpass.pas"/>
+        <Caret Line="37" Column="32" TopLine="1"/>
       </Position5>
       <Position6>
-        <Filename Value="sqlhistory.pas"/>
-        <Caret Line="39" Column="15" TopLine="22"/>
+        <Filename Value="enterpass.pas"/>
+        <Caret Line="38" Column="32" TopLine="3"/>
       </Position6>
       <Position7>
-        <Filename Value="sqlhistory.pas"/>
-        <Caret Line="40" Column="15" TopLine="23"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="781" Column="8" TopLine="757"/>
       </Position7>
       <Position8>
-        <Filename Value="sqlhistory.pas"/>
-        <Caret Line="71" Column="3" TopLine="61"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="764" Column="19" TopLine="763"/>
       </Position8>
       <Position9>
-        <Filename Value="sqlhistory.pas"/>
-        <Caret Line="72" Column="50" TopLine="46"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="264" Column="3" TopLine="259"/>
       </Position9>
       <Position10>
-        <Filename Value="about.pas"/>
-        <Caret Line="72" Column="20" TopLine="58"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="155" Column="3" TopLine="152"/>
       </Position10>
       <Position11>
         <Filename Value="main.pas"/>
-        <Caret Line="549" Column="83" TopLine="536"/>
+        <Caret Line="695" Column="31" TopLine="686"/>
       </Position11>
       <Position12>
         <Filename Value="main.pas"/>
@@ -1091,75 +1091,75 @@
       </Position12>
       <Position13>
         <Filename Value="main.pas"/>
-        <Caret Line="678" Column="30" TopLine="658"/>
+        <Caret Line="44" Column="13" TopLine="15"/>
       </Position13>
       <Position14>
         <Filename Value="main.pas"/>
-        <Caret Line="693" Column="3" TopLine="686"/>
+        <Caret Line="399" Column="3" TopLine="396"/>
       </Position14>
       <Position15>
-        <Filename Value="enterpass.pas"/>
-        <Caret Line="37" Column="32" TopLine="1"/>
+        <Filename Value="copytable.pas"/>
+        <Caret Line="173" Column="3" TopLine="155"/>
       </Position15>
       <Position16>
-        <Filename Value="enterpass.pas"/>
-        <Caret Line="38" Column="32" TopLine="3"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="749" Column="11" TopLine="706"/>
       </Position16>
       <Position17>
         <Filename Value="comparison.pas"/>
-        <Caret Line="781" Column="8" TopLine="757"/>
+        <Caret Line="750" Column="11" TopLine="714"/>
       </Position17>
       <Position18>
         <Filename Value="comparison.pas"/>
-        <Caret Line="764" Column="19" TopLine="763"/>
+        <Caret Line="751" Column="11" TopLine="715"/>
       </Position18>
       <Position19>
         <Filename Value="comparison.pas"/>
-        <Caret Line="264" Column="3" TopLine="259"/>
+        <Caret Line="157" Column="3" TopLine="155"/>
       </Position19>
       <Position20>
         <Filename Value="comparison.pas"/>
-        <Caret Line="155" Column="3" TopLine="152"/>
+        <Caret Line="627" Column="8" TopLine="598"/>
       </Position20>
       <Position21>
-        <Filename Value="main.pas"/>
-        <Caret Line="695" Column="31" TopLine="686"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="190" Column="3" TopLine="254"/>
       </Position21>
       <Position22>
-        <Filename Value="main.pas"/>
+        <Filename Value="querywindow.pas"/>
         <Caret Line="1" Column="1" TopLine="1"/>
       </Position22>
       <Position23>
-        <Filename Value="main.pas"/>
-        <Caret Line="44" Column="13" TopLine="15"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="10" Column="9" TopLine="1"/>
       </Position23>
       <Position24>
-        <Filename Value="main.pas"/>
-        <Caret Line="399" Column="3" TopLine="396"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="74" Column="21" TopLine="46"/>
       </Position24>
       <Position25>
-        <Filename Value="copytable.pas"/>
-        <Caret Line="173" Column="3" TopLine="155"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="75" Column="21" TopLine="47"/>
       </Position25>
       <Position26>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="749" Column="11" TopLine="706"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="343" Column="18" TopLine="335"/>
       </Position26>
       <Position27>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="750" Column="11" TopLine="714"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="346" Column="11" TopLine="334"/>
       </Position27>
       <Position28>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="751" Column="11" TopLine="715"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="11" Column="40" TopLine="1"/>
       </Position28>
       <Position29>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="157" Column="3" TopLine="155"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="397" Column="21" TopLine="369"/>
       </Position29>
       <Position30>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="627" Column="8" TopLine="598"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="376" Column="13" TopLine="359"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

+ 2 - 2
TurboBird.lpr

@@ -2,7 +2,7 @@
 {  TurboBird: FireBird database administration and management tool          }
 {  Developed by: Motaz Abdel Azeem http://code.sd/                          }
 {  Start development :  5.Dec.2009                                          }
-{  Last updated      : 18.Dec.2012                                          }
+{  Last updated      : 21.Dec.2012                                          }
 {  License           : GPL for GUI, LGPL for Units                          }
 {***************************************************************************}
 
@@ -24,7 +24,7 @@ uses
   sysutils, Comparison;
 
 const
-  Version = '0.9.6';
+  Version = '0.9.5';
   VersionDate = '2010 - Dec 2012';
 {$IFDEF Unix}
 {$DEFINE extdecl:=cdecl}

BIN
TurboBird.res


+ 7 - 1
querywindow.lfm

@@ -13,7 +13,7 @@ object fmQueryWindow: TfmQueryWindow
   OnShow = FormShow
   PopupMenu = pmTab
   Position = poScreenCenter
-  LCLVersion = '1.0.1.3'
+  LCLVersion = '1.0.4.0'
   object Panel1: TPanel
     Left = 0
     Height = 60
@@ -740,6 +740,12 @@ object fmQueryWindow: TfmQueryWindow
       end>
     VisibleSpecialChars = [vscSpace, vscTabAtLast]
     RightEdge = 120
+    SelectedColor.BackPriority = 50
+    SelectedColor.ForePriority = 50
+    SelectedColor.FramePriority = 50
+    SelectedColor.BoldPriority = 50
+    SelectedColor.ItalicPriority = 50
+    SelectedColor.UnderlinePriority = 50
     BracketHighlightStyle = sbhsBoth
     BracketMatchColor.Background = clNone
     BracketMatchColor.Foreground = clNone

+ 83 - 80
querywindow.lrs

@@ -6,7 +6,7 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +'QueryWindow'#12'ClientHeight'#3'Y'#2#11'ClientWidth'#3#208#2#5'Color'#7#6'c'
   +'lForm'#4'Menu'#7#9'MainMenu1'#7'OnClose'#7#9'FormClose'#6'OnShow'#7#8'FormS'
   +'how'#9'PopupMenu'#7#5'pmTab'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'
-  +#6#7'1.0.1.3'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2'<'#3'Top'#2#0#5
+  +#6#7'1.0.4.0'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2'<'#3'Top'#2#0#5
   +'Width'#3#208#2#5'Align'#7#5'alTop'#12'ClientHeight'#2'<'#11'ClientWidth'#3
   +#208#2#5'Color'#7#6'clForm'#11'ParentColor'#8#8'TabOrder'#2#1#0#7'TBitBtn'#7
   +'bbClose'#4'Left'#3#180#2#6'Height'#2#24#3'Top'#2#253#5'Width'#2#27#7'Anchor'
@@ -157,11 +157,14 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +'election'#9'MoveCaret'#9#0#1#5'Shift'#11#6'ssCtrl'#0#9'ShiftMask'#11#7'ssSh'
   +'ift'#5'ssAlt'#6'ssCtrl'#0#7'Command'#7#12'emcMouseLink'#0#0#15'MouseSelActi'
   +'ons'#14#1#8'ClickDir'#7#6'cdDown'#7'Command'#7#16'emcStartDragMove'#0#0#19
-  +'VisibleSpecialChars'#11#8'vscSpace'#12'vscTabAtLast'#0#9'RightEdge'#2'x'#21
-  +'BracketHighlightStyle'#7#8'sbhsBoth'#28'BracketMatchColor.Background'#7#6'c'
-  +'lNone'#28'BracketMatchColor.Foreground'#7#6'clNone'#23'BracketMatchColor.St'
-  +'yle'#11#6'fsBold'#0#26'FoldedCodeColor.Background'#7#6'clNone'#26'FoldedCod'
-  +'eColor.Foreground'#7#6'clGray'#26'FoldedCodeColor.FrameColor'#7#6'clGray'#25
+  +'VisibleSpecialChars'#11#8'vscSpace'#12'vscTabAtLast'#0#9'RightEdge'#2'x'#26
+  +'SelectedColor.BackPriority'#2'2'#26'SelectedColor.ForePriority'#2'2'#27'Sel'
+  +'ectedColor.FramePriority'#2'2'#26'SelectedColor.BoldPriority'#2'2'#28'Selec'
+  +'tedColor.ItalicPriority'#2'2'#31'SelectedColor.UnderlinePriority'#2'2'#21'B'
+  +'racketHighlightStyle'#7#8'sbhsBoth'#28'BracketMatchColor.Background'#7#6'cl'
+  +'None'#28'BracketMatchColor.Foreground'#7#6'clNone'#23'BracketMatchColor.Sty'
+  +'le'#11#6'fsBold'#0#26'FoldedCodeColor.Background'#7#6'clNone'#26'FoldedCode'
+  +'Color.Foreground'#7#6'clGray'#26'FoldedCodeColor.FrameColor'#7#6'clGray'#25
   +'MouseLinkColor.Background'#7#6'clNone'#25'MouseLinkColor.Foreground'#7#6'cl'
   +'Blue'#29'LineHighlightColor.Background'#7#6'clNone'#29'LineHighlightColor.F'
   +'oreground'#7#6'clNone'#0#244#18'TSynGutterPartList'#0#0#15'TSynGutterMarks'
@@ -190,10 +193,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#0#11'TSaveDialog'#11'SaveDialog1'#7'Options'#11#17'ofOverwritePrompt'#14'of'
   +'EnableSizing'#12'ofViewDetail'#0#4'left'#3#222#0#3'top'#3#208#0#0#0#10'TSyn'
   +'SQLSyn'#10'SynSQLSyn1'#13'DefaultFilter'#6#23'SQL Files (*.sql)|*.sql'#7'En'
-  +'abled'#8#23'CommentAttri.Foreground'#7#6'clTeal'#23'CommentAttri.FrameEdges'
+  ,'abled'#8#23'CommentAttri.Foreground'#7#6'clTeal'#23'CommentAttri.FrameEdges'
   +#7#9'sfeAround'#24'DataTypeAttri.FrameEdges'#7#9'sfeAround'#30'DefaultPackag'
   +'eAttri.FrameEdges'#7#9'sfeAround'#25'ExceptionAttri.FrameEdges'#7#9'sfeArou'
-  ,'nd'#24'FunctionAttri.FrameEdges'#7#9'sfeAround'#26'IdentifierAttri.Foregrou'
+  +'nd'#24'FunctionAttri.FrameEdges'#7#9'sfeAround'#26'IdentifierAttri.Foregrou'
   +'nd'#4'1'#26#255#0#26'IdentifierAttri.FrameEdges'#7#9'sfeAround'#19'KeyAttri'
   +'.FrameEdges'#7#9'sfeAround'#22'NumberAttri.Foreground'#4'644'#0#22'NumberAt'
   +'tri.FrameEdges'#7#9'sfeAround'#21'PLSQLAttri.FrameEdges'#7#9'sfeAround'#21
@@ -254,10 +257,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#248#255'{fP'#255#255#255#234#255#168#149#128#255#173#155#138#255#164#144
   +#127#255#255#255#240#255#167#147#129#255#169#152#133#255#255#255#241#255#171
   +#152#131#255#255#255#233#255#131'nX'#255#255#248#239#255#255#255#254#255#255
-  +#255#255#255#255#249#242#255#130'oZ'#255#255#255#234#255#255#254#236#255#255
+  ,#255#255#255#255#249#242#255#130'oZ'#255#255#255#234#255#255#254#236#255#255
   +#255#241#255#255#255#241#255#255#255#237#255#255#255#240#255#255#255#241#255
   +#255#255#240#255#255#255#238#255#255#255#234#255#129'nY'#255#255#255#249#255
-  ,#249#249#249#255#253#255#255#0#252#248#243#255#132's`'#255#255#255#235#255
+  +#249#249#249#255#253#255#255#0#252#248#243#255#132's`'#255#255#255#235#255
   +#162#144#127#255#255#255#242#255#164#146#129#255#255#255#241#255#171#153#136
   +#255#170#152#135#255#168#152#136#255#167#149#132#255#255#255#235#255'}n['#255
   +#255#255#251#255#253#255#255#0#250#253#255#255#255#255#252#255'seS'#255#255
@@ -318,10 +321,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#251#255#255#255#254#255#253#254#255#255#253#254#255#255#247#252#251#255#251
   +#255#251#255#251#255#244#255'o|d'#255'r'#127'g'#255'R\K'#255#248#255#248#255
   +#251#255#255#255#236#237#241#255#253#254#255#255#250#251#249#255#255#255#252
-  +#0#255#255#252#0#238#239#237#255#253#254#255#255#245#246#250#255#251#255#255
+  ,#0#255#255#252#0#238#239#237#255#253#254#255#255#245#246#250#255#251#255#255
   +#255#251#255#249#255#242#253#233#255'w'#132'l'#255'o|d'#255'alX'#255#251#255
   +#249#255#251#255#255#255#253#254#255#255#251#252#255#255#252#253#251#255#252
-  ,#253#249#255#250#251#247#255#255#255#254#255#253#254#255#255#249#250#254#255
+  +#253#249#255#250#251#247#255#255#255#254#255#253#254#255#255#249#250#254#255
   +#251#255#254#255#249#255#247#255#248#255#239#255#251#255#238#255'jw]'#255'Ze'
   +'Q'#255#236#244#234#255#251#255#254#255#252#253#255#255#253#254#255#255#250
   +#251#249#255#255#255#252#0#255#255#252#0#255#255#254#255#242#243#247#255#253
@@ -382,10 +385,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#251#255#255#255#244#250#255#250#254#255#255#246#255#255#255#250#255#248
   +#255#251#255#249#255#253#252#255#255#248#247#255#255#251#250#255#255#244#246
   +#254#255#255#255#251#255#244#252#242#255#246#255#255#255#250#254#255#255#250
-  +#238#244#255#255#251#255#255#255#245#245#255#255#249#255#255#236#234#255#255
+  ,#238#244#255#255#251#255#255#255#245#245#255#255#249#255#255#236#234#255#255
   +#241#241#255#255#245#245#255#255#250#246#255#255#248#243#255#255#243#239#255
   +#255#248#241#255#255#248#243#255#255#243#239#255#255#246#246#255#255#235#235
-  ,#255#255#243#241#255#255#255#249#255#255#255#245#245#255#253#255#249#255#237
+  +#255#255#243#241#255#255#255#249#255#255#255#245#245#255#253#255#249#255#237
   +#236#255#255'<.'#164#255'<*'#185#255'>,'#157#255'C5'#149#255'A2'#148#255'?2'
   +#148#255'<,'#145#255'C4'#150#255'C5'#149#255'?-'#158#255'=+'#186#255'5'''#157
   +#255#239#238#255#255#251#255#249#255#243#255#246#255#241#243#255#255'C2'#195
@@ -446,10 +449,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#254#255#255#253#255#255#252#246#255#255#255#249#255#255#255#244#254#255
   +#255#254#255#255#11#28#15#255#171#207#171#255#153#204#154#255#164#225#169#255
   +#134#202#143#255#134#202#143#255#162#225#169#255#153#204#154#255#171#207#171
-  +#255#11#28#15#255#253#254#255#255#255#244#254#255#255#249#255#255#255#250#255
+  ,#255#11#28#15#255#253#254#255#255#255#244#254#255#255#249#255#255#255#250#255
   +#255#255#250#255#255#21#23#23#255#7#24#11#255#168#203#169#255#153#202#156#255
   +#154#212#158#255#145#210#154#255#147#210#154#255#152#212#158#255#155#202#156
-  ,#255#168#203#169#255#7#24#11#255#21#23#23#255#255#250#255#255#255#250#255#255
+  +#255#168#203#169#255#7#24#11#255#21#23#23#255#255#250#255#255#255#250#255#255
   +#240#247#250#255#248#255#255#255#18' '#21#255'x'#138'}'#255#0#19#7#255#175
   +#200#186#255#168#197#174#255#166#199#172#255#168#199#172#255#168#197#174#255
   +#175#200#186#255#0#19#7#255'x'#138'}'#255#18' '#21#255#248#255#255#255#240
@@ -510,10 +513,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#246#246#252#255#253#253#255#255#243#245#253#255'EFP'#255#177#177#191#255
   +#170#170#186#255#193#193#211#255#180#181#201#255#180#181#201#255#191#193#211
   +#255#170#170#186#255#176#177#191#255'EEQ'#255#243#245#253#255#253#253#255#255
-  +#246#246#252#255#253#254#255#255#244#244#250#255#253#252#255#255'LMW'#255#181
+  ,#246#246#252#255#253#254#255#255#244#244#250#255#253#252#255#255'LMW'#255#181
   +#181#195#255#185#185#201#255#175#175#193#255#172#172#190#255#172#172#190#255
   +#175#175#193#255#186#185#201#255#181#181#193#255'NMW'#255#253#252#255#255#244
-  ,#244#250#255#253#254#255#255#243#244#248#255#253#254#255#255#253#253#255#255
+  +#244#250#255#253#254#255#255#243#244#248#255#253#254#255#255#253#253#255#255
   +'54='#255#190#188#200#255#172#172#186#255#171#170#186#255#185#185#201#255#185
   +#185#203#255#170#170#186#255#172#172#186#255#188#188#200#255'54='#255#253#253
   +#255#255#253#254#255#255#243#245#246#255#254#253#255#255#255#254#255#255#255
@@ -574,10 +577,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#243#255#243#243#243#255#239#239#239#255#213#213#213#255#197#197#197#255#183
   +#183#183#255#170#170#170#132#171#171#171#0#171#171#171#0#171#171#171#0#171
   +#171#171#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#169#169#169#255#241#240#241
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#169#169#169#255#241#240#241
   +#255#240#240#240#255#240#240#240#255#240#240#240#255#240#240#240#255#240#240
   +#240#255#240#240#240#255#240#240#240#255#240#240#240#255#240#240#240#255#240
-  ,#240#240#255#240#240#240#255#240#240#240#255#240#240#240#255#235#235#235#255
+  +#240#240#255#240#240#240#255#240#240#240#255#240#240#240#255#235#235#235#255
   +#208#208#208#255#185#185#185#255#220#220#220#255#178#178#178#255#169#169#169
   +'c'#171#171#171#0#171#171#171#0#171#171#171#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@@ -638,10 +641,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#227#255#226#226#226#255#226#226#226#255#225#225#225#255#223#223#223#255#223
   +#223#223#255#222#223#222#255#223#223#223#255#223#223#223#255#223#222#223#255
   +#223#222#223#255#223#223#223#255#221#221#221#255#151#151#152#255#255#255#255
-  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#149#149#150#255#226#226
   +#226#255#225#225#226#255#225#226#225#255#225#226#225#255#225#225#225#255#225
-  ,#225#225#255#224#224#224#255#223#223#223#255#222#222#222#255#222#222#222#255
+  +#225#225#255#224#224#224#255#223#223#223#255#222#222#222#255#222#222#222#255
   +#222#222#222#255#222#222#222#255#222#222#222#255#222#222#222#255#222#222#222
   +#255#222#222#222#255#222#222#222#255#222#222#222#255#222#222#222#255#221#221
   +#221#255#149#149#150#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@@ -702,10 +705,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#204#204#255#204#204#204#255#204#204#204#255#204#204#204#255#204#204#204#255
   +#204#204#204#255#204#204#204#255#204#204#204#255#204#204#204#255#204#204#204
   +#255#204#204#204#255#204#204#204#255#204#204#204#255#204#204#204#255#204#204
-  +#204#255#207#207#207#255#130#130#131#255#0#0#0#1#0#0#0#0#255#255#255#0#255
+  ,#204#255#207#207#207#255#130#130#131#255#0#0#0#1#0#0#0#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#128#128#128#2#129#129#130#255#206#206#206#255#203#203#203#255#203#203
-  ,#203#255#203#203#203#255#203#203#203#255#203#203#203#255#203#203#203#255#203
+  +#203#255#203#203#203#255#203#203#203#255#203#203#203#255#203#203#203#255#203
   +#203#203#255#203#203#203#255#203#203#203#255#203#203#203#255#203#203#203#255
   +#203#203#203#255#203#203#203#255#203#203#203#255#203#203#203#255#203#203#203
   +#255#203#203#203#255#203#203#203#255#206#206#206#255#129#129#130#255'@@@'#4#0
@@ -766,10 +769,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#233#234#255#227#226#226#255#202#201#201#255#178#178#178#255#170#170#170#156
   +#170#170#170'3'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#170#170#170#0#170#170#170#0#170#170#170#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#169#169#169#0#169#169#169#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#169#169#169#0#169#169#169#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#169#169#169#138#177#177#177#255#218#215#216#255
   +#248#243#243#255#249#242#243#255#245#237#239#255#243#234#235#255#241#234#235
-  ,#255#241#237#238#255#243#241#242#255#244#243#243#255#246#244#244#255#245#244
+  +#255#241#237#238#255#243#241#242#255#244#243#243#255#246#244#244#255#245#244
   +#244#255#218#218#218#255#177#177#177#255#169#169#169#138#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#169#169#169#0#169#169#169#0#169#169
   +#169#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#167#167#168#0
@@ -830,10 +833,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#203#205#207#255#211#211#211#155#253#255#255'Z'#253#255#255'Z'#255#255
   +#255'Y'#255#255#255'Y'#211#211#211#155#202#204#207#255#220#228#232#255#219
   +#226#230#255#221#226#230#255#224#227#230#255#226#228#230#255#228#228#230#255
-  +#231#230#231#255#217#214#215#255#152#152#153#228#171#171#171#0#171#171#171#0
+  ,#231#230#231#255#217#214#215#255#152#152#153#228#171#171#171#0#171#171#171#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#150#150#151#249#214
   +#212#213#255#229#228#228#255#228#227#228#255#226#226#228#255#224#226#228#255
-  ,#222#226#228#255#220#225#228#255#220#226#231#255#191#191#192#255#237#237#237
+  +#222#226#228#255#220#225#228#255#220#226#231#255#191#191#192#255#237#237#237
   +'k'#253#255#255'Z'#253#255#255'Z'#255#255#255'Y'#255#255#255'Y'#237#237#237
   +'k'#191#191#192#255#218#226#231#255#218#224#228#255#219#225#228#255#222#226
   +#228#255#224#226#228#255#226#226#228#255#228#228#229#255#215#212#213#255#150
@@ -894,10 +897,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#206#208#255#199#199#200#255#192#192#194#255#192#191#194#255#191#191#194#255
   +#177#178#182#255#141#141#142#255#237#237#237#255#201#201#201#255#11'V'#206
   +#255#13'W'#207#255#19'\'#208#255#25'`'#210#255#30'c'#211#255'!e'#211#255'"g'
-  +#212#255'$h'#212#255'+m'#213#255'=z'#217#255#201#201#201#255#237#237#237#255
+  ,#212#255'$h'#212#255'+m'#213#255'=z'#217#255#201#201#201#255#237#237#237#255
   +#141#141#142#255'222'#20#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#130#130#131#0#0#0#0#1#128#128#128#2'fff'#5#129#129#130#151#153#153#154
-  ,#255#207#206#207#255#205#202#204#255#196#194#196#255#192#190#193#255#178#174
+  +#255#207#206#207#255#205#202#204#255#196#194#196#255#192#190#193#255#178#174
   +#179#255#137#137#138#255#237#237#237#255#201#201#201#255#7'9'#154#255#4'5'
   +#150#255#4'5'#150#255#5'5'#151#255#6'7'#152#255#7'7'#153#255#8'9'#153#255#11
   +'<'#156#255#18'C'#160#255'#U'#171#255#201#201#201#255#237#237#237#255#137#137
@@ -958,10 +961,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#171#171#171#150#171
   +#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255
   +#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171
-  +#255#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255#170#170
+  ,#255#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255#170#170
   +#170#255#167#167#167#255#167#167#167#255#169#169#169#153#171#171#171#0#171
   +#171#171#0#171#171#171#0#171#171#171#0#171#171#171#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#170#170#170#255#239#239#239#255#243#243#243#255#243#243#243
   +#255#243#243#243#255#243#243#243#255#243#243#243#255#243#243#243#255#243#243
   +#243#255#243#243#243#255#243#243#243#255#243#243#243#255#243#243#243#255#243
@@ -1022,10 +1025,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#154#154#255#230#230#230#255#229#229#229#255#229#229#229#255'ggg'#255#146#146
   +#147#255#145#145#146#255#137#137#138#255#211#211#211#255#206#127#199#255#206
   +#127#199#255#206#127#199#255#206#127#199#255#211#211#211#255#137#137#138#255
-  +#145#145#146#255#128#128#129#255'ggg'#255#224#223#224#255#224#223#224#255#222
+  ,#145#145#146#255#128#128#129#255'ggg'#255#224#223#224#255#224#223#224#255#222
   +#221#222#255#154#154#154#255#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#151#151#152#255#228#228#228#255#227#227#227#255#227#227
+  +#255#0#255#255#255#0#151#151#152#255#228#228#228#255#227#227#227#255#227#227
   +#227#255'aaa'#255#143#142#142#255#203#203#203#255#132#132#132#255#208#208#207
   +#255#202'|'#195#255#203'|'#195#255#203'|'#195#255#202'|'#195#255#207#207#208
   +#255#132#132#132#255#203#203#203#255#127#127#127#255'aaa'#255#223#222#223#255
@@ -1086,10 +1089,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#130#131#255#207#207#207#255#204#204#204#255#204#204#204#255#204#204#204#255
   +#204#204#204#255#204#204#204#255#204#204#204#255#204#204#204#255#204#204#204
   +#255#204#204#204#255#204#204#204#255#204#204#204#255#204#204#204#255#204#204
-  +#204#255#204#204#204#255#204#204#204#255#204#204#204#255#204#204#204#255#204
+  ,#204#255#204#204#204#255#204#204#204#255#204#204#204#255#204#204#204#255#204
   +#204#204#255#207#207#207#255#130#130#131#255#0#0#0#1#0#0#0#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  ,#255#255#0#128#128#128#2#129#129#130#255#206#206#206#255#203#203#203#255#203
+  +#255#255#0#128#128#128#2#129#129#130#255#206#206#206#255#203#203#203#255#203
   +#203#203#255#203#203#203#255#203#203#203#255#203#203#203#255#203#203#203#255
   +#203#203#203#255#203#203#203#255#203#203#203#255#203#203#203#255#203#203#203
   +#255#203#203#203#255#203#203#203#255#203#203#203#255#203#203#203#255#203#203
@@ -1150,10 +1153,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'222'#4'222'#15'222'#24
   +'222'#15'222'#4'222'#0'222'#0'222'#0'222'#0'222'#0'222'#0'222'#0'222'#0'222'
-  ,#0'222'#0'222'#0'222'#0'222'#0'222'#0'222'#0#255#255#255#0#255#255#255#0#255
+  +#0'222'#0'222'#0'222'#0'222'#0'222'#0'222'#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'222'#15#19#140
   +'k|'#9#168'}'#212#21#133'g'#134'222)222'#18'222'#4'222'#0'222'#0'222'#0'222'
@@ -1214,10 +1217,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#205#169#255':'#205#169#255':'#205#169#255':'#205#169#255';'#205#170#255'A'
   +#209#175#255'M'#216#186#255'Q'#216#188#255','#178#139#255#11#147'`'#255#21'v'
   +'R'#167'/850222'#13'222'#1#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0'222-'#9#141'Y'#255'<'#205#170#255
   +'8'#202#166#255'8'#202#166#255'8'#202#166#255'8'#202#166#255'8'#202#166#255
-  ,'9'#202#167#255'>'#206#172#255'I'#212#182#255'Q'#214#187#255'1'#181#142#255
+  +'9'#202#167#255'>'#206#172#255'I'#212#182#255'Q'#214#187#255'1'#181#142#255
   +#13#145'^'#255#20'uO'#174'.<68222'#22'222'#6'222'#0'222'#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@@ -1278,10 +1281,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@@ -1342,10 +1345,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255'S'#222#198#255'W'#223#199#255'T'#187#169#255'W'#223#199#255'd'#226#204
   +#255'j'#221#199#255#17#176#130#255#6#170'y6'#6#170'y'#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#6#167'u'#0#6
-  +#167'u'#159'>'#199#166#255'h'#224#202#255'S'#221#197#255'R'#221#196#255'R'
+  ,#167'u'#159'>'#199#166#255'h'#224#202#255'S'#221#197#255'R'#221#196#255'R'
   +#221#196#255'R'#221#196#255'R'#221#196#255'R'#221#196#255'R'#221#196#255'R'
   +#221#196#255'R'#221#196#255'R'#221#196#255'R'#221#196#255'R'#221#196#255'R'
-  ,#221#196#255'Y'#223#199#255'V'#186#168#255';NK'#255'^'#224#200#255'S'#221#197
+  +#221#196#255'Y'#223#199#255'V'#186#168#255';NK'#255'^'#224#200#255'S'#221#197
   +#255'h'#224#202#255'>'#199#166#255#6#167'u'#159#6#167'u'#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#6#164'r!'
   +#17#171'|'#255'['#218#191#255'['#223#198#255'Q'#220#195#255'Q'#220#195#255'Q'
@@ -1406,10 +1409,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#213#190#255'\lh'#255'TTT'#255'[kg'#255#127#216#193#255'F'#205#170#255'5'#200
   +#162#255'5'#200#162#255'5'#200#162#255'5'#200#162#255'5'#200#162#255'5'#200
   +#162#255'5'#200#162#255':'#203#167#255'A'#207#173#255#16#144'^'#255#10#136'T'
-  +#27#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#27#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#10#133'P'#0#10#133'P'#150','#178#136#255'?'#207#172#255'4'#199#161
   +#255'3'#199#160#255'3'#199#160#255'3'#199#160#255'3'#199#160#255'U'#208#176
-  ,#255#128#207#186#255'^nj'#255'}'#199#180#255'V'#208#176#255'3'#199#160#255'3'
+  +#255#128#207#186#255'^nj'#255'}'#199#180#255'V'#208#176#255'3'#199#160#255'3'
   +#199#160#255'3'#199#160#255'3'#199#160#255'3'#199#160#255'3'#199#160#255'3'
   +#199#160#255'4'#199#161#255'?'#207#172#255'+'#178#136#255#10#133'P'#150#10
   +#133'P'#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
@@ -1470,10 +1473,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@@ -1534,10 +1537,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +'Js'#225#255'd'#135#229#255'V}'#226#255#18'C'#207#255#10'<'#205'6'#10'<'#205
   +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#10'<'#203#0#10'<'#203#159'/\'#217#255'`'#132#229#255'Js'#225#255
-  +'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'
+  ,'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'
   +#225#255'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'#225#255'Hr'#225
   +#255'Hr'#225#255'Hr'#225#255'Hr'#225#255'Js'#225#255'`'#132#229#255'/\'#217
-  ,#255#10'<'#203#159#10'<'#203#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#10'<'#203#159#10'<'#203#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#10';'#201'!'#17'A'#204#255'Cm'#224#255
   +'W|'#227#255'Gp'#224#255'Gp'#224#255'Gp'#224#255'Gp'#224#255'Gp'#224#255'Gp'
   +#224#255'Gp'#224#255'Gp'#224#255'Gp'#224#255'Gp'#224#255'Gp'#224#255'Gp'#224
@@ -1598,10 +1601,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#19'F'#214#255#19'F'#214#255#19'F'#214#255#19'F'#214#255#19'G'#214#255#27
   +'R'#219#255#21'H'#205#255#8'5'#182#150#8'5'#182#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#8'5'#180#0#8'5'#180
-  +'-'#10'8'#184#255#28'S'#220#255#23'M'#218#255#17'D'#214#255#17'D'#214#255#17
+  ,'-'#10'8'#184#255#28'S'#220#255#23'M'#218#255#17'D'#214#255#17'D'#214#255#17
   +'D'#214#255#17'D'#214#255#17'D'#214#255#17'D'#214#255#17'D'#214#255#17'D'#214
   +#255#17'D'#214#255#17'D'#214#255#17'D'#214#255#17'D'#214#255#17'D'#214#255#17
-  ,'D'#214#255#17'D'#214#255#17'D'#214#255#23'M'#218#255#28'S'#220#255#10'8'#184
+  +'D'#214#255#17'D'#214#255#17'D'#214#255#23'M'#218#255#28'S'#220#255#10'8'#184
   +#255#8'5'#180'-'#8'5'#180#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#8'4'#178#0#8'4'#178#0#8'4'#178#135#14'>'
   +#191#255#29'W'#222#255#20'J'#217#255#15'C'#214#255#15'C'#214#255#15'C'#214
@@ -1662,10 +1665,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0'ddd'#0'ddd'#0'ddd'#0'ddd'#0'ddd'#0'ddd'#0'ddd'#0'ddd'#0#205'|'
   +'='#27#205'|=l'#205'|='#183#205'|='#204#205'|='#252#205'|='#252#205'|='#204
   +#205'|='#183#205'|=l'#205'|='#27'ddd'#0'ddd'#0'ddd'#0'ddd'#0'ddd'#0'ddd'#0
@@ -1726,10 +1729,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#193'l6'
   +#189#223#170'c'#255#234#206#156#255#193#162#127#255#192#180#172#255#220#220
   +#221#255#235#235#235#255#239#239#239#255#240#240#240#255#240#240#240#255#240
-  +#240#240#255#240#240#240#255#240#240#240#255'aaa'#255#240#240#240#255#240#240
+  ,#240#240#255#240#240#240#255#240#240#240#255'aaa'#255#240#240#240#255#240#240
   +#240#255#240#240#240#255#240#240#240#255#239#239#239#255#234#234#234#255#219
   +#219#219#255#193#174#155#255#212#174'~'#255#242#213#160#255#224#171'c'#255
-  ,#193'l6'#189#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#193'l6'#189#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#191'j5'#228#229#181'l'#255#239#211#162#255#190#150'm'
   +#255#206#201#197#255#230#230#230#255#240#240#240#255#241#241#241#255#241#241
   +#241#255#241#241#241#255#241#241#241#255#241#241#241#255#241#241#241#255'aaa'
@@ -1790,10 +1793,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +'-'#135#190'q?'#255#215#170'l'#255#205#191#173#255#200#164#134#255#192#131'X'
   +#255#227#201#184#255#253#253#253#255#253#253#253#255#253#253#253#255#253#253
   +#253#255#253#253#253#255#253#253#253#255#253#253#253#255#253#253#253#255#231
-  +#216#209#255#189#147#127#255#199#179#169#255#206#205#204#255#202#170#128#255
+  ,#216#209#255#189#147#127#255#199#179#169#255#206#205#204#255#202#170#128#255
   +#185'n='#255#177'X-'#135#235#235#235#0'ddd'#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'ddd'#0'ddd'#0#235#235
-  ,#235#0#176'V,'#147#194'yF'#255#209#167'm'#255#205#192#178#255#213#202#197#255
+  +#235#0#176'V,'#147#194'yF'#255#209#167'm'#255#205#192#178#255#213#202#197#255
   +#198#159#138#255#202#159#136#255#227#209#200#255#241#233#229#255#249#245#244
   +#255#250#248#247#255#241#233#229#255#230#214#207#255#208#176#162#255#192#156
   +#140#255#201#190#185#255#202#201#200#255#194#167#129#255#188'uD'#255#174'V,'
@@ -1854,10 +1857,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#230#177'N'#255#230#177'N'#255#230#177'N'#255#230#177'N'#255#230#177'N'#255
   +#230#177'N'#255#230#177'N'#255#230#177'N'#255#230#177'N'#255#235#191'o'#255
   +#201'y '#255'XXX'#0'XXX'#0'XXX'#0'XXX'#0'XXX'#0'XXX'#0'XXX'#0'XXX'#0'XXX'#0
-  +'XXX'#0'XXX'#0'XXX'#0'XXX'#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,'XXX'#0'XXX'#0'XXX'#0'XXX'#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#171#171#171#0#181#147'q'#255#171#171#171#255#171#171
   +#171#255#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255#171
-  ,#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255
+  +#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255
   +#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171
   +#255#171#171#171#255#171#171#171#255#171#171#171#255#171#171#171#255#171#171
   +#171#255#171#171#171#255#171#171#171#255#171#171#171#150'XXX'#0#255#255#255#0
@@ -1918,10 +1921,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#128#128#128#255#209#209#209#255#169#169#169#255#169#169#169#255#199#199
   +#199#255#199#199#199#255#199#199#199#255#238#238#238#255#238#238#238#255#238
   +#238#238#255#237#237#237#255#237#237#237#255#237#237#237#255#236#236#236#255
-  +#240#240#240#255#155#155#155#255'XXX'#21#255#255#255#0#255#255#255#0#255#255
+  ,#240#240#240#255#155#155#155#255'XXX'#21#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0'XXX'#21#153#153#153#255#238#238#238#255
   +#233#233#233#255#234#234#234#255#234#234#234#255#235#235#235#255#176#176#176
-  ,#255#236#236#236#255#236#236#236#255#236#236#236#255#237#237#237#255#237#237
+  +#255#236#236#236#255#236#236#236#255#236#236#236#255#237#237#237#255#237#237
   +#237#255#237#237#237#255#237#237#237#255#237#237#237#255#236#236#236#255#236
   +#236#236#255#236#236#236#255#235#235#235#255#235#235#235#255#234#234#234#255
   +#234#234#234#255#233#233#233#255#238#238#238#255#153#153#153#255'XXX'#21#255
@@ -1982,10 +1985,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#156#156#156#255#131#131#131#255#217#217#217#255#200#200#200#255#131#131#131
   +#255#157#157#157#255'rrr'#255#198#198#198#255#215#215#215#255#214#214#214#255
   +#214#214#214#255#213#213#213#255#212#212#212#255#211#211#211#255#224#224#224
-  +#255#132#132#133#255'XXX'#21#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#255#132#132#133#255'XXX'#21#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0'XXX'#21#131#131#131#255#223#223#223#255#209#209#209
   +#255#153#153#153#255#145#145#145#255'yyy'#255#138#138#138#255#163#163#163#255
-  ,#155#155#155#255#155#155#155#255'zzz'#255#215#215#215#255#164#164#164#255#173
+  +#155#155#155#255#155#155#155#255'zzz'#255#215#215#215#255#164#164#164#255#173
   +#173#173#255#155#155#155#255'qqq'#255#189#189#189#255#196#196#196#255#195#195
   +#195#255#179#179#179#255#211#211#211#255#210#210#210#255#209#209#209#255#223
   +#223#223#255#131#131#131#255'XXX'#21#255#255#255#0#255#255#255#0#255#255#255
@@ -2046,10 +2049,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@@ -2110,10 +2113,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +'O'#217#255#30'O'#217#255#30'O'#217#255#30'O'#217#255#30'O'#217#255#30'O'#217
   +#255#30'O'#217#255#30'O'#217#255#30'O'#217#255#30'O'#217#255#30'O'#217#255#30
   +'O'#217#255'!S'#219#255#9'9'#192#255'XXX$XXX'#18'XXX'#6#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'XXX'#6'XXX'#18
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'XXX'#6'XXX'#18
   +'XXX$'#8'6'#186#255#25'M'#217#255#22'I'#215#255#22'I'#215#255#22'I'#215#255
   +#22'I'#215#255#22'I'#215#255#22'I'#215#255#22'I'#215#255#22'I'#215#255#22'I'
-  ,#215#255#22'I'#215#255#22'I'#215#255#22'I'#215#255#22'I'#215#255#22'I'#215
+  +#215#255#22'I'#215#255#22'I'#215#255#22'I'#215#255#22'I'#215#255#22'I'#215
   +#255#22'I'#215#255#22'I'#215#255#25'M'#217#255#8'6'#186#255'XXX$XXX'#18'XXX'
   +#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0'XXX'#6'XXX'#16'XXX!'#8'5'#180#255'!['#225#255'(f'#230#255'(f'#230
@@ -2174,10 +2177,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@@ -2238,10 +2241,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#0#0#0#0#0#0#0#0#0#0#0#0'SSSY'#151#151#151#255#248#248#248#255#229#229#229
   +#255#195#173#156#255#149'^8'#255#194#153'z'#255#200#161#131#255#201#163#134
   +#255#203#166#138#255#204#168#141#255#184#133'_'#255#183#132']'#255#182#130'['
-  +#255#207#175#148#255#208#176#151#255#209#178#153#255#209#177#152#255#176#130
+  ,#255#207#175#148#255#208#176#151#255#209#178#153#255#209#177#152#255#176#130
   +'a'#255#155'jH'#255#219#218#217#255#237#237#237#255'~~~'#255'TTTC'#0#0#0#0#0
   +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'SSS'#188#223#223#223
-  ,#255#236#236#236#255#224#224#224#255#227#227#227#255#185#155#134#255#152'a:'
+  +#255#236#236#236#255#224#224#224#255#227#227#227#255#185#155#134#255#152'a:'
   +#255#195#154'{'#255#186#138'e'#255#182#130'['#255#181#130'Z'#255#181#129'Y'
   +#255#180#128'X'#255#176'yN'#255#171'pC'#255#167'i9'#255#190#143'l'#255#182
   +#137'h'#255#144'Z4'#255#210#205#202#255#215#215#215#255#226#226#226#255#195
@@ -2302,10 +2305,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#240#240#240#255#224#224#224#255#225#225#225#255#225#225#225#255#224#224#224
   +#255#224#224#224#255#223#223#223#255#223#223#223#255#222#222#222#255#221#221
   +#221#255#221#221#221#255#221#221#221#255#220#220#220#255#220#220#220#255#219
-  +#219#219#255#219#219#219#255#218#218#218#255#218#218#218#255#218#218#218#255
+  ,#219#219#255#219#219#219#255#218#218#218#255#218#218#218#255#218#218#218#255
   +#217#217#217#255#216#216#216#255#215#215#215#255#215#215#215#255#214#214#214
   +#255#214#214#214#255#213#213#213#255#213#213#213#255#208#208#208#255'SSS'#255
-  ,#0#0#0#0#0#0#0#0'SSS'#255#236#236#236#255#186#186#186#255#186#186#186#255#185
+  +#0#0#0#0#0#0#0#0'SSS'#255#236#236#236#255#186#186#186#255#186#186#186#255#185
   +#185#185#255#184#184#184#255#183#183#183#255#181#181#181#255#180#180#180#255
   +#179#179#179#255#178#178#178#255#177#177#177#255#175#175#175#255#174#174#174
   +#255#173#173#173#255#172#172#172#255#171#171#171#255#170#170#170#255#168#168
@@ -2366,10 +2369,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#1#0#160#197#131#0#153#204#15#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#164#200#14#0#163#198#188#0
-  ,#160#196#255#0#159#191#16#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#160#196#255#0#159#191#16#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@@ -2430,10 +2433,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#255#255#0#0#163#198'o '#174#205#246#154#233#243#255#139#235#246#255'c'
   +#228#243#255'd'#228#244#255'd'#228#244#255'b'#228#243#255'_'#228#243#255'P'
   +#225#242#255#14#214#237#255#0#212#237#255#0#212#237#255#0#212#237#255#0#212
-  +#237#255#0#212#237#255#0#212#237#255#0#212#237#255#0#212#237#255#26#216#238
+  ,#237#255#0#212#237#255#0#212#237#255#0#212#237#255#0#212#237#255#26#216#238
   +#255'u'#231#244#255'1'#191#217#248#0#162#198#142#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  ,#255#255#0#255#255#255#0#255#255#255#0#0#161#196'I'#14#167#200#244#135#226
+  +#255#255#0#255#255#255#0#255#255#255#0#0#161#196'I'#14#167#200#244#135#226
   +#239#254#149#236#247#255'`'#228#243#255'\'#227#243#255'Z'#227#243#255'L'#224
   +#242#255#9#213#237#255#0#212#237#255#1#212#237#255#0#212#237#255#0#212#237
   +#255#0#212#237#255#0#212#237#255#0#212#237#255#0#212#237#255#0#212#237#255#0
@@ -2494,10 +2497,10 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +#255#255#0#255#255#255#0#255#255#255#0#0#0#0#1#0#0#0#3#0#0#0#5#0#0#0#7#0#0#0
   +#8#0#0#0#10#0#0#0#12#0#0#0#13#0#0#0#14#0#0#0#15#0#0#0#16#0#0#0#17#0#0#0#17#0
   +#14#14#18#0#0#0#17#0#0#0#17#0#0#0#16#0#0#0#15#0'(6'#19#0#163#198#219#22#203
-  +#229#239#27#215#238#236#8#177#210#238#0#158#191'z'#0#0#0#4#0#0#0#2#255#255
+  ,#229#239#27#215#238#236#8#177#210#238#0#158#191'z'#0#0#0#4#0#0#0#2#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#2#0#0#0
   +#4#0#0#0#6#0#0#0#8#0#0#0#10#0#0#0#12#0#0#0#14#0#0#0#16#0#0#0#18#0#0#0#19#0#0
-  ,#0#21#0#0#0#22#0#0#0#23#0#0#0#24#0#0#0#24#0#0#0#23#0#0#0#23#0#0#0#22#0#0#0#20
+  +#0#21#0#0#0#22#0#0#0#23#0#0#0#24#0#0#0#24#0#0#0#23#0#0#0#23#0#0#0#22#0#0#0#20
   +#0#137#167']'#5#176#209#213#20#211#234#199#10#185#214#215#0#161#194#158#0';;'
   +#13#0#0#0#7#0#0#0#5#0#0#0#3#0#0#0#1#255#255#255#0#255#255#255#0#0#0#0#1#0#0#0
   +#4#0#0#0#6#0#0#0#8#0#0#0#10#0#0#0#13#0#0#0#15#0#0#0#17#0#0#0#19#0#0#0#21#0#0

+ 24 - 5
querywindow.pas

@@ -8,7 +8,7 @@ uses
   Classes, SysUtils, IBConnection, sqldb, db, FileUtil, LResources, Forms,
   Controls, Graphics, Dialogs, ExtCtrls, PairSplitter, StdCtrls, Buttons,
   DBGrids, Menus, ComCtrls, SynEdit, SynHighlighterSQL, Reg, sqlscript,
-  SynEditTypes, Clipbrd,grids;
+  SynEditTypes, Clipbrd, grids, DbCtrls;
 
 type
 
@@ -343,6 +343,8 @@ var
   DBGrid: TDBGrid;
   DataSource: TDataSource;
   StatusBar: TStatusBar;
+  Nav: TDBNavigator;
+  Pan: TPanel;
 begin
   ATab:= TTabSheet.Create(nil);
   Result:= ATab;
@@ -368,6 +370,13 @@ begin
     DataSource.DataSet:= SqlQuery;
     AddResultControl(ATab, DataSource);
 
+    // Panel
+    pan:= TPanel.Create(nil);
+    pan.Parent:= ATab;
+    Pan.Height:= 30;
+    Pan.Align:= alTop;
+    AddResultControl(ATab, Pan);
+
     // Query result Grid
     DBGrid:= TDBGrid.Create(nil);
     DBGrid.Parent:= ATab;
@@ -376,12 +385,22 @@ begin
     DBGrid.OnDblClick:= @DBGrid1DblClick;
     DBGrid.ReadOnly:= False;
     DBGrid.AutoEdit:= False;
-//    DBGrid.FixedColor:= $00DDDACF;   // delete
+
     DBGrid.PopupMenu:= pmGrid;
-    DBGrid.TitleStyle:=tsNative; // add
-    DBGrid.Options:= DBGrid.Options + [dgAutoSizeColumns,dgHeaderHotTracking, dgHeaderPushedLook];  // edit
-    DBGrid.OnTitleClick:=@DBGridTitleClick;  //  add
+    DBGrid.TitleStyle:= tsNative;
+    DBGrid.Options:= DBGrid.Options + [dgAutoSizeColumns,dgHeaderHotTracking, dgHeaderPushedLook, dgAnyButtonCanSelect];
+    DBGrid.Options:= DBGrid.Options - [dgEditing];
+
+    DBGrid.OnTitleClick:= @DBGridTitleClick;
     AddResultControl(ATab, DBGrid);
+
+    // Navigator
+    Nav:= TDBNavigator.Create(nil);
+    Nav.Parent:= Pan;
+    Nav.VisibleButtons:= [nbFirst, nbNext, nbPrior, nbLast, nbRefresh];
+    Nav.DataSource:= DataSource;
+    AddResultControl(ATab, Nav);
+
   end
   else
   if QueryType in [2, 3] then