1

Components/llPdfLib_3.6/Sources/PDF.pas

@@ -14,7 +14,7 @@ unit PDF;
 interface
 
 uses Windows, SysUtils, Classes, Graphics, Math, Jpeg, ShellApi, pdfMisc,
-  pdfttfCodes;
+  pdfttfCodes, Dialogs;
 
 type
   TDoublePoint = record
@@ -4777,7 +4777,7 @@ procedure TPDFPage.ExtUnicodeTextShow ( Text: PWord; Len: Integer; Dx: PExt );
 var
   I: Integer;
   ANSI: Boolean;
-  OS: string;
+  OS, S: string;
   A: Integer;
   RS: Extended;
   CS: Extended;
@@ -5093,8 +5093,10 @@ begin
       end;
   end
   else
+  begin
     RawExtUnicodeTextOut ( ExtToIntX ( X ) + o * sin ( Orientation * Pi / 180 ),
       ExtToIntY ( Y ) - o * cos ( Orientation * Pi / 180 ), Orientation, Text, Len, @Ext [ 0 ] );
+  end;
   Ext := nil;
 end;
 

Reports/UI/ScReportsFrm.dfm

@@ -3048,7 +3048,7 @@ object ScReportsForm: TScReportsForm
       000000000000}
   end
   object sdOutputPdf: TSaveDialog
-    Filter = 'Pdf'#25991#20214'(*.xls)|*.xls|'#25152#26377#25991#20214'(*.*)|*.*'
+    Filter = 'Pdf'#25991#20214'(*.pdf)|*.pdf|'#25152#26377#25991#20214'(*.*)|*.*'
     Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
     Left = 208
     Top = 168