03－delphi10.3下PDFium5.8的PdfView1显示相关

procedure TForm2.Button3Click(Sender: TObject);      //正常显示
begin
 PdfView1.Width:=  420;
 PdfView1.Height:=594;
end;

procedure TForm2.Button4Click(Sender: TObject);    //缩小为一半
begin
 PdfView1.Width:=  210;
 PdfView1.Height:=297;
end;

procedure TForm2.Button5Click(Sender: TObject);   //放大为两倍
begin
 PdfView1.Width:=  840;
 PdfView1.Height:=1188;
end;

procedure TForm2.FormCreate(Sender: TObject);
var i:integer;
begin
for I := 0 to Pdf1.PageCount - 1 do  begin
 listbox1.Items.Add(inttostr(i+1))  ;
end;
end;

procedure TForm2.ListBox1Click(Sender: TObject);
begin
   PdfView1.PageNumber :=  ListBox1.ItemIndex+1;      //点击 listBOx某页，显示 某页
end;