r13

README.md

@@ -12,6 +12,7 @@ Current features
 - instant run (without saving, script-like).
 - synchronized edition in a block.
 - D syntax highlighter, folding, identifier markup.
+- current module member list.
 
 Planed in version 1
 -------------------
@@ -22,7 +23,7 @@ Planed in version 1
 
 Project information
 -------------------
-- state: alpha 1.
+- state: alpha 2.
 - programmed in Object pascal with [Lazarus](http://www.lazarus.freepascal.org).
 - based on *dmd* (*gdc* or *lmd* characteristics are not handled).
 - no other third party dependencies (so far...but using *dscanner* and/or *dcd* is envisaged.)

src/ce_editor.pas

@@ -8,7 +8,7 @@ uses
   Classes, SysUtils, FileUtil, ExtendedNotebook, Forms, Controls, lcltype,
   Graphics, SynEditKeyCmds, ComCtrls, SynEditHighlighter, ExtCtrls, Menus,
   SynEditHighlighterFoldBase, SynMacroRecorder, SynPluginSyncroEdit, SynEdit,
-  SynHighlighterLFM, ce_widget, ce_d2syn, ce_synmemo, ce_common;
+  SynHighlighterLFM, ce_widget, ce_d2syn, ce_synmemo, ce_common, AnchorDocking;
 
 type
   { TCEEditorWidget }
@@ -67,6 +67,7 @@ begin
   finally
     bmp.Free;
   end;
+  DockMaster.GetAnchorSite(Self).Name := ID;
 end;
 
 function TCEEditorWidget.getEditorCount: NativeInt;

src/ce_main.lfm

@@ -1,7 +1,7 @@
 object CEMainForm: TCEMainForm
-  Left = 1152
+  Left = 1113
   Height = 53
-  Top = 23
+  Top = 26
   Width = 745
   AllowDropFiles = True
   Caption = 'Coedit'
@@ -137,6 +137,42 @@ object CEMainForm: TCEMainForm
       end
       object mnuItemMruFile: TMenuItem
         Caption = 'Open recent file'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000FFFFFF000000
+          00000000000000000000000000000000001200000025000000330000002E0000
+          00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+          0000000000120000002500000033326E987A3E8BC1C84195D1FF3892D1ED0000
+          00330000003300000033000000330000003300000023FFFFFF00FFFFFF000000
+          002F326F997C3D8AC1C74092CEFF54ADDEFF66C4EDFF78E0FEFF3591D1FFBBB2
+          AAFFB0AEABFFADADABFFAEAEABFFAFAFADFFA4A4A2C0FFFFFF00FFFFFF004295
+          CEEF58B0DFFF6DC9EFFF7FE2FDFF7EE3FEFF7ADEFCFF7EE1FFFF308CCDFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB0B0ADFFFFFFFF00FFFFFF004094
+          CFFF92F1FFFF85E7FFFF80E1FDFF7ADEFBFF77DBFBFF83E1FFFF308ACBFFFFFF
+          FBFFFFFFFDFFFCFCFCFFFCFCFCFFFFFFFFFFAEAEABFFFFFFFF00FFFFFF003E92
+          CEFF9AF0FFFF83E4FDFF7EDFFCFF7ADDFBFF76DAFAFF89E2FEFF48A8DDFF70AE
+          D9FFFFFCF8FFF9F6F6FFF7F6F6FFFFFFFFFFADADABFFFFFFFF00FFFFFF003E92
+          CEFFA3F1FFFF82E3FCFF7EDFFCFF7ADDFBFF76DAFAFF71D9FBFF9DE8FFFF2A89
+          CBFFFFFBF6FFF6F4F3FFF4F3F3FFFFFFFFFFADADABFFFFFFFF00FFFFFF003D92
+          CEFFADF3FFFF81E3FCFF7EDFFCFF7ADDFBFF76DAFAFF6FD8FAFFABEBFFFF2B89
+          CCFFFFF8F1FFF2F1EFFFEFF0EEFFFFFFFFFFADADABFFFFFFFF00FFFFFF003C92
+          CEFFB6F6FFFF80E3FCFF7DDFFCFF7ADDFBFF76DAFAFF6ED7FAFFB9EFFFFF2A89
+          CCFFFCF2EDFFEEECEBFFEBEAEAFFFFFFFFFFADADABFFFFFFFF00FFFFFF003C91
+          CEFFC0F8FFFF7FE2FCFF7DDFFCFF7ADDFBFF75DAFAFF6DD7FAFFC6F3FFFF2989
+          CBFFFFF9F4FFFFFFFFFFFFFFFFFFFFFFFFFFAEAEABFFFFFFFF00FFFFFF003B91
+          CEFFC9F9FFFF7EE2FCFF7CDEFCFF78DCFBFF72D9FAFF6AD6FAFFD2F6FFFF2888
+          CBFFFFFFFFFFCDCBC9FFA4A4A2FFFFFFFFFFAFAFADFFFFFFFF00FFFFFF003A91
+          CEFFD2FCFFFF7AE2FCFF77DDFCFF7FDFFBFF9BE6FDFFB3EDFFFFD4F9FFFF2688
+          CBFFFFFFFFFFA7A5A2FFFFFFFFFFE9E9E9FFB0B0AEACFFFFFF00FFFFFF003991
+          CFFFE9FFFFFFAFF0FFFFCEF7FFFFDAFAFFFFC4ECFCFF8CCAECFF5FAEE0FF82BD
+          E6FFFFFFFFFFFFFFFFFFE9E9E9FFAFAFADA700000000FFFFFF00FFFFFF003C93
+          D0FFE9FFFFFFA8DAF3FF7BBDE4FF4398D2FF408EC7FF6E9CBCFF90A5B2FFBAAF
+          A6FFB5ADA6FFB5AFA9FFB5B1ADA40000000000000000FFFFFF00FFFFFF004297
+          D2FF3B93D0FF62ADDCFF93CDEDFFBBE7FAFFD8FCFFFFD6FCFFFFD3FBFFFFD1FB
+          FFFFD3FCFFFF2E91D5FF000000000000000000000000FFFFFF00FFFFFF00459A
+          D3EF4498D2FF4197D1FF3F95D1FF3D94D0FF3B93D0FF3A92D0FF3A92D0FF3A93
+          D0FF3C94D1FF3E97D3EE000000000000000000000000FFFFFF00
+        }
         ImageIndex = 9
       end
       object MenuItem43: TMenuItem
