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); procedure TCEMainForm.actProjOptsExecute(Sender: TObject);
var var
win: TControl; win: TControl = nil;
begin begin
win := DockMaster.GetAnchorSite(fPrjCfWidg); if assigned(fProjectInterface) then case fProjectInterface.getFormat of
if win = nil then exit; pfDub: win := DockMaster.GetAnchorSite(fPrjCfWidg);
win.Show; pfNative: win := DockMaster.GetAnchorSite(fDubProjWidg);
win.BringToFront; end;
else win := DockMaster.GetAnchorSite(fPrjCfWidg);
if assigned(win) then
begin
win.Show;
win.BringToFront;
end;
end; end;
procedure TCEMainForm.actProjSourceExecute(Sender: TObject); procedure TCEMainForm.actProjSourceExecute(Sender: TObject);