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

View File

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

View File

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