@@ -181,45 +217,6 @@ object CEMainForm: TCEMainForm
       object MenuItem6: TMenuItem
         Caption = '-'
       end
-      object MenuItem3: TMenuItem
-        Action = actFileSaveAs
-        Bitmap.Data = {
-          36040000424D3604000000000000360000002800000010000000100000000100
-          2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000002C0000
-          0033000000330000003300000033000000330000003300000033000000330000
-          00330000003300000033000000330000002C0000000000000000B3811AE1B781
-          14FFB57E10FFB57D0CFFB67C0BFFB67C0AFFB57C0AFFB67D0AFFB77D0BFFB77E
-          0BFFB77E0CFFB67F10FFB78114FFB3811AE1BB871E00BB871F00B78115FFFEE9
-          C7FFFBE4BDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-          FFFFFFFFFFFFFFE7BCFFFFEAC6FFB78115FFBB861D00BB871F00B67F12FFFBE9
-          CFFFD88500FFFFFFFFFF797B7FFFA2A4A5FFFFFCF3FF828180FF425C72FF385A
-          80FF3784DDFFEB8D00FFFFECCCFFB78011FFBB861C00BC871D00B67F12FFFAE4
-          C1FFDB8D0AFFFEFFFFFFFDF7EBFFFFF8EAFFFFF7E9FFFFFDEBFF507C9CFF7BA3
-          B5FF86D2FFFF1F60A2FFFFEBB6FFBE830DFFC0871600C2891600B68013FFF7DE
-          B5FFDC9317FFFFFFFFFF787879FF7A7979FFA4A2A1FFABA39FFF3AABF2FFA1ED
-          FFFF9ADEFEFF0998FFFF2366A9FFCA8604FF0000000971747E00B68014FFF5D9
-          AAFFDF9822FFFFFFFFFFF1E6D9FFF2E6D9FFF2E6D7FFF6E6D6FFCED9DBFF1D6F
-          C5FF39C4FFFF1DABFFFF7EA3C4FF7C7878FF3B3B3A5674767000B68114FFF4D4
-          A2FFE29F31FFE9E1E2FFFEFFFFFFFEFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFF
-          FFFF1B74D0FFACDBF4FF928782FFC1C0BAFF797B71FF00000033B68115FFF3D1
-          99FFE3A740FFE2A336FFE19F2EFFE19E2BFFE19E2BFFE29F2CFFE3A02CFFE8A3
-          2DFFF1A830FF817F83FFE9E9E8FF898B83FFAC7BA7FF9969CBFFB68115FFF3CE
-          93FFE5AB48FFEED7B6FFF5F3F7FFF5F1F4FFF7F3F6FFFBF8FAFFFCF8FAFFF9F6
-          F9FFF2D9B4FFEEAE40FF7A8185FFE0B1E4FFCB96C7FFAE7DCEFFB68116FFF3CB
-          8CFFE7AE4EFFF5F4F8FFF0E9E4FFF1E9E2FFF8EFE8FF8A847FFF88817EFFF8F0
-          EBFFF7F5F9FFEAAF4BFFF6CD7DFFBC87E4FFBE8ADAFFAC7BCF00B68116FFF1C8
-          87FFE8B258FFF6F5F7FFEEE2D9FFEFE3D9FFFFFAF5FF5C5752FF48423FFFFFFB
-          F7FFF7F6F8FFE9B257FFF2C880FFB68100FFBE8AEC00AB7BDF00B68116FFF2CA
-          85FFEBB962FFF8F8FBFFE9DCD1FFEBDDD1FFFFFFFCFF958B83FF4A443FFFFFFF
-          FFFFFAF9FCFFEBB962FFF2CA83FFB6810FFFBB860F00BC880D00B78218FFF6CC
-          89FFF2C274FFFFFFFFFFFEFDFCFFFFFEFCFFFFFEF9FF93887EFF4A433DFFFFFF
-          FFFFFFFFFFFFF2C274FFF6CC89FFB78217FFBB861C00BB871C00B9851CC5B781
-          16FFB37A06FFD6CFD1FFD4C9C3FFD4C9C1FFD8CCC5FFE3D7D02B4A433D00DFD4
-          CEFFD8D1D2FFB37A06FFB78116FFB9851CC5BB871F00BB871F00
-        }
-      end
       object MenuItem4: TMenuItem
         Action = actFileSave
         Bitmap.Data = {
@@ -298,6 +295,45 @@ object CEMainForm: TCEMainForm
           1BA5BB871F00BB871F00BB871F00BB871F00BB871F00BB871F00
         }
       end
