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

procedure TForm2.Button3Click(Sender: TObject);      //正常显示
beginPdfView1.Width:=  420;PdfView1.Height:=594;
end;procedure TForm2.Button4Click(Sender: TObject);    //缩小为一半
beginPdfView1.Width:=  210;PdfView1.Height:=297;
end;procedure TForm2.Button5Click(Sender: TObject);   //放大为两倍
beginPdfView1.Width:=  840;PdfView1.Height:=1188;
end;procedure TForm2.FormCreate(Sender: TObject);
var i:integer;
begin
for I := 0 to Pdf1.PageCount - 1 do  beginlistbox1.Items.Add(inttostr(i+1))  ;
end;
end;procedure TForm2.ListBox1Click(Sender: TObject);
beginPdfView1.PageNumber :=  ListBox1.ItemIndex+1;      //点击 listBOx某页，显示 某页
end;