From 73e3acb8b4328c53928817ab45bf7560a6a1dbc3 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 4 Dec 2015 22:58:43 +0100
Subject: [PATCH] fix, shw project option was not working with DUB yet

---
 src/ce_main.pas | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 2162e663..351a63b6 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -2179,12 +2179,18 @@ end;
 
 procedure TCEMainForm.actProjOptsExecute(Sender: TObject);
 var
-  win: TControl;
+  win: TControl = nil;
 begin
-  win := DockMaster.GetAnchorSite(fPrjCfWidg);
-  if win = nil then exit;
-  win.Show;
-  win.BringToFront;
+  if assigned(fProjectInterface) then case fProjectInterface.getFormat of
+    pfDub: win := DockMaster.GetAnchorSite(fPrjCfWidg);
+    pfNative: win := DockMaster.GetAnchorSite(fDubProjWidg);
+  end;
+  else win := DockMaster.GetAnchorSite(fPrjCfWidg);
+  if assigned(win) then
+  begin
+    win.Show;
+    win.BringToFront;
+  end;
 end;
 
 procedure TCEMainForm.actProjSourceExecute(Sender: TObject);