Changeset 236 for trunk/NewView/MainForm.pas

Timestamp:

Sep 14, 2007, 8:39:54 PM (18 years ago)

Author:

RBRi

Message:

small text updates

File:

• trunk/NewView/MainForm.pas (modified) (3 diffs)

trunk/NewView/MainForm.pas

@@ -690 +690 @@
     NoPrinterError: string;
     SelectWindowToPrintError: string;
+    PrintingComplete : string;
     PrintingError: string;
     StoppingPrintMsg: string;
@@ -1423 +1424 @@
   Language.LL( Apply, NoPrinterError, tmpPrefix + 'NoPrinterError', 'You don''t have a printer configured.' );
   Language.LL( Apply, SelectWindowToPrintError, tmpPrefix + 'SelectWindowToPrintError', 'You must select the window you want to print.' );
+  Language.LL( Apply, PrintingComplete, tmpPrefix + 'PrintingComplete', 'Printing complete' );
   Language.LL( Apply, PrintingError, tmpPrefix + 'PrintingError', 'Error while printing: ' );
   Language.LL( Apply, StoppingPrintMsg, tmpPrefix + 'StoppingPrintMsg', 'Stopping print...' );
@@ -2051 +2053 @@
 procedure TMainForm.OnPrintComplete( Dummy: TObject );
 begin
-  SetStatus( 'Printing complete' );
+  SetStatus(PrintingComplete);
   ResetProgress;
 end;