>*can implement simply the famous CTRL+F but after giving the focus to the browser. >*ctrl+f fires the simple search dialog in acrobat document >*CTRL+F fires the advanced search in the acrobat document (warning here its sensitive). >*see the 2 photos attached. > >publi oform >oform=newObject("yacrobat") >oform.show > >read events >retu >* >DEFINE CLASS yacrobat AS form > Height = 576 > Width = 1151 > ShowWindow = 2 > AutoCenter = .T. > Caption = "Form1" > BackColor = RGB(212,208,212) > Name = "Form1" > > ADD OBJECT obrowser AS olecontrol WITH ; > oleclass="shell.explorer.2", ; > Top = 36, ; > Left = 0, ; > Height = 541, ; > Width = 1153, ; > Anchor = 15, ; > Name = "oBrowser" > > ADD OBJECT command1 AS commandbutton WITH ; > Top = 2, ; > Left = 36, ; > Height = 25, ; > Width = 85, ; > FontBold = .T., ; > Anchor = 768, ; > Caption = "Open a pdf", ; > MousePointer = 15, ; > SpecialEffect = 2, ; > ForeColor = RGB(0,255,255), ; > BackColor = RGB(128,0,64), ; > Name = "Command1" > > ADD OBJECT command2 AS commandbutton WITH ; > Top = 2, ; > Left = 156, ; > Height = 27, ; > Width = 96, ; > FontBold = .T., ; > Anchor = 768, ; > Caption = "Simple search", ; > MousePointer = 15, ; > SpecialEffect = 2, ; > BackColor = RGB(255,255,0), ; > Name = "Command2" > > ADD OBJECT command3 AS commandbutton WITH ; > Top = 2, ; > Left = 265, ; > Height = 27, ; > Width = 107, ; > FontBold = .T., ; > Anchor = 768, ; > Caption = "Advanced search", ; > MousePointer = 15, ; > SpecialEffect = 2, ; > BackColor = RGB(128,255,0), ; > Name = "Command3" > > PROCEDURE Destroy > clea events > ENDPROC > > PROCEDURE obrowser.Init > this.silent=.t. > ENDPROC > > > PROCEDURE command1.Click > local m.lcfile > m.lcfile=getfile('pdf') > if ! inlist(lower(justext(m.lcfile)),"pdf") &&only pdf filter > return .f. > endi > thisform.oBrowser.navigate(m.lcfile) > ENDPROC > > > PROCEDURE command2.Click > local oshell > oshell=newObject("wscript.shell") > thisform.oBrowser.setFocus > oshell.sendkeys("^f") &&sensitive f minuscule open search in acrobat document > oshell=null > ENDPROC > > > PROCEDURE command3.Click > local oshell > oshell=newObject("wscript.shell") > thisform.oBrowser.setFocus > oshell.sendkeys("^F") &&sensitive F majuscule open advanced search in acrobat document > oshell=null > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: yacrobat >