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