unit PDF_Read;

interface

uses Windows, Classes, Graphics, Forms, Controls, Menus,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
  ActnList, ToolWin, OleCtrls, FoxitReaderSDKLib_TLB, FileCtrl,StrUtils;

type
  TPDF_AppForm = class(TForm)
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ActionList1: TActionList;
    FileNew1: TAction;
    FileOpen1: TAction;
    FileSave1: TAction;
    FileSaveAs1: TAction;
    FileExit1: TAction;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    HelpAbout1: TAction;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    FileOpenItem: TMenuItem;
    FileSaveAsItem: TMenuItem;
    N1: TMenuItem;
    FileExitItem: TMenuItem;
    Edit1: TMenuItem;
    CutItem: TMenuItem;
    CopyItem: TMenuItem;
    PasteItem: TMenuItem;
    Help1: TMenuItem;
    HelpAboutItem: TMenuItem;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    N2: TMenuItem;
    N3: TMenuItem;
    X1: TMenuItem;
    Panel1: TPanel;
    TreeView1: TTreeView;
    Panel2: TPanel;
    Panel3: TPanel;
    FoxitReaderSDK1: TFoxitReaderSDK;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    procedure FileNew1Execute(Sender: TObject);
    procedure FileOpen1Execute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PDF_AppForm: TPDF_AppForm;

implementation

uses about;

{$R *.dfm}

procedure TPDF_AppForm.FileNew1Execute(Sender: TObject);
begin
  { Do nothing }
end;

procedure TPDF_AppForm.FileOpen1Execute(Sender: TObject);
var
  str1,str2,str3:string;
  i,j:integer;
  my_node1,my_node2:Ttreenode;
  ts:TStringList;
begin
OpenDialog.Title:='選擇PDF文件';
OpenDialog.Filter:='*.PDF|*.pdf';
OpenDialog.FilterIndex:=2;
ts:=tstringlist.Create;
TreeView1.ReadOnly:=true;
if Opendialog.Execute() then
   begin
   TreeView1.Items.Clear;
   my_node1:=TreeView1.Items.Add(TreeView1.TopItem,'PDF文檔');
      ts.Delimiter:='\';

   for I := 0 to Opendialog.Files.Count - 1 do
   begin
   ts.DelimitedText:=Opendialog.Files.Strings[i];
   j:=ts.Count;
   str1:=ts.Strings[j-1];
   TreeView1.Items.AddChild(my_node1,str1);
   end;
   str1:='';
   for i:=0 to ts.Count-2 do
   str1:=str1+ts.Strings[i]+'\';
   label2.Caption:=str1;
   end;
 end;

procedure TPDF_AppForm.FormCreate(Sender: TObject);
begin
FoxitReaderSDK1.ShowBookmark(false);
FoxitReaderSDK1.ShowStatusBar(false);
FoxitReaderSDK1.ShowToolBar(false);
FoxitReaderSDK1.ShowTitleBar(false);
end;

procedure TPDF_AppForm.TreeView1Click(Sender: TObject);
var
str1,str2,str3,str4:string;
my_node:TTreenode;
i,j:integer;
begin
my_node:=Treeview1.Selected;
if my_node.Level=1 then
begin
str1:=label2.Caption+my_node.Text;
StatusBar1.Panels[1].Text:=str1;
FoxitReaderSDK1.OpenFile(str1,'');
i:=FoxitReaderSDK1.PageCount;
j:=FoxitReaderSDK1.CurPage;
str(i:3,str3);
str(j:3,str4);
StatusBar1.Panels[3].Text:=str3+'/'+str4;
end;

end;

end.