+      object MenuItem3: TMenuItem
+        Action = actFileSaveAs
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000002C0000
+          0033000000330000003300000033000000330000003300000033000000330000
+          00330000003300000033000000330000002C0000000000000000B3811AE1B781
+          14FFB57E10FFB57D0CFFB67C0BFFB67C0AFFB57C0AFFB67D0AFFB77D0BFFB77E
+          0BFFB77E0CFFB67F10FFB78114FFB3811AE1BB871E00BB871F00B78115FFFEE9
+          C7FFFBE4BDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFE7BCFFFFEAC6FFB78115FFBB861D00BB871F00B67F12FFFBE9
+          CFFFD88500FFFFFFFFFF797B7FFFA2A4A5FFFFFCF3FF828180FF425C72FF385A
+          80FF3784DDFFEB8D00FFFFECCCFFB78011FFBB861C00BC871D00B67F12FFFAE4
+          C1FFDB8D0AFFFEFFFFFFFDF7EBFFFFF8EAFFFFF7E9FFFFFDEBFF507C9CFF7BA3
+          B5FF86D2FFFF1F60A2FFFFEBB6FFBE830DFFC0871600C2891600B68013FFF7DE
+          B5FFDC9317FFFFFFFFFF787879FF7A7979FFA4A2A1FFABA39FFF3AABF2FFA1ED
+          FFFF9ADEFEFF0998FFFF2366A9FFCA8604FF0000000971747E00B68014FFF5D9
+          AAFFDF9822FFFFFFFFFFF1E6D9FFF2E6D9FFF2E6D7FFF6E6D6FFCED9DBFF1D6F
+          C5FF39C4FFFF1DABFFFF7EA3C4FF7C7878FF3B3B3A5674767000B68114FFF4D4
+          A2FFE29F31FFE9E1E2FFFEFFFFFFFEFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFF1B74D0FFACDBF4FF928782FFC1C0BAFF797B71FF00000033B68115FFF3D1
+          99FFE3A740FFE2A336FFE19F2EFFE19E2BFFE19E2BFFE29F2CFFE3A02CFFE8A3
+          2DFFF1A830FF817F83FFE9E9E8FF898B83FFAC7BA7FF9969CBFFB68115FFF3CE
+          93FFE5AB48FFEED7B6FFF5F3F7FFF5F1F4FFF7F3F6FFFBF8FAFFFCF8FAFFF9F6
+          F9FFF2D9B4FFEEAE40FF7A8185FFE0B1E4FFCB96C7FFAE7DCEFFB68116FFF3CB
+          8CFFE7AE4EFFF5F4F8FFF0E9E4FFF1E9E2FFF8EFE8FF8A847FFF88817EFFF8F0
+          EBFFF7F5F9FFEAAF4BFFF6CD7DFFBC87E4FFBE8ADAFFAC7BCF00B68116FFF1C8
+          87FFE8B258FFF6F5F7FFEEE2D9FFEFE3D9FFFFFAF5FF5C5752FF48423FFFFFFB
+          F7FFF7F6F8FFE9B257FFF2C880FFB68100FFBE8AEC00AB7BDF00B68116FFF2CA
+          85FFEBB962FFF8F8FBFFE9DCD1FFEBDDD1FFFFFFFCFF958B83FF4A443FFFFFFF
+          FFFFFAF9FCFFEBB962FFF2CA83FFB6810FFFBB860F00BC880D00B78218FFF6CC
+          89FFF2C274FFFFFFFFFFFEFDFCFFFFFEFCFFFFFEF9FF93887EFF4A433DFFFFFF
+          FFFFFFFFFFFFF2C274FFF6CC89FFB78217FFBB861C00BB871C00B9851CC5B781
+          16FFB37A06FFD6CFD1FFD4C9C3FFD4C9C1FFD8CCC5FFE3D7D02B4A433D00DFD4
+          CEFFD8D1D2FFB37A06FFB78116FFB9851CC5BB871F00BB871F00
+        }
+      end
       object MenuItem25: TMenuItem
         Caption = '-'
       end
