From f9fc78b22936c57f700c31001939cae3021c411e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 17 Mar 2018 05:44:06 +0100
Subject: [PATCH] more stuff broken after #264
---
src/ce_main.lfm | 2 +-
src/ce_main.pas | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/ce_main.lfm b/src/ce_main.lfm
index b97e3366..f662fcc2 100644
--- a/src/ce_main.lfm
+++ b/src/ce_main.lfm
@@ -2380,7 +2380,7 @@ object CEMainForm: TCEMainForm
object ApplicationProperties1: TApplicationProperties
OnActivate = ApplicationProperties1Activate
OnException = ApplicationProperties1Exception
- left = 72
+ left = 64
top = 1
end
end
diff --git a/src/ce_main.pas b/src/ce_main.pas
index cc0c5323..16f1b1d9 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -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);