Add function CloseDocument.

Author: azanelli

src/Execute.libPDFium.pas

@@ -58,6 +58,7 @@   TRectD = record
   IPDFium = interface
     function GetVersion: Integer; stdcall;
     function GetError: Integer; stdcall;
+    function CloseDocument: integer; stdcall;
     function LoadFromFile(fileName, Password: PAnsiChar): Integer; stdcall;
     function LoadFromMemory(data: Pointer; Size: Integer; password: PAnsiChar): Integer; stdcall;
     function GetPermissions: LongWord; stdcall;

src/Main.dfm

@@ -215,12 +215,17 @@ object MainForm: TMainForm
         ShortCut = 16463
         OnClick = Open1Click
       end
+      object Close1: TMenuItem
+        Caption = 'Close'
+        OnClick = Close1Click
+      end
       object N1: TMenuItem
         Caption = '-'
       end
       object Quit1: TMenuItem
         Caption = '&Quit'
         ShortCut = 16465
+        OnClick = Quit1Click
       end
     end
   end

src/Main.pas

@@ -54,6 +54,7 @@   TMainForm = class(TForm)
     btFullPage: TPaintBox;
     btActualSize: TPaintBox;
     btAbout: TPaintBox;
+    Close1: TMenuItem;
     procedure Open1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -71,6 +72,8 @@   TMainForm = class(TForm)
     procedure PDFiumResize(Sender: TObject);
     procedure mnActualSizeClick(Sender: TObject);
     procedure btAboutClick(Sender: TObject);
+    procedure Quit1Click(Sender: TObject);
+    procedure Close1Click(Sender: TObject);
   private
     { Déclarations privées }
     FButtons  : TBitmap;
@@ -200,6 +203,11 @@ procedure TMainForm.ButtonMouseLeave(Sender: TObject);
   end;
 end;
 
+procedure TMainForm.Close1Click(Sender: TObject);
+begin
+  PDFium.CloseDocument;
+end;
+
 procedure TMainForm.CreateButtons;
 begin
   FButtons.PixelFormat := pf32Bit;
@@ -302,4 +310,9 @@ procedure TMainForm.ppZoomPopup(Sender: TObject);
   mnFitWidth.Checked := PDFium.ZoomMode = zmPageWidth;
 end;
 
+procedure TMainForm.Quit1Click(Sender: TObject);
+begin
+  Close();
+end;
+
 end.

src/PDFium.Frame.dfm

@@ -2,7 +2,7 @@ object PDFiumFrame: TPDFiumFrame
   Left = 0
   Top = 0
   Width = 451
-  Height = 305
+  Height = 304
   HorzScrollBar.Tracking = True
   VertScrollBar.Increment = 27
   VertScrollBar.Tracking = True

src/PDFium.Frame.pas

@@ -108,6 +108,7 @@       TPDFPage = class
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Invalidate; override;
+    procedure CloseDocument();
     procedure LoadFromMemory(APointer: Pointer; ASize: Integer);
     procedure LoadFromStream(AStream: TStream);
     procedure LoadFromFile(const AFileName: string);
@@ -411,6 +412,13 @@ procedure TPDFiumFrame.ClearSelection;
     Invalidate;
 end;
 
+procedure TPDFiumFrame.CloseDocument;
+begin
+  ClearPages;
+  FPDF.CloseDocument;
+  SetPageCount(0);
+end;
+
 function TPDFiumFrame.GetPage(PageIndex: Integer): TPDFPage;
 var
   Index: Integer;