paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:29:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed #6497:

Browse Source 
- proper ioresult checking when opening the printer device
  - disable/enable handling for print menu item

git-svn-id: trunk@6548 -
This commit is contained in:
florian 2007-02-18 18:50:23 +00:00
parent 81bccc253b
commit b8d56a1512
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/fpide.pas
View File

@ -460,6 +460,7 @@ resourcestring menu_local_gotosource = '~G~oto source';
msg_confirmsourcediradd = 'Directory %s is not in search path for source files. '+ msg_confirmsourcediradd = 'Directory %s is not in search path for source files. '+
'Should we add it ?'; 'Should we add it ?';
msg_quitconfirm = 'Do You really want to quit?'; msg_quitconfirm = 'Do You really want to quit?';
msg_printernotopened = 'Can''t open printer,'#13#3'check device name in "print setup"';
msg_printerror = 'Error while printing'; msg_printerror = 'Error while printing';
msg_impossibletoreachcursor = 'Impossible to reach current cursor'; msg_impossibletoreachcursor = 'Impossible to reach current cursor';
msg_impossibletosetbreakpoint = 'Impossible to set breakpoints here'; msg_impossibletosetbreakpoint = 'Impossible to set breakpoints here';

4
ide/fpmfile.inc
View File

@ -266,10 +266,12 @@ procedure TIDEApp.Print;
if assigned(P) then if assigned(P) then
begin begin
assign(f,d); assign(f,d);
{$I-}
rewrite(f); rewrite(f);
{$I+}
if ioresult<>0 then if ioresult<>0 then
begin begin
MessageBox(#3+msg_PrintError,nil,mferror+mfokbutton); MessageBox(#3+msg_printernotopened,nil,mferror+mfokbutton);
exit; exit;
end; end;
for i:=0 to P^.Editor^.Core^.GetLineCount-1 do for i:=0 to P^.Editor^.Core^.GetLineCount-1 do

2
ide/fpviews.pas
View File

@ -482,7 +482,7 @@ const
SourceCmds : TCommandSet = SourceCmds : TCommandSet =
([cmSave,cmSaveAs,cmCompile,cmHide,cmDoReload]); ([cmSave,cmSaveAs,cmCompile,cmHide,cmDoReload]);
EditorCmds : TCommandSet = EditorCmds : TCommandSet =
([cmFind,cmReplace,cmSearchAgain,cmJumpLine,cmHelpTopicSearch,cmSelectAll,cmUnselect]); ([cmPrint,cmFind,cmReplace,cmSearchAgain,cmJumpLine,cmHelpTopicSearch,cmSelectAll,cmUnselect]);
CompileCmds : TCommandSet = CompileCmds : TCommandSet =
([cmMake,cmBuild,cmRun]); ([cmMake,cmBuild,cmRun]);