@@ -867,6 +903,42 @@ object CEMainForm: TCEMainForm
       end
       object mnuItemMruProj: TMenuItem
         Caption = 'Open recent project'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000FFFFFF000000
+          00000000000000000000000000000000001200000025000000330000002E0000
+          00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+          0000000000120000002500000033326E987A3E8BC1C84195D1FF3892D1ED0000
+          00330000003300000033000000330000003300000023FFFFFF00FFFFFF000000
+          002F326F997C3D8AC1C74092CEFF54ADDEFF66C4EDFF78E0FEFF3591D1FFBBB2
+          AAFFB0AEABFFADADABFFAEAEABFFAFAFADFFA4A4A2C0FFFFFF00FFFFFF004295
+          CEEF58B0DFFF6DC9EFFF7FE2FDFF7EE3FEFF7ADEFCFF7EE1FFFF308CCDFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB0B0ADFFFFFFFF00FFFFFF004094
+          CFFF92F1FFFF85E7FFFF80E1FDFF7ADEFBFF77DBFBFF83E1FFFF308ACBFFFFFF
+          FBFFFFFFFDFFFCFCFCFFFCFCFCFFFFFFFFFFAEAEABFFFFFFFF00FFFFFF003E92
+          CEFF9AF0FFFF83E4FDFF7EDFFCFF7ADDFBFF76DAFAFF89E2FEFF48A8DDFF70AE
+          D9FFFFFCF8FFF9F6F6FFF7F6F6FFFFFFFFFFADADABFFFFFFFF00FFFFFF003E92
+          CEFFA3F1FFFF82E3FCFF7EDFFCFF7ADDFBFF76DAFAFF71D9FBFF9DE8FFFF2A89
+          CBFFFFFBF6FFF6F4F3FFF4F3F3FFFFFFFFFFADADABFFFFFFFF00FFFFFF003D92
+          CEFFADF3FFFF81E3FCFF7EDFFCFF7ADDFBFF76DAFAFF6FD8FAFFABEBFFFF2B89
+          CCFFFFF8F1FFF2F1EFFFEFF0EEFFFFFFFFFFADADABFFFFFFFF00FFFFFF003C92
+          CEFFB6F6FFFF80E3FCFF7DDFFCFF7ADDFBFF76DAFAFF6ED7FAFFB9EFFFFF2A89
+          CCFFFCF2EDFFEEECEBFFEBEAEAFFFFFFFFFFADADABFFFFFFFF00FFFFFF003C91
+          CEFFC0F8FFFF7FE2FCFF7DDFFCFF7ADDFBFF75DAFAFF6DD7FAFFC6F3FFFF2989
+          CBFFFFF9F4FFFFFFFFFFFFFFFFFFFFFFFFFFAEAEABFFFFFFFF00FFFFFF003B91
+          CEFFC9F9FFFF7EE2FCFF7CDEFCFF78DCFBFF72D9FAFF6AD6FAFFD2F6FFFF2888
+          CBFFFFFFFFFFCDCBC9FFA4A4A2FFFFFFFFFFAFAFADFFFFFFFF00FFFFFF003A91
+          CEFFD2FCFFFF7AE2FCFF77DDFCFF7FDFFBFF9BE6FDFFB3EDFFFFD4F9FFFF2688
+          CBFFFFFFFFFFA7A5A2FFFFFFFFFFE9E9E9FFB0B0AEACFFFFFF00FFFFFF003991
+          CFFFE9FFFFFFAFF0FFFFCEF7FFFFDAFAFFFFC4ECFCFF8CCAECFF5FAEE0FF82BD
+          E6FFFFFFFFFFFFFFFFFFE9E9E9FFAFAFADA700000000FFFFFF00FFFFFF003C93
+          D0FFE9FFFFFFA8DAF3FF7BBDE4FF4398D2FF408EC7FF6E9CBCFF90A5B2FFBAAF
+          A6FFB5ADA6FFB5AFA9FFB5B1ADA40000000000000000FFFFFF00FFFFFF004297
+          D2FF3B93D0FF62ADDCFF93CDEDFFBBE7FAFFD8FCFFFFD6FCFFFFD3FBFFFFD1FB
+          FFFFD3FCFFFF2E91D5FF000000000000000000000000FFFFFF00FFFFFF00459A
+          D3EF4498D2FF4197D1FF3F95D1FF3D94D0FF3B93D0FF3A92D0FF3A92D0FF3A93
+          D0FF3C94D1FF3E97D3EE000000000000000000000000FFFFFF00
+        }
         ImageIndex = 9
       end
       object MenuItem42: TMenuItem

src/ce_main.pas

