Changeset 266 for PrintPreview/UPrintPreview.pas

Timestamp:

Aug 22, 2011, 8:25:21 AM (13 years ago)

Author:

george

Message:

• Fixed: ResourseStrings of PrintPreview component.

File:

• PrintPreview/UPrintPreview.pas (modified) (2 diffs)

PrintPreview/UPrintPreview.pas

@@ -134 +134 @@
 procedure Register;
 
+resourcestring
+  SPrintPreview = 'Print preview';
+  SPrint = 'Print';
+  SPageSetup = 'Page setup';
+  SPrinterSetup = 'Printer setup';
+  SClose = 'Close';
+  SZoomOut = 'Zoom out';
+  SZoomIn = 'Zoom in';
+  SNextPage = 'Next page';
+  SPreviousPage = 'Previous page';
+  SLastPage = 'Last page';
+  SFirstPage = 'First page';
+
 implementation
 
@@ -382 +395 @@
 procedure TPrintPreviewForm.FormShow(Sender: TObject);
 begin
+  Caption := SPrintPreview;
+  AClose.Caption := SClose;
+  AClose.Hint := SClose;
+  AFirstPage.Caption := SFirstPage;
+  AFirstPage.Hint := SFirstPage;
+  ALastPage.Caption := SLastPage;
+  ALastPage.Hint := SLastPage;
+  ANextPage.Caption := SNextPage;
+  ANextPage.Hint := SNextPage;
+  APreviousPage.Caption := SPreviousPage;
+  APreviousPage.Hint := SPreviousPage;
+  APageSetup.Caption := SPageSetup;
+  APageSetup.Hint := SPageSetup;
+  APrinterSetup.Caption := SPrinterSetup;
+  APrinterSetup.Hint := SPrinterSetup;
+  APrint.Caption := SPrint;
+  APrint.Hint := SPrint;
+  AZoomIn.Caption := SZoomIn;
+  AZoomIn.Hint := SZoomIn;
+  AZoomOut.Caption := SZoomOut;
+  AZoomOut.Hint := SZoomOut;
+
   PrintDialog1.MaxPage := PrintPreview.Pages.Count;
   ReloadPageNumber;