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

action updates for "view in mini explorer" actions

This commit is contained in:
Basile Burg 2014-08-30 11:28:55 +02:00
parent 0ee612ebdb
commit f38fe8b70a
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_main.pas
View File

@ -711,8 +711,8 @@ begin
hasEd := fDoc <> nil;
if hasEd then
begin
actEdCopy.Enabled := fDoc.SelAvail and fEditWidg.Focused; // allows copy/cut/paste by shortcut on widgets
actEdCut.Enabled := fDoc.SelAvail and fEditWidg.Focused; //
actEdCopy.Enabled := fDoc.SelAvail and fEditWidg.Focused;
actEdCut.Enabled := fDoc.SelAvail and fEditWidg.Focused;
actEdPaste.Enabled := fDoc.CanPaste and fEditWidg.Focused;
{$IFDEF MSWINDOWS}
// close file : raises a segfault on linux UndoStuff.>>fList<<.Count...
@ -730,6 +730,7 @@ begin
actFileSaveAs.Enabled := true;
actFileClose.Enabled := true;
actFileSaveAll.Enabled := true;
actFileOpenContFold.Enabled := true;
end
else begin
actEdCopy.Enabled := false;
@ -750,6 +751,7 @@ begin
actFileSaveAs.Enabled := false;
actFileClose.Enabled := false;
actFileSaveAll.Enabled := false;
actFileOpenContFold.Enabled := false;
end;
hasProj := fProject <> nil;
@ -764,6 +766,7 @@ begin
actProjRunWithArgs.Enabled := hasProj;
actProjSource.Enabled := hasProj;
actProjOptView.Enabled := hasProj;
actProjOpenContFold.Enabled := hasProj;
actFileAddToProj.Enabled := hasEd and hasProj;

10
src/ce_projinspect.pas
View File

@ -6,13 +6,12 @@ interface
uses
Classes, SysUtils, FileUtil, TreeFilterEdit, Forms, Controls, Graphics, actnlist,
Dialogs, ExtCtrls, ComCtrls, Menus, Buttons, ce_project, ce_interfaces, ce_common,
ce_widget, ce_observer;
Dialogs, ExtCtrls, ComCtrls, Menus, Buttons, lcltype, ce_project, ce_interfaces,
ce_common, ce_widget, ce_observer;
type
{ TCEProjectInspectWidget }
TCEProjectInspectWidget = class(TCEWidget, ICEProjectObserver)
btnRemFold: TSpeedButton;
imgList: TImageList;
@ -141,9 +140,10 @@ begin
end;
{$ENDREGION}
procedure TCEProjectInspectWidget.TreeKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
procedure TCEProjectInspectWidget.TreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = 13 then TreeDblClick(nil);
if Key = VK_RETURN then
TreeDblClick(nil);
end;
procedure TCEProjectInspectWidget.TreeSelectionChanged(Sender: TObject);