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

fix, shw project option was not working with DUB yet

This commit is contained in:
Basile Burg 2015-12-04 22:58:43 +01:00
parent 2bbe1a9e70
commit 73e3acb8b4
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_main.pas
View File

@ -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);