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

miniexplorer, pen icon, allowed to open a project

This commit is contained in:
Basile Burg 2015-10-25 18:50:30 +01:00
parent b576f85cfe
commit c95a1c5a13
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_miniexplorer.lfm
View File

@ -124,7 +124,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
object btnEdit: TBitBtn
Left = 84
Height = 28
Hint = 'open selected file in a Coedit-or'
Hint = 'open selected file in as a project or as a source file'
Top = 0
Width = 28
Align = alLeft

15
src/ce_miniexplorer.pas
View File

@ -6,8 +6,9 @@ interface
uses
Classes, SysUtils, FileUtil, ListFilterEdit, Forms, Controls, Graphics,
ExtCtrls, Menus, ComCtrls, Buttons, lcltype, strutils, ce_widget,
ce_common, ce_interfaces, ce_observer, ce_writableComponent, ce_sharedres;
ExtCtrls, Menus, ComCtrls, Buttons, lcltype, strutils, ce_widget, ce_sharedres,
ce_common, ce_interfaces, ce_observer, ce_writableComponent, ce_dubproject,
ce_nativeproject;
type
@ -293,6 +294,7 @@ end;
procedure TCEMiniExplorerWidget.btnEditClick(Sender: TObject);
var
fname: string;
proj: ICECommonProject = nil;
begin
if lstFiles.Selected = nil then exit;
if lstFiles.Selected.Data = nil then exit;
@ -301,7 +303,14 @@ begin
{$IFNDEF WINDOWS}
fname := fname[2..length(fname)];
{$ENDIF}
getMultiDocHandler.openDocument(fname);
if isValidNativeProject(fname) then
proj := TCENativeProject.create(nil) as ICECommonProject
else if isValidDubProject(fname) then
proj := TCENativeProject.create(nil) as ICECommonProject;
if assigned(proj) then
proj.loadFromFile(fname)
else
getMultiDocHandler.openDocument(fname);
end;
procedure TCEMiniExplorerWidget.lstFilesDblClick(Sender: TObject);