Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Toolbar in VFP9
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2000 Server
Database:
MS SQL Server
Divers
Thread ID:
00990306
Message ID:
00990379
Vues:
50
This message has been marked as the solution to the initial question of the thread.
>I have VFP9 and I want to change the toolbar Print Preview to insert my button with my class PDF. How to add a button and code in the toolbar of Fox?

1. Locate this path on your computer:
"C:\Program Files\Microsoft Visual FoxPro 9\Tools\xsource"
2. In this folder, you will find XSource.zip and unzip the ReportPreview folder to a desired place.
3. Then modify the ReportPreview project in VFP 9.
4. From the project manager, activate the class tab and locate frxpreview.vcx and expand it
5. The last class is the Toolbar that you want, it's named frxpreviewtoolbar
6. Import your class PDF lib into the project and add your button to this toolbar
7. Write appropriate code for you implementations
8. Build the project targeted to an APP file
9. set the _ReportPreview system variable to your new ReportPreview.app in VFP 9
10. Use it like this
do (_ReportPreview) with m.loPreview
with m.loPreview
	.CurrentPage      = 1	&& start with page 1
	.ToolbarIsVisible = .t.	&& display the toolbar
	.CanvasCount      = 2	&& display 2-up pages
	.ZoomLevel        = 4	&& set zoom to 75%
	.Width            = _screen.Width - 30
	.Caption          = 'My very own preview'
endwith

* Create the listener and tell it to use the preview window.

m.loListener = newobject('MyListener', ;
	'MyListenerLib.vcx')
m.loListener.OutputType = 1
m.loListener.PreviewContainer = m.loPreview
report form myreport.frx object loListener
HTH
Dawa Tsering


"Do not let any unwholesome talk come out of your mouths,
but only what is helpful for building others up according to their needs,
that it may benefit those who listen."

- Ephesians 4:29-30 NIV

Dare to Question -- Care to Answer

Time is like water in a sponge, as long as you are willing you can always squeeze some.

--Lu Xun, Father of Modern Chinese Literature

Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform