diff --git a/lazproj/coedit.lpi b/lazproj/coedit.lpi
index 61d5a50c..46a87bc5 100644
--- a/lazproj/coedit.lpi
+++ b/lazproj/coedit.lpi
@@ -152,6 +152,7 @@
+
@@ -169,11 +170,12 @@
+
-
+
@@ -189,8 +191,7 @@
-
-
+
@@ -199,6 +200,7 @@
+
@@ -206,6 +208,7 @@
+
@@ -229,12 +232,10 @@
-
-
@@ -251,14 +252,13 @@
-
+
-
@@ -266,12 +266,10 @@
-
-
@@ -279,7 +277,6 @@
-
@@ -287,7 +284,6 @@
-
@@ -295,11 +291,10 @@
-
-
+
+
-
@@ -308,7 +303,7 @@
-
+
@@ -324,11 +319,11 @@
-
+
+
-
@@ -336,11 +331,11 @@
-
+
@@ -348,12 +343,10 @@
-
-
diff --git a/src/ce_editor.lfm b/src/ce_editor.lfm
index 9f6f6948..9d9f3799 100644
--- a/src/ce_editor.lfm
+++ b/src/ce_editor.lfm
@@ -19,7 +19,7 @@ inherited CEEditorWidget: TCEEditorWidget
ClientWidth = 465
object PageControl: TExtendedNotebook[0]
Left = 3
- Height = 380
+ Height = 375
Top = 3
Width = 459
Align = alClient
@@ -32,8 +32,8 @@ inherited CEEditorWidget: TCEEditorWidget
end
object editorStatus: TStatusBar[1]
Left = 3
- Height = 18
- Top = 385
+ Height = 23
+ Top = 380
Width = 459
BorderSpacing.Around = 2
Panels = <
diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index eb55d6f6..4dac3e16 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -8,7 +8,8 @@ uses
Classes, SysUtils, FileUtil, ExtendedNotebook, Forms, Controls, lcltype,
Graphics, SynEditKeyCmds, ComCtrls, SynEditHighlighter, ExtCtrls, Menus,
SynMacroRecorder, SynPluginSyncroEdit, SynEdit, SynCompletion,
- ce_widget, ce_interfaces, ce_synmemo, ce_dlang, ce_common, ce_dcd, ce_observer;
+ SynHighlighterMulti, ce_widget, ce_interfaces, ce_synmemo, ce_dlang,
+ ce_common, ce_dcd, ce_observer;
type
diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 8c40a62e..7a12ed94 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -425,19 +425,19 @@ end;
procedure TCEMessagesWidget.actCopyMsgExecute(Sender: TObject);
var
- i: NativeInt;
+ i: Integer;
str: string;
begin
str := '';
for i := 0 to List.Items.Count-1 do
- if List.Items[i].MultiSelected then
- str += List.Items[i].Text + LineEnding;
+ if List.Items[i].MultiSelected then
+ str += List.Items[i].Text + LineEnding;
Clipboard.AsText := str;
end;
procedure TCEMessagesWidget.actSelAllExecute(Sender: TObject);
var
- i: NativeInt;
+ i: Integer;
begin
for i := 0 to List.Items.Count-1 do
if List.Items[i].Visible then
@@ -639,7 +639,7 @@ procedure TCEMessagesWidget.filterMessages(aCtxt: TCEAppMessageCtxt);
var
msgdt: PMessageData;
itm: TTreeNode;
- i: NativeInt;
+ i: Integer;
begin
if updating then
exit;
@@ -662,7 +662,7 @@ end;
function guessMessageKind(const aMessg: string): TCEAppMessageKind;
var
- pos: Nativeint;
+ pos: Integer;
idt: string;
function checkIdent: TCEAppMessageKind;
begin
@@ -714,7 +714,7 @@ end;
function getLineFromMessage(const aMessage: string): TPoint;
var
- i, j: NativeInt;
+ i, j: Integer;
ident: string;
begin
result.x := 0;
@@ -767,7 +767,7 @@ end;
function openFileFromDmdMessage(const aMessage: string): boolean;
var
- i: NativeInt;
+ i: Integer;
ident: string;
ext: string;
begin