@@ -7,12 +7,48 @@ interface
 uses
   Classes, SysUtils, FileUtil, SynEditKeyCmds, SynHighlighterLFM, Forms,
   AnchorDocking, AnchorDockStorage, AnchorDockOptionsDlg, Controls, Graphics,
-  Dialogs, Menus, ActnList, ExtCtrls, process,
+  Dialogs, Menus, ActnList, ExtCtrls, process, XMLPropStorage,
   ce_common, ce_dmdwrap, ce_project, ce_synmemo, ce_widget, ce_messages,
   ce_editor, ce_projinspect, ce_projconf, ce_staticexplorer, ce_search;
 
 type
 
+  TCEMainForm = class;
+
+  (**
+   * Encapsulates the options.
+   * note: likely to change however needed to test correctly Coedit.
+   *)
+  TCEOptions = class(TComponent)
+  private
+    fFileMru, fProjMru: TMruFileList;
+    fWidgUpdDel, fWidgUpdPer: Integer;
+    fLeft, FTop, fWidth, fHeight: Integer;
+    procedure setFileMru(aValue: TMruFileList);
+    procedure setProjMru(aValue: TMruFileList);
+    procedure saveLayout(str: TStream);
+    procedure loadLayout(str: TStream);
+  published
+    property APP_Left: Integer read fLeft write fLeft;
+    property APP_Top: Integer read fTop write fTop;
+    property APP_Width: Integer read fWidth write fWidth;
+    property APP_Height: Integer read fHeight write fHeight;
+    //
+    property MRU_Files: TMruFileList read fFileMru write setFileMru;
+    property MRU_Projects: TMruFileList read fProjMru write setProjMru;
+    //
+    property WIDG_UpdateDelay: Integer read fWidgUpdDel write fWidgUpdDel;
+    property WIDG_UpdatePeriod: Integer read fWidgUpdPer write fWidgUpdPer;
+  public
+    constructor create(aOwner: TComponent); override;
+    destructor destroy; override;
+    procedure saveToFile(const aFilename: string);
+    procedure loadFromFile(const aFilename: string);
+    procedure beforeSave;
+    procedure afterSave;
+    procedure DefineProperties(Filer: TFiler); override;
+  end;
+
   { TCEMainForm }
   TCEMainForm = class(TForm)
     actFileCompAndRun: TAction;
@@ -217,6 +253,7 @@ var
   act: TAction;
   itm: TMenuItem;
   widg: TCEWidget;
+  opts: TCEOptions;
 begin
   inherited create(aOwner);
   //
@@ -275,10 +312,28 @@ begin
 
   newProj;
 
+  opts := TCEOptions.create(nil);
+  try
+  if fileExists('temp_coedit_options.txt') then
+    opts.loadFromFile('temp_coedit_options.txt');
+  finally
+    opts.Free;
+  end;
+
+
 end;
 
 destructor TCEMainForm.destroy;
+var
+  opts: TCEOptions;
 begin
+  opts := TCEOptions.create(nil);
+  try
+    opts.saveToFile('temp_coedit_options.txt');
+  finally
+    opts.Free;
+  end;
+  //
   fWidgList.Free;
   fMesgWidg.Free;
   fEditWidg.Free;
@@ -307,9 +362,9 @@ begin
     hasEd := curr <> nil;
     if hasEd then
     begin
-      actEdCopy.Enabled := curr.SelAvail;
+      actEdCopy.Enabled := curr.SelAvail and fEditWidg.Focused;     // allows copy/cut/paste by shortcut on widgets
-      actEdCut.Enabled := curr.SelAvail;
+      actEdCut.Enabled := curr.SelAvail and fEditWidg.Focused;      //
-      actEdPaste.Enabled := curr.CanPaste;
+      actEdPaste.Enabled := curr.CanPaste and fEditWidg.Focused;
       {$IFDEF MSWINDOWS}
       // close file : raises a segfault on linux UndoStuff.>>fList<<.Count...
       actEdUndo.Enabled := curr.CanUndo;
@@ -383,7 +438,7 @@ begin
   mainMenu.Items.Add(prt);
   for i := 0 to cnt-1 do
   begin
-    itm := TMenuItem.Create(self);
+    itm := TMenuItem.Create(prt);
     itm.Action := aWidget.contextAction(i);
     prt.Add(itm);
   end;
@@ -603,7 +658,7 @@ begin
   '    writeln("this is just a `toy feature`");' + LineEnding +
   '    writeln;' + LineEnding +
   '    writeln("coedit saves a temp d module before compiling it and running it...");' + LineEnding +
-  '}' + LineEnding;
+  '}';
 end;
 
 procedure TCEMainForm.actFileSaveAsExecute(Sender: TObject);
@@ -756,6 +811,7 @@ begin
   curr := fEditWidg.currentEditor;
   if assigned(curr) then curr.ExecuteCommand(ecBlockUnIndent, '', nil);
 end;
+
 {$ENDREGION}
 
 {$REGION run  ******************************************************************}
@@ -820,6 +876,8 @@ begin
     dmdproc.Options:= [poStdErrToOutput, poUsePipes];
     dmdproc.Executable:= 'dmd';
     dmdproc.Parameters.Add(fname + '.d');
+    dmdproc.Parameters.Add('-w');
+    dmdproc.Parameters.Add('-wi');
     try
       dmdproc.Execute;
       while dmdproc.Running do if dmdproc.ExitStatus <> 0 then break;
@@ -1170,4 +1228,126 @@ begin
   EditWidget.currentEditor.Highlighter := LfmSyn;
 end;
 {$ENDREGION}
+
+{$REGION options ***************************************************************}
+constructor TCEOptions.create(aOwner: TComponent);
+begin
+  inherited;
+  fFileMru := TMruFileList.Create;
+  fProjMru := TMruFileList.Create;
+  //
+  fWidgUpdDel := 70;
+  fWidgUpdPer := 1000;
+  fLeft := 0;
+  fTop := 0;
+  fWidth := 800;
+  fHeight := 600;
+end;
+
+destructor TCEOptions.destroy;
+begin
+  fFileMru.Free;
+  fProjMru.Free;
+  inherited;
+end;
+
+procedure TCEOptions.setFileMru(aValue: TMruFileList);
+begin
+  fFileMru.Assign(aValue);
+end;
+
+procedure TCEOptions.setProjMru(aValue: TMruFileList);
+begin
+  fProjMru.Assign(aValue);
+end;
+
+procedure TCEOptions.saveLayout(str: TStream);
+var
+  st: TXMLConfigStorage;
+  cf: TPropStorageXMLConfig;
+begin
+  cf := TPropStorageXMLConfig.Create(nil);
+  st := TXMLConfigStorage.Create(cf);
+  try
+    DockMaster.SaveLayoutToConfig(st);
+    cf.SaveToStream(str);
+    str.Position := 0;
+  finally
+    st.Free;
+    cf.Free;
+  end;
+end;
+
+procedure TCEOptions.loadLayout(str: TStream);
+var
+  st: TXMLConfigStorage;
+  cf: TPropStorageXMLConfig;
+begin
+  cf := TPropStorageXMLConfig.Create(nil);
+  st := TXMLConfigStorage.Create(cf);
+  try
+    cf.LoadFromStream(str);
+    DockMaster.LoadLayoutFromConfig(st,true);
+  finally
+    st.Free;
+    cf.Free;
+  end;
+end;
+
+
+procedure TCEOptions.DefineProperties(Filer: TFiler);
+begin
+  //Filer.DefineBinaryProperty('APP_Docking', @loadLayout, @saveLayout, true);
+end;
+
+procedure TCEOptions.beforeSave;
+begin
+  fLeft   := mainForm.Left;
+  fTop    := mainForm.Top;
+  fWidth  := mainForm.Width;
+  fHeight := mainForm.Height;
+  //
+  fFileMru.Assign(mainForm.fFileMru);
+  fProjMru.Assign(mainForm.fProjMru);
+  //
+  fWidgUpdPer := mainForm.fEditWidg.updaterByLoopInterval;
+  fWidgUpdDel := mainForm.fEditWidg.updaterByDelayDuration;
+end;
+
+procedure TCEOptions.saveToFile(const aFilename: string);
+begin
+  beforeSave;
+  saveCompToTxtFile(Self, aFilename);
+end;
+
+procedure TCEOptions.loadFromFile(const aFilename: string);
+begin
+  try
+    loadCompFromTxtFile(Self, aFilename);
+  except
+    exit;
+  end;
+  afterSave;
+end;
+
+procedure TCEOptions.afterSave;
+var
+  widg: TCEWidget;
+begin
+  mainForm.Left   := fLeft;
+  mainForm.Top    := fTop;
+  mainForm.Width  := fWidth;
+  mainForm.Height := fHeight;
+  //
+  mainForm.fFileMru.Assign(fFileMru);
+  mainForm.fProjMru.Assign(fProjMru);
+  //
+  for widg in mainForm.fWidgList do
+  begin
+    widg.updaterByDelayDuration := fWidgUpdDel;
+    widg.updaterByLoopInterval := fWidgUpdPer;
+  end;
+end;
+{$ENDREGION}
+
 end.

src/ce_messages.lfm

@@ -24,7 +24,6 @@ inherited CEMessagesWidget: TCEMessagesWidget
         Width = 740
         Align = alClient
         AutoSort = False
-        AutoWidthLastColumn = True
         BorderSpacing.Around = 2
         Columns = <        
           item

src/ce_messages.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
-  ExtCtrls, ComCtrls, ce_widget, ActnList, Menus, clipbrd;
+  ExtCtrls, ComCtrls, ce_widget, ActnList, Menus, clipbrd, AnchorDocking;
 
 type
 
@@ -70,6 +70,7 @@ begin
   fID := 'ID_MSGS';
   //
   List.PopupMenu := contextMenu;
