alpha_4

src/ce_editor.pas

@@ -149,7 +149,7 @@ begin
   sheet := pageControl.AddTabSheet;
   memo  := TCESynMemo.Create(sheet);
   //
-  memo.Align:=alClient;
+  memo.Align := alClient;
   memo.Parent := sheet;
   //
   memo.OnKeyDown := @memoKeyDown;

src/ce_main.pas

@@ -367,7 +367,7 @@ begin
     DockMaster.GetAnchorSite(fProjWidg), alBottom, fProjWidg);
   DockMaster.GetAnchorSite(fEditWidg).Header.HeaderPosition := adlhpTop;
 
-  //DockMaster.GetAnchorSite(fExplWidg).Close;
+  DockMaster.GetAnchorSite(fExplWidg).Close;
 end;
 
 procedure TCEMainForm.InitSettings;
@@ -1076,6 +1076,7 @@ begin
 
 
     fMesgWidg.addCeInf( 'compiling ' + aProject.fileName, msProject);
+    application.ProcessMessages;
 
     prjpath := extractFilePath(aProject.fileName);
     if directoryExists(prjpath) then chDir(prjpath);

src/ce_miniexplorer.pas

@@ -67,8 +67,8 @@ implementation
 uses
   ce_main, ce_common;
 
-//TODO-cbugfix: click on the expander glyph, sometime the subdirs are not scanned but the
+//TODO-cbugfix: click on the expander glyph, sometime the subdirs are not scanned but the fake sub item is still displayed
-//fake sub still displayed
+//TODO-cfeature: the linux version doesnt work at all
 
 {$REGION Standard Comp/Obj------------------------------------------------------}
 constructor TCEMiniExplorerWidget.create(aIwner: TComponent);
@@ -321,7 +321,7 @@ begin
       itm.SelectedIndex := 1;
       //
       if hasFolder(fold) then
-        Tree.Items.AddChild(itm,''); //...created here to show the expander glyph
+        Tree.Items.AddChild(itm, ''); //...created here to show the expander glyph
     end;
   finally
     lst.Free;

src/ce_projconf.pas

@@ -67,7 +67,7 @@ end;
 procedure TCEProjectConfigurationWidget.projClose(const aProject: TCEProject);
 begin
   Grid.TIObject := nil;
-  Grid.ItemIndex :=-1;
+  Grid.ItemIndex := -1;
   fProj := nil;
 end;
 

src/ce_search.pas

@@ -275,6 +275,7 @@ begin
 end;
 {$ENDREGION}
 
+{$REGION Misc. -----------------------------------------------------------------}
 procedure TCESearchWidget.cbToFindChange(Sender: TObject);
 begin
   if Updating then exit;
@@ -306,6 +307,7 @@ begin
   cbToFind.Items.Assign(fSearchMru);
   cbReplaceWth.Items.Assign(fReplaceMru);
 end;
+{$ENDREGION}
 
 end.
 

src/ce_staticexplorer.pas

@@ -76,6 +76,8 @@ type
 implementation
 {$R *.lfm}
 
+uses ce_main;
+
 {$REGION Standard Comp/Obj------------------------------------------------------}
 constructor TCEStaticExplorerWidget.create(aOwner: TComponent);
 begin
@@ -321,7 +323,7 @@ var
   jsf, scf: string;
   ndCat: TTreeNode;
   ln: PInt64;
-  nme: string;
+  nme, knd: string;
   i: NativeInt;
 
   // recursively display members, without master categories.
@@ -435,7 +437,8 @@ begin
       ln^ := memb.Items[i].GetPath('line').AsInt64;
       nme := memb.Items[i].GetPath('name').AsString;
 
-      case memb.Items[i].GetPath('kind').AsString of
+      knd := memb.Items[i].GetPath('kind').AsString;
+      case knd of
         'alias'     :ndCat := Tree.Items.AddChildObject(ndAlias, nme, ln);
         'class'     :ndCat := Tree.Items.AddChildObject(ndClass, nme, ln);
         'enum'      :ndCat := Tree.Items.AddChildObject(ndEnum, nme, ln);
@@ -447,6 +450,7 @@ begin
         'struct'    :ndCat := Tree.Items.AddChildObject(ndStruct, nme, ln);
         'template'  :ndCat := Tree.Items.AddChildObject(ndTmp, nme, ln);
         'variable'  :ndCat := Tree.Items.AddChildObject(ndVar, nme, ln);
+        else CEMainForm.MessageWidget.addCeWarn('static explorer does not handle this kind: ' + knd);
       end;
 
       if ndCat = nil then

src/ce_synmemo.pas

@@ -14,7 +14,6 @@ type
   private
     fFilename: string;
     fModified: boolean;
-    fNoDateCheck: boolean;
     fFileDate: double;
     fAssocProject: TCEProject;
     fIsDSource: boolean;
@@ -52,7 +51,7 @@ var
 implementation
 
 uses
-  graphics, ce_main;
+  graphics, ce_main, forms, ExtendedNotebook, comctrls;
 
 constructor TCESynMemo.Create(aOwner: TComponent);
 begin
@@ -124,7 +123,6 @@ begin
   Lines.LoadFromFile(aFilename);
   fFilename := aFilename;
   FileAge(fFilename, fFileDate);
-  fNoDateCheck := false;
   fModified := false;
 end;
 
@@ -133,7 +131,6 @@ begin
   Lines.SaveToFile(aFilename);
   fFilename := aFilename;
   FileAge(fFilename, fFileDate);
-  fNoDateCheck := false;
   fModified := false;
 end;
 
@@ -141,7 +138,6 @@ procedure TCESynMemo.save;
 begin
   Lines.SaveToFile(fFilename);
   FileAge(fFilename, fFileDate);
-  fNoDateCheck := false;
   fModified := false;
 end;
 
@@ -158,8 +154,8 @@ begin
     begin
       Lines.LoadFromFile(fFilename);
       fModified := false;
-    end
+    end;
-    else fNoDateCheck := true;
+    //TODO-cbugfix: the cursor is incorrectly set to crDragSomething.
   end;
   fFileDate := newDate;
 end;
@@ -173,7 +169,8 @@ end;
 procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer);
 begin
   inherited;
-  identifierToD2Syn;
+  if ssLeft in Shift then
+    identifierToD2Syn;
 end;
 
 procedure TCESynMemo.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer);