paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 18:17:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

PoChecker: fix compilation error in r46354 #9ee2dd7f12.

Browse Source 
git-svn-id: trunk@46355 -
This commit is contained in:
bart 2014-09-29 20:40:25 +00:00
parent 9ee2dd7f12
commit 50e798dd7f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/pochecker/graphstat.pp
View File

@ -129,14 +129,14 @@ begin
PageIndex:= -1;
WindowIndex:= -1;
OpenFlags:= [ofOnlyIfExists,ofAddToRecent,ofRegularFile,ofConvertMacros];
mr := LazarusIde.DoOpenEditorFile(AStat.Name,PageIndex,WindowIndex,OpenFlags);
mr := LazarusIde.DoOpenEditorFile(AStat.PoName,PageIndex,WindowIndex,OpenFlags);
if mr = mrOk then begin
if MessageDlg('PoChecker',Format(sOpenFile,[AStat.PoName]),
mtConfirmation,mbOKCancel,0) = mrOk then begin
ModalResult:= mrOpenEditorFile; //To let caller know what we want to do
end;
end
else ShowMessage(Format(SOpenFail,[AStat.Name]));
else ShowMessage(Format(SOpenFail,[AStat.PoName]));
end;
{$endif}
end;