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

10
src/ce_projinspect.pas
View File

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