mirror of https://gitlab.com/basile.b/dexed.git
417 lines
10 KiB
Plaintext
417 lines
10 KiB
Plaintext
unit ce_editor;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, ExtendedNotebook, Forms, Controls, lcltype,
|
|
Graphics, SynEditKeyCmds, ComCtrls, SynEditHighlighter, ExtCtrls, Menus,
|
|
SynEditHighlighterFoldBase, SynMacroRecorder, SynPluginSyncroEdit, SynEdit,
|
|
SynHighlighterLFM, SynCompletion, AnchorDocking, ce_widget, ce_d2syn,
|
|
ce_synmemo, ce_dlang, ce_project, ce_common, types, ce_dcd;
|
|
|
|
type
|
|
|
|
{ TCEEditorWidget }
|
|
|
|
TCEEditorWidget = class(TCEWidget)
|
|
imgList: TImageList;
|
|
PageControl: TExtendedNotebook;
|
|
macRecorder: TSynMacroRecorder;
|
|
editorStatus: TStatusBar;
|
|
completion: TSynCompletion;
|
|
procedure completionCodeCompletion(var Value: string; SourceValue: string;
|
|
var SourceStart, SourceEnd: TPoint; KeyChar: TUTF8Char; Shift: TShiftState
|
|
);
|
|
procedure completionExecute(Sender: TObject);
|
|
procedure PageControlChange(Sender: TObject);
|
|
procedure PageControlCloseTabClicked(Sender: TObject);
|
|
protected
|
|
procedure UpdateByDelay; override;
|
|
procedure UpdateByEvent; override;
|
|
private
|
|
fKeyChanged: boolean;
|
|
|
|
// http://bugs.freepascal.org/view.php?id=26329
|
|
fSyncEdit: TSynPluginSyncroEdit;
|
|
|
|
tokLst: TLexTokenList;
|
|
errLst: TLexErrorList;
|
|
procedure memoKeyPress(Sender: TObject; var Key: char);
|
|
procedure memoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
|
procedure memoMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
procedure memoChange(Sender: TObject);
|
|
procedure memoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
|
function getCurrentEditor: TCESynMemo;
|
|
function getEditor(index: NativeInt): TCESynMemo;
|
|
function getEditorCount: NativeInt;
|
|
function getEditorIndex: NativeInt;
|
|
procedure getCompletionList;
|
|
procedure getSymbolLoc;
|
|
public
|
|
constructor create(aOwner: TComponent); override;
|
|
destructor destroy; override;
|
|
procedure addEditor;
|
|
procedure removeEditor(const aIndex: NativeInt);
|
|
procedure focusedEditorChanged;
|
|
function getEditorHint: string;
|
|
//
|
|
procedure projCompile(const aProject: TCEProject); override;
|
|
procedure projRun(const aProject: TCEProject); override;
|
|
//
|
|
property currentEditor: TCESynMemo read getCurrentEditor;
|
|
property editor[index: NativeInt]: TCESynMemo read getEditor;
|
|
property editorCount: NativeInt read getEditorCount;
|
|
property editorIndex: NativeInt read getEditorIndex;
|
|
end;
|
|
|
|
|
|
implementation
|
|
{$R *.lfm}
|
|
|
|
uses
|
|
ce_main, ce_messages;
|
|
|
|
constructor TCEEditorWidget.create(aOwner: TComponent);
|
|
var
|
|
bmp: TBitmap;
|
|
begin
|
|
inherited;
|
|
//
|
|
tokLst := TLexTokenList.Create;
|
|
errLst := TLexErrorList.Create;
|
|
//
|
|
fSyncEdit := TSynPluginSyncroEdit.Create(self);
|
|
bmp := TBitmap.Create;
|
|
try
|
|
imgList.GetBitmap(0,bmp);
|
|
fSyncEdit.GutterGlyph.Assign(bmp);
|
|
finally
|
|
bmp.Free;
|
|
end;
|
|
end;
|
|
|
|
destructor TCEEditorWidget.destroy;
|
|
begin
|
|
tokLst.Free;
|
|
errLst.Free;
|
|
inherited;
|
|
end;
|
|
|
|
function TCEEditorWidget.getEditorCount: NativeInt;
|
|
begin
|
|
result := pageControl.PageCount;
|
|
end;
|
|
|
|
function TCEEditorWidget.getEditorIndex: NativeInt;
|
|
begin
|
|
if pageControl.PageCount > 0 then
|
|
result := pageControl.PageIndex
|
|
else result := -1;
|
|
end;
|
|
|
|
function TCEEditorWidget.getCurrentEditor: TCESynMemo;
|
|
begin
|
|
if pageControl.PageCount = 0 then result := nil
|
|
else result := TCESynMemo(pageControl.ActivePage.Controls[0]);
|
|
end;
|
|
|
|
function TCEEditorWidget.getEditor(index: NativeInt): TCESynMemo;
|
|
begin
|
|
result := TCESynMemo(pageControl.Pages[index].Controls[0]);
|
|
end;
|
|
|
|
procedure TCEEditorWidget.focusedEditorChanged;
|
|
var
|
|
curr: TCESynMemo;
|
|
begin
|
|
curr := getCurrentEditor;
|
|
macRecorder.Editor := curr;
|
|
fSyncEdit.Editor := curr;
|
|
completion.Editor := curr;
|
|
//
|
|
if pageControl.ActivePageIndex <> -1 then
|
|
begin
|
|
CEMainForm.docFocusedNotify(Self, pageControl.ActivePageIndex);
|
|
if (pageControl.ActivePage.Caption = '') then
|
|
begin
|
|
fKeyChanged := true;
|
|
beginUpdateByDelay;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.PageControlChange(Sender: TObject);
|
|
begin
|
|
//http://bugs.freepascal.org/view.php?id=26320
|
|
focusedEditorChanged;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.completionExecute(Sender: TObject);
|
|
begin
|
|
getCompletionList;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.completionCodeCompletion(var Value: string;
|
|
SourceValue: string; var SourceStart, SourceEnd: TPoint; KeyChar: TUTF8Char;
|
|
Shift: TShiftState);
|
|
begin
|
|
// warning: '20' depends on ce_dcd, case knd of...
|
|
Value := Value[1..length(Value)-20];
|
|
end;
|
|
|
|
procedure TCEEditorWidget.PageControlCloseTabClicked(Sender: TObject);
|
|
begin
|
|
// closeBtn not implemented (Win.)
|
|
CEMainForm.actFileClose.Execute;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.addEditor;
|
|
var
|
|
sheet: TTabSheet;
|
|
memo: TCESynMemo;
|
|
begin
|
|
sheet := pageControl.AddTabSheet;
|
|
memo := TCESynMemo.Create(sheet);
|
|
//
|
|
memo.Align := alClient;
|
|
memo.Parent := sheet;
|
|
//
|
|
memo.OnKeyDown := @memoKeyDown;
|
|
memo.OnKeyUp := @memoKeyDown;
|
|
memo.OnKeyPress := @memoKeyPress;
|
|
memo.OnMouseDown := @memoMouseDown;
|
|
memo.OnChange := @memoChange;
|
|
|
|
memo.OnMouseMove := @memoMouseMove;
|
|
//
|
|
pageControl.ActivePage := sheet;
|
|
|
|
//http://bugs.freepascal.org/view.php?id=26320
|
|
focusedEditorChanged;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.removeEditor(const aIndex: NativeInt);
|
|
begin
|
|
CEMainForm.MessageWidget.ClearMessages(mcEditor);
|
|
editor[aIndex].OnChange:= nil;
|
|
pageControl.Pages[aIndex].Free;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.memoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
|
begin
|
|
UpdateByEvent;
|
|
case Byte(Key) of
|
|
VK_CLEAR,VK_RETURN,VK_BACK : fKeyChanged := true;
|
|
end;
|
|
if fKeyChanged then
|
|
beginUpdateByDelay;
|
|
//
|
|
if (Key = VK_UP) and (shift = [ssShift,ssCtrl]) then
|
|
getSymbolLoc;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.memoKeyPress(Sender: TObject; var Key: char);
|
|
var
|
|
pt: Tpoint;
|
|
curr: TCESynMemo;
|
|
begin
|
|
fKeyChanged := true;
|
|
if Key = '.' then
|
|
begin
|
|
//curr := TCESynMemo(Sender);
|
|
//pt := ClientToScreen(point(curr.CaretXPix, curr.CaretYPix));
|
|
//completion.Execute(curr.LineText[1..curr.CaretX] + '.', pt);
|
|
end;
|
|
beginUpdateByDelay;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.memoMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
begin
|
|
beginUpdateByDelay;
|
|
UpdateByEvent;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.memoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
|
begin
|
|
if not (ssLeft in Shift) then exit;
|
|
//
|
|
beginUpdateByDelay;
|
|
UpdateByEvent;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.memoChange(Sender: TObject);
|
|
begin
|
|
fKeyChanged := true;
|
|
beginUpdateByDelay;
|
|
UpdateByEvent;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.projCompile(const aProject: TCEProject);
|
|
begin
|
|
stopUpdateByDelay;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.projRun(const aProject: TCEProject);
|
|
begin
|
|
stopUpdateByDelay;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.getSymbolLoc;
|
|
var
|
|
curr: TCESynMemo;
|
|
str: TMemoryStream;
|
|
srcpos: NativeInt;
|
|
ftempname, fname: string;
|
|
begin
|
|
if not dcdOn then exit;
|
|
//
|
|
curr := getCurrentEditor;
|
|
if curr = nil then exit;
|
|
//
|
|
str := TMemoryStream.Create;
|
|
try
|
|
ftempname := GetTempDir(false) + 'temp_' + uniqueObjStr(curr) + '.d';
|
|
curr.Lines.SaveToStream(str);
|
|
str.SaveToFile(ftempname);
|
|
try
|
|
fname := ftempname;
|
|
srcpos := curr.SelStart;
|
|
if curr.GetWordAtRowCol(curr.LogicalCaretXY) <> '' then
|
|
ce_dcd.getSymbolLoc(fname, srcpos);
|
|
if fname <> ftempname then if fileExists(fname) then
|
|
CEMainForm.openFile(fname);
|
|
if srcpos <> -1 then
|
|
getCurrentEditor.SelStart := srcpos;
|
|
finally
|
|
DeleteFile(ftempname);
|
|
end;
|
|
finally
|
|
str.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.getCompletionList;
|
|
var
|
|
curr: TCESynMemo;
|
|
str: TMemoryStream;
|
|
srcpos: NativeInt;
|
|
fname: string;
|
|
begin
|
|
if not dcdOn then exit;
|
|
//
|
|
curr := getCurrentEditor;
|
|
if curr = nil then exit;
|
|
//
|
|
str := TMemoryStream.Create;
|
|
try
|
|
completion.Position := 0; // previous index could cause an error here.
|
|
fname := GetTempDir(false) + 'temp_' + uniqueObjStr(curr) + '.d';
|
|
curr.Lines.SaveToStream(str);
|
|
str.SaveToFile(fname);
|
|
try
|
|
srcpos := curr.SelStart;
|
|
completion.ItemList.Clear;
|
|
if curr.GetWordAtRowCol(curr.LogicalCaretXY) <> '' then
|
|
ce_dcd.getCompletion(fname, srcpos, completion.ItemList);
|
|
finally
|
|
DeleteFile(fname);
|
|
end;
|
|
finally
|
|
str.Free;
|
|
end;
|
|
end;
|
|
|
|
function TCEEditorWidget.getEditorHint: string;
|
|
var
|
|
curr: TCESynMemo;
|
|
str: TMemoryStream;
|
|
lst: TStringList;
|
|
srcpos: NativeInt;
|
|
fname: string;
|
|
begin
|
|
result := '';
|
|
if not dcdOn then exit;
|
|
//
|
|
curr := getCurrentEditor;
|
|
if curr = nil then exit;
|
|
//
|
|
str := TMemoryStream.Create;
|
|
lst := TStringList.Create;
|
|
try
|
|
fname := GetTempDir(false) + 'temp_' + uniqueObjStr(curr) + '.d';
|
|
curr.Lines.SaveToStream(str);
|
|
try
|
|
str.SaveToFile(fname);
|
|
srcpos := curr.SelStart;
|
|
if curr.GetWordAtRowCol(curr.LogicalCaretXY) <> '' then
|
|
ce_dcd.getHint(fname, srcpos, lst);
|
|
result := lst.Text;
|
|
finally
|
|
DeleteFile(fname);
|
|
end;
|
|
finally
|
|
str.Free;
|
|
lst.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.UpdateByEvent;
|
|
const
|
|
modstr: array[boolean] of string = ('...', 'MODIFIED');
|
|
var
|
|
ed: TCESynMemo;
|
|
begin
|
|
ed := getCurrentEditor;
|
|
if ed = nil then exit;
|
|
//
|
|
editorStatus.Panels[0].Text := format('%d : %d',[ed.CaretY, ed.CaretX]);
|
|
editorStatus.Panels[1].Text := modstr[ed.modified];
|
|
editorStatus.Panels[2].Text := ed.fileName;
|
|
end;
|
|
|
|
procedure TCEEditorWidget.UpdateByDelay;
|
|
var
|
|
dt: PMessageItemData;
|
|
ed: TCESynMemo;
|
|
err: TLexError;
|
|
md: string;
|
|
begin
|
|
ed := getCurrentEditor;
|
|
if ed = nil then exit;
|
|
if not fKeyChanged then exit;
|
|
//
|
|
fKeyChanged := false;
|
|
CEMainForm.docChangeNotify(Self, editorIndex);
|
|
if ed.Lines.Count = 0 then exit;
|
|
//
|
|
CEMainForm.MessageWidget.ClearMessages(mcEditor);
|
|
lex(ed.Lines.Text, tokLst);
|
|
|
|
if ed.isDSource then
|
|
begin
|
|
checkSyntacticErrors(tokLst, errLst);
|
|
for err in errLst do begin
|
|
dt := newMessageData;
|
|
dt^.editor := ed;
|
|
dt^.position := point(err.position.x, err.position.y);
|
|
dt^.ctxt := mcEditor;
|
|
CEMainForm.MessageWidget.addMessage(format( '%s (@line:%.4d @char:%.4d)',
|
|
[err.msg, err.position.y, err.position.x]), dt);
|
|
end;
|
|
end;
|
|
|
|
md := '';
|
|
if ed.isDSource then
|
|
md := getModuleName(tokLst);
|
|
if md = '' then md := extractFileName(ed.fileName);
|
|
pageControl.ActivePage.Caption := md;
|
|
|
|
CEMainForm.MessageWidget.scrollToBack;
|
|
tokLst.Clear;
|
|
errLst.Clear;
|
|
end;
|
|
|
|
end.
|