diff --git a/source/childwin.dfm b/source/childwin.dfm index e4035cba..c02563eb 100644 --- a/source/childwin.dfm +++ b/source/childwin.dfm @@ -938,10 +938,19 @@ object MDIChild: TMDIChild BevelOuter = bvNone Constraints.MinHeight = 10 TabOrder = 1 + object spltQueryHelpers: TSplitter + Left = 332 + Top = 0 + Width = 4 + Height = 96 + Cursor = crSizeWE + Align = alRight + ResizeStyle = rsUpdate + end object SynMemoQuery: TSynMemo Left = 0 Top = 0 - Width = 336 + Width = 332 Height = 96 SingleLineMode = False Align = alClient diff --git a/source/childwin.pas b/source/childwin.pas index 886fbda9..6db5304b 100644 --- a/source/childwin.pas +++ b/source/childwin.pas @@ -286,6 +286,7 @@ type MenuItem2: TMenuItem; lblDataTop: TLabel; btnDataSorting: TSpeedButton; + spltQueryHelpers: TSplitter; procedure menuclearClick(Sender: TObject); procedure popupQueryPopup(Sender: TObject); procedure lboxQueryHelpersClick(Sender: TObject); @@ -910,6 +911,11 @@ begin pnlQueryMemo.Height := ReadInteger('querymemoheight'); end; + if ValueExists( 'queryhelperswidth' ) then + begin + pnlQueryHelpers.Width := ReadInteger('queryhelperswidth'); + end; + if ( ValueExists( 'dbtreewidth' ) ) then begin DBtree.Width := ReadInteger( 'dbtreewidth' ); @@ -1051,6 +1057,7 @@ begin WriteInteger( 'childwinheight', height ); WriteInteger( 'querymemoheight', pnlQueryMemo.Height ); + WriteInteger( 'queryhelperswidth', pnlQueryHelpers.Width ); WriteInteger( 'dbtreewidth', dbtree.width ); WriteInteger( 'sqloutheight', PageControlBottom.Height );