diff --git a/lazproj/coedit.lpi b/lazproj/coedit.lpi
index 5f770df9..1059579c 100644
--- a/lazproj/coedit.lpi
+++ b/lazproj/coedit.lpi
@@ -140,7 +140,7 @@
-
+
@@ -336,23 +336,18 @@
-
-
-
-
-
-
-
+
+
-
+
diff --git a/lazproj/coedit.lpr b/lazproj/coedit.lpr
index 5de38527..ec5a945e 100644
--- a/lazproj/coedit.lpr
+++ b/lazproj/coedit.lpr
@@ -8,11 +8,12 @@ uses
{$ENDIF}{$ENDIF}
Interfaces, Forms, lazcontrols, runtimetypeinfocontrols, ce_observer, ce_libman,
ce_tools, ce_dcd, ce_main, ce_writableComponent, ce_options, ce_symstring,
- ce_staticmacro, ce_icons, ce_inspectors;
+ ce_staticmacro, ce_inspectors, LResources;
{$R *.res}
begin
+ {$I ../src/ce_icons.inc}
Application.Initialize;
Application.CreateForm(TCEMainForm, CEMainForm);
Application.Run;
diff --git a/src/ce_d2syn.pas b/src/ce_d2syn.pas
index 365bb2ec..d13913b2 100644
--- a/src/ce_d2syn.pas
+++ b/src/ce_d2syn.pas
@@ -430,8 +430,6 @@ begin
end;
//TODO-ccomments: nested comments with multiple nesting on the same line.
-
-{$BOOLEVAL ON}
procedure TSynD2Syn.next;
var
reader: PChar;
@@ -801,7 +799,6 @@ begin
// Should not happend
assert(false);
end;
-{$BOOLEVAL OFF}
function TSynD2Syn.GetEol: Boolean;
begin
diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index bc952904..a1f8caa3 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -99,7 +99,7 @@ begin
//
completion.OnPaintItem := @completionItemPaint;
fSyncEdit := TSynPluginSyncroEdit.Create(self);
- //TODO: activate this after next Laz release
+ //TODO-ccLCL&LAZ-specific: activate this after next Laz release
//fSyncEdit.CaseSensitive:=true;
bmp := TBitmap.Create;
try
@@ -289,9 +289,7 @@ end;
procedure TCEEditorWidget.memoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if not (ssLeft in Shift) then exit;
- //
beginUpdateByDelay;
- UpdateByEvent;
end;
procedure TCEEditorWidget.memoCtrlClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
@@ -356,6 +354,7 @@ var
md: string;
begin
if fDoc = nil then exit;
+ UpdateByEvent;
if not fKeyChanged then exit;
//
fKeyChanged := false;
diff --git a/src/ce_icons.pas b/src/ce_icons.pas
deleted file mode 100644
index d26a3802..00000000
--- a/src/ce_icons.pas
+++ /dev/null
@@ -1,16 +0,0 @@
-unit ce_icons;
-
-{$I ce_defines.inc}
-
-interface
-
-uses
- Classes, SysUtils, LResources;
-
-implementation
-
-
-initialization
- {$I ce_icons.inc}
-end.
-
diff --git a/src/ce_main.pas b/src/ce_main.pas
index fcfd9f13..3316b68c 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -539,7 +539,7 @@ begin
if not Visible then exit;
//
if WindowState = wsMinimized then WindowState := wsNormal;
- // TODO-cbugfix: check new docking persistence behaviour on new Laz release.
+ // TODO-cLCL&LAZ-specific: check new docking persistence behaviour on new Laz release.
// does not save minimized/undocked windows to prevent bugs
for i:= 0 to fWidgList.Count-1 do
begin
@@ -1353,8 +1353,6 @@ label
begin
if fProject.currentConfiguration.outputOptions.binaryKind <> executable then
begin
- // TODO-cfeature: define an alternative exe name for shared lib:
- // e.g: the dll produced by the proj. is the input filename of an host app.
dlgOkInfo('Non executable projects cant be run');
exit;
end;
@@ -1425,7 +1423,7 @@ var
xcfg: TXMLConfigStorage;
i: NativeInt;
begin
- // TODO-cbugfix: possible loading AV, xml saved after undocking some widgets, xml file abnormal size.
+ // TODO-cLCL&LAZ-specific: possible loading AV, xml saved after undocking some widgets, xml file abnormal size.
for i:= 0 to fWidgList.Count-1 do
begin
if DockMaster.GetAnchorSite(fWidgList.widget[i]).WindowState = wsMinimized then
diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas
index c90ebdc8..01bd839f 100644
--- a/src/ce_miniexplorer.pas
+++ b/src/ce_miniexplorer.pas
@@ -112,8 +112,8 @@ begin
Tree.OnExpanding := @treeExpanding;
// http://bugs.freepascal.org/view.php?id=27137
- // TODO-cCleanup: remove comment after next Laz release
- // TODO-cfeature, try the new TListViewFilterEdit here.
+ // TODO-cLCL&LAZ-specific: remove comment after next Laz release
+ // TODO-cLCL&LAZ-specific, try the new TListViewFilterEdit here.
lstFilter.FilteredListbox := nil;
lstFilter.onChange := @lstFilterChange;
//
diff --git a/src/ce_todolist.pas b/src/ce_todolist.pas
index a5cb088a..0efd9cb4 100644
--- a/src/ce_todolist.pas
+++ b/src/ce_todolist.pas
@@ -179,8 +179,8 @@ begin
fAutoRefresh := true;
mnuAutoRefresh.Checked := true;
// http://bugs.freepascal.org/view.php?id=27137
- // TODO-cCleanup: remove comment after next Laz release
- // TODO-cfeature, try the new TListViewFilterEdit here.
+ // TODO-cLCL&LAZ-specific: remove comment after next Laz release
+ // TODO-cLCL&LAZ-specific, try the new TListViewFilterEdit here.
lstfilter.OnChange:= @filterItems;
//
png := TPortableNetworkGraphic.Create;