+  DockMaster.GetAnchorSite(Self).Name := ID;
 end;
 
 procedure TCEMessagesWidget.scrollToBack;

src/ce_projconf.pas

@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, FileUtil, RTTIGrids, Forms, Controls, Graphics, Dialogs,
   ExtCtrls, ComCtrls, StdCtrls, Menus, Buttons, PropEdits, ObjectInspector,
-  ce_dmdwrap, ce_project, ce_widget;
+  ce_dmdwrap, ce_project, ce_widget, AnchorDocking;
 
 type
 
@@ -47,7 +47,9 @@ implementation
 constructor TCEProjectConfigurationWidget.create(aOwner: TComponent);
 begin
   inherited;
+  fID := 'PROJ_CONF';
   Tree.Selected := Tree.Items.GetLastNode;
+  DockMaster.GetAnchorSite(Self).Name := ID;
 end;
 
 procedure TCEProjectConfigurationWidget.projNew(const aProject: TCEProject);

src/ce_projinspect.pas

@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, FileUtil, TreeFilterEdit, Forms, Controls, Graphics,
   actnlist, Dialogs, ExtCtrls, ComCtrls, Menus, Buttons, ce_project,
-  ce_common, ce_widget;
+  ce_common, ce_widget, AnchorDocking;
 
 type
   { TCEProjectInspectWidget }
@@ -71,6 +71,7 @@ begin
   fConfNode := Tree.Items[1];
   //
   Tree.PopupMenu := contextMenu;
+  DockMaster.GetAnchorSite(Self).Name := ID;
 end;
 
 function TCEProjectInspectWidget.contextName: string;

src/ce_search.lfm

@@ -169,7 +169,7 @@ inherited CESearchWidget: TCESearchWidget
           Height = 19
           Top = 24
           Width = 60
-          Caption = 'Prompt'
+          Caption = 'prompt'
           TabOrder = 4
         end
       end

src/ce_search.pas

@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   Menus, StdCtrls, actnList, Buttons, SynEdit, SynEditSearch, SynEditTypes, ce_common,
-  ce_widget, ce_synmemo;
+  ce_widget, ce_synmemo, AnchorDocking;
 
 type
 
@@ -39,6 +39,7 @@ type
     fActReplaceAll: TAction;
     fSearchMru, fReplaceMru: TMruList;
     fCancelAll: boolean;
+    fHasSearched: boolean;
     function getOptions: TSynSearchOptions;
     procedure actFindNextExecute(sender: TObject);
     procedure actReplaceAllExecute(sender: TObject);
@@ -82,6 +83,7 @@ begin
   //
   fSearchMru := TMruList.Create;
   fReplaceMru:= TMruList.Create;
+  DockMaster.GetAnchorSite(Self).Name := ID;
 end;
 
 destructor TCESearchWidget.Destroy;
@@ -105,7 +107,7 @@ end;
 
 function TCESearchWidget.contextName: string;
 begin
-  exit('Seach');
+  exit('Search');
 end;
 
 function TCESearchWidget.contextActionCount: integer;
@@ -127,6 +129,7 @@ procedure TCESearchWidget.cbToFindChange(Sender: TObject);
 begin
   if Updating then exit;
   fToFind := cbToFind.Text;
+  fHasSearched := false;
 end;
 
 procedure TCESearchWidget.chkEnableRepChange(Sender: TObject);
@@ -139,6 +142,7 @@ procedure TCESearchWidget.cbReplaceWthChange(Sender: TObject);
 begin
   if Updating then exit;
   fReplaceWth := cbReplaceWth.Text;
+  fHasSearched := false;
 end;
 
 function TCESearchWidget.getOptions: TSynSearchOptions;
@@ -155,11 +159,23 @@ begin
   if fEditor = nil then exit;
   //
   fSearchMru.Insert(0,fToFind);
-  if not chkFromCur.Checked then if chkBack.Checked then
+  if not chkFromCur.Checked then
-    fEditor.CaretXY := Point(high(Integer), high(Integer)) else
+  begin
+    if chkBack.Checked then
+      fEditor.CaretXY := Point(high(Integer), high(Integer))
+    else
       fEditor.CaretXY := Point(0,0);
+  end
+  else if fHasSearched then
+  begin
+    if chkBack.Checked then
+      fEditor.CaretX := fEditor.CaretX - 1
+    else
+      fEditor.CaretX := fEditor.CaretX + length(fToFind);
+  end;
   if fEditor.SearchReplace(fToFind, '', getOptions) = 0 then
-    dlgOkInfo('the expression cannot be found');
+    dlgOkInfo('the expression cannot be found')
+  else fHasSearched := true;
   UpdateByEvent;
 end;
 
@@ -171,10 +187,22 @@ begin
   fReplaceMru.Insert(0, fReplaceWth);
   if chkPrompt.Checked then
     fEditor.OnReplaceText := @replaceEvent;
-  if not chkFromCur.Checked then if chkBack.Checked then
+  if not chkFromCur.Checked then
-    fEditor.CaretXY := Point(high(Integer), high(Integer)) else
+  begin
+    if chkBack.Checked then
+      fEditor.CaretXY := Point(high(Integer), high(Integer))
+    else
       fEditor.CaretXY := Point(0,0);
-  fEditor.SearchReplace(fToFind, fReplaceWth, getOptions + [ssoReplace]);
+  end
+  else if fHasSearched then
+  begin
+    if chkBack.Checked then
+      fEditor.CaretX := fEditor.CaretX - 1
+    else
+      fEditor.CaretX := fEditor.CaretX + length(fToFind);
+  end;
+  if fEditor.SearchReplace(fToFind, fReplaceWth, getOptions + [ssoReplace]) <> 0 then
+    fHasSearched := true;
   fEditor.OnReplaceText := nil;
   UpdateByEvent;
 end;

src/ce_staticexplorer.pas

@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, FileUtil, TreeFilterEdit, Forms, Controls, Graphics,
   Dialogs, ExtCtrls, Menus, ComCtrls, ce_widget, jsonparser, fpjson,
-  ce_synmemo, process, actnlist, ce_common, ce_project;
+  ce_synmemo, process, actnlist, ce_common, ce_project, AnchorDocking;
 
 type
 
@@ -86,6 +86,7 @@ begin
   //
   Tree.OnDblClick := @TreeDblClick;
   Tree.PopupMenu := contextMenu;
+  DockMaster.GetAnchorSite(Self).Name := ID;
 end;
 
 function TCEStaticExplorerWidget.contextName: string;
@@ -162,7 +163,7 @@ end;
 procedure TCEStaticExplorerWidget.TreeDeletion(Sender: TObject; Node: TTreeNode);
 begin
   if (node.Data <> nil) then
-    FreeMem(node.Data)
+    Dispose(PInt64(node.Data));
 end;
 
 procedure TCEStaticExplorerWidget.TreeKeyPress(Sender: TObject; var Key: char);
@@ -191,12 +192,32 @@ var
   prs: TJsonParser;
   dat: TJsonData;
   memb: TJsonData;
-  submemb: TJsonData;
   jsf, scf: string;
   ndCat: TTreeNode;
   ln: PInt64;
   nme: string;
-  i, j: NativeInt;
+  i: NativeInt;
+
+  // recursivively display members, without master categories.
+  procedure digMembers(const srcDt: TJsonData; const srcNd: TTreeNode);
+  var
+    _memb: TJsonData;
+    _ln: PInt64;
+    _nme: string;
+    _i: NativeInt;
+    _nd: TTreeNode;
+  begin
+    _memb := srcDt.FindPath('members');
+    if _memb <> nil then for _i := 0 to _memb.Count-1 do
+    begin
+      _ln   := new(PInt64);
+      _ln^  := _memb.Items[_i].GetPath('line').AsInt64;
+      _nme  := _memb.Items[_i].GetPath('name').AsString;
+      _nd   := Tree.Items.AddChildObject(srcNd, _nme, _ln);
+      digMembers(_memb.Items[_i], _nd);
+    end;
+  end;
+
 begin
   if ndAlias = nil then exit;
 
@@ -224,7 +245,6 @@ begin
 
   if fDoc = nil then exit;
   if fDoc.Lines.Count = 0 then exit;
-  subMemb := nil;
   memb := nil;
 
   // generate json
@@ -294,7 +314,7 @@ begin
     if memb <> nil then for i := 0 to memb.Count-1 do
     begin
 
-      // category
+      // categories
       ln  := new(PInt64);
       ln^ := memb.Items[i].GetPath('line').AsInt64;
       nme := memb.Items[i].GetPath('name').AsString;
@@ -314,15 +334,8 @@ begin
 
       ndCat.Parent.Visible := true;
 
-      // optional item members
+      //recursive
-      submemb := memb.Items[i].FindPath('members');
+      digMembers(memb.Items[i], ndCat);
-      if subMemb <> nil then for j := 0 to submemb.Count-1 do
-      begin
-        ln  := new(PInt64);
-        ln^ := submemb.Items[j].GetPath('line').AsInt64;
-        nme := submemb.Items[j].GetPath('name').AsString;
-        Tree.Items.AddChildObject(ndCat, nme, ln);
-      end;
 
     end;
   finally

src/ce_widget.pas

@@ -100,6 +100,9 @@ type
 implementation
 {$R *.lfm}
 
+uses
+  ce_main;
+
 (*******************************************************************************
  * TCEWidget
  *)
@@ -121,6 +124,7 @@ begin
 
   DockMaster.MakeDockable(Self, true, true, true);
   DockMaster.GetAnchorSite(Self).Header.HeaderPosition := adlhpTop;
+  DockMaster.GetAnchorSite(Self).Name := ID;
 
   for i := 0 to contextActionCount-1 do
   begin