shoulder,
Cita:
|
Empezado por shoulder
...Lo solucione...con el TWebBrowser...oculte la toolbar y la toolbar de navegación...
|
Te sugiero dejar activo el Scrollbar
para facilitar la lectura del archivo PDF.
Revisa este código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
openDialog : TOpenDialog;
begin
openDialog := TOpenDialog.Create(self);
openDialog.InitialDir := GetCurrentDir;
openDialog.Options := [ofFileMustExist];
openDialog.Filter := 'PDF files|*.pdf';
openDialog.FilterIndex := 1;
if openDialog.Execute then
begin
WebBrowser1.Silent := True;
WebBrowser1.Navigate('file://' + openDialog.FileName + '#toolbar=0&navpanes=0&scrollbar=1');
end;
end;
El código anterior en Delphi7, Delphi 2010 y Delphi XE4 sobre Windows 7 Professional x32 y x64,
visualiza archivos PDF en el componente TWebBrowser, eliminando del View PDF el ToolBar, el Panel de Navegación y
permitiendo el uso del ScrollBar.
Espero sea útil
Nelson.