Par force des choses , j'ai été obligé de créer (modifier serait plus correct) une prévisualisation de mes états QRP.
je voudrais maintenant ajouté une sauvegarde sous un format différent (RTF ,WMF,... voir même PDF ) mais là je plante .
voilà mon code , pomper directement de chez QSoft
le dialogue de sauvegarde fonctionne ,mais rien ne se passe ,j'ai essayé en rajoutant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 procedure TfrmNetScapePreview.btnSaveClick(Sender: TObject); var aExportFilter : TQRExportFilter; begin aExportFilter := nil; with TSaveDialog.Create(Application) do try Title := 'Sauvegarder Etat'; Filter := QRExportFilterLibrary.SaveDialogFilterString; DefaultExt := cQRPDefaultExt; if Execute then begin if FilterIndex = 1 then QRPrinter.Save(Filename) // ceci fonctionne mais ne sert pas à grand chose else begin try aExportFilter := TQRExportFilterLibraryEntry( QRExportFilterLibrary.Filters[FilterIndex - 2]).ExportFilterClass.Create(Filename); QRPrinter.ExportToFilter(aExportFilter); finally aExportFilter.Free end end end; finally Free; end; end;
Attention , je parle bien d'un fichier QRP chargé et non d'un état généré par le programme (dans ce cas ça à l'air de fonctionner) , une idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part aExportFilter.OriginalQRPrinter:=QrPrinter; // ceci ne donne rien de plus
Partager