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

more stuff broken after #264

This commit is contained in:
Basile Burg 2018-03-17 05:44:06 +01:00
parent 1f89e140e2
commit f9fc78b229
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_main.lfm
View File

@ -2380,7 +2380,7 @@ object CEMainForm: TCEMainForm
object ApplicationProperties1: TApplicationProperties object ApplicationProperties1: TApplicationProperties
OnActivate = ApplicationProperties1Activate OnActivate = ApplicationProperties1Activate
OnException = ApplicationProperties1Exception OnException = ApplicationProperties1Exception
left = 72 left = 64
top = 1 top = 1
end end
end end

4
src/ce_main.pas
View File

@ -2500,8 +2500,8 @@ procedure TCEMainForm.actProjOpenContFoldExecute(Sender: TObject);
begin begin
if not assigned(fProject) or not fProject.filename.fileExists then if not assigned(fProject) or not fProject.filename.fileExists then
exit; exit;
DockMaster.GetAnchorSite(fExplWidg).Show;
getExplorer.browse(fProject.filename.extractFilePath); getExplorer.browse(fProject.filename.extractFilePath);
fExplWidg.showWidget;
end; end;
procedure TCEMainForm.actFileNewExecute(Sender: TObject); procedure TCEMainForm.actFileNewExecute(Sender: TObject);
@ -3305,8 +3305,8 @@ procedure TCEMainForm.actFileOpenContFoldExecute(Sender: TObject);
begin begin
if fDoc.isNil or not fDoc.fileName.fileExists then if fDoc.isNil or not fDoc.fileName.fileExists then
exit; exit;
DockMaster.GetAnchorSite(fExplWidg).Show;
getExplorer.browse(fDoc.fileName.extractFilePath); getExplorer.browse(fDoc.fileName.extractFilePath);
fExplWidg.showWidget;
end; end;
procedure TCEMainForm.actProjCompileExecute(Sender: TObject); procedure TCEMainForm.actProjCompileExecute(Sender: TObject);