forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

terminal, add option to follow the mini explorer path

This commit is contained in:
Basile Burg 2018-09-30 20:16:51 +02:00
parent c47d214c4f
commit ad8c8df569
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_term.pas
View File

@ -19,6 +19,7 @@ type
fSelectedColor: TColor;
fFollowEditors: boolean;
fFollowProjects: boolean;
fFollowExplorer: boolean;
fScrollbackLines: longword;
fFont: TFont;
procedure setFont(value: TFont);
@ -33,6 +34,7 @@ type
property font: TFont read fFont write setFont;
property followEditors: boolean read fFollowEditors write fFollowEditors;
property followProjects: boolean read fFollowProjects write fFollowProjects;
property followExplorer: boolean read fFollowExplorer write fFollowExplorer;
property scrollbackLines: longword read fScrollbackLines write fScrollbackLines default 512;
end;
@ -52,7 +54,7 @@ type
{ TCETermWidget }
TCETermWidget = class(TCEWidget, ICEDocumentObserver, ICEProjectObserver)
TCETermWidget = class(TCEWidget, ICEDocumentObserver, ICEProjectObserver, ICEMiniExplorerObserver)
procedure ContentPaint(Sender: TObject);
private
fTerm: TTerminal;
@ -65,6 +67,8 @@ type
procedure docChanged(document: TCESynMemo);
procedure docClosing(document: TCESynMemo);
procedure mnexDirectoryChanged(const directory: string);
procedure projNew(project: ICECommonProject);
procedure projChanged(project: ICECommonProject);
procedure projClosing(project: ICECommonProject);
@ -243,6 +247,16 @@ begin
fOpts.applyChanges;
end;
procedure TCETermWidget.mnexDirectoryChanged(const directory: string);
begin
if fOpts.followExplorer and directory.dirExists and
not SameText(directory, fLastCd) then
begin
fLastCd := directory;
fTerm.Command('cd ' + directory);
end;
end;
procedure TCETermWidget.docNew(document: TCESynMemo);
begin
end;