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

fix message w/ file & pos not clickable anymore

This commit is contained in:
Basile Burg 2014-11-11 06:11:48 +01:00
parent 48c28bffcb
commit 98be70f68f
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_messages.pas
View File

@ -468,10 +468,7 @@ begin
Itm.Visible := false; Itm.Visible := false;
msgdt := PMessageData(itm.Data); msgdt := PMessageData(itm.Data);
if aCtxt = amcAll then if aCtxt = amcAll then
begin Itm.Visible := true
Itm.Visible := true;
continue;
end
else case msgdt^.ctxt of else case msgdt^.ctxt of
amcEdit: itm.Visible := (fDoc = TCESynMemo(msgdt^.data)) and (aCtxt = amcEdit); amcEdit: itm.Visible := (fDoc = TCESynMemo(msgdt^.data)) and (aCtxt = amcEdit);
amcProj: itm.Visible := (fProj = TCEProject(msgdt^.data)) and (aCtxt = amcProj); amcProj: itm.Visible := (fProj = TCEProject(msgdt^.data)) and (aCtxt = amcProj);
@ -602,7 +599,7 @@ begin
exit; exit;
ext := extractFileExt(ident); ext := extractFileExt(ident);
// error in import(file) content: ext may be different // error in import(file) content: ext may be different
if not dExtList.IndexOf(ext) = -1 then if dExtList.IndexOf(ext) = -1 then
exit; exit;
CEMainForm.openFile(ident); CEMainForm.openFile(ident);
result := true; result := true;