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
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;
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
aExportFilter.OriginalQRPrinter:=QrPrinter; // ceci ne donne rien de plus
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 ?