anchor.diff:    Fd_SavePdf:= TfpgFileDialog.Create(nil);
     Fd_SavePdf.InitialDir:= ExtractFilePath(Paramstr(0));
     Fd_SavePdf.FontDesc:= 'bitstream vera sans-9';
  -  Fd_SavePdf.Filter:= 'Fichiers pdf |*.pdf';
  +  Fd_SavePdf.Filter:= 'PDF files (*.pdf) |*.pdf';
     Fd_SavePdf.FileName:= 'Cadres.pdf';
     try
       if Fd_SavePdf.RunSaveFile
  
positive.code: Bt_PrintGraph.Enabled:= False;
  Bt_PrintSurf:= CreateButton(Self,450,430,150,'Show surface',@Bt_PrintSurfClick,'stdimg.print');
  Bt_PrintSurf.Enabled:= False;
  Bt_Exit:= CreateButton(Self,450,500,150,'Fermer',@Bt_ExitClick,'stdimg.exit');
  Bt_Exit.BackgroundColor:= clTomato;
  Randomize;
  for Cpt:= 0 to 18 do
  
negative.code:   Fd_SavePdf:= TfpgFileDialog.Create(nil);
    Fd_SavePdf.InitialDir:= ExtractFilePath(Paramstr(0));
    Fd_SavePdf.FontDesc:= 'bitstream vera sans-9';
    Fd_SavePdf.Filter:= 'PDF files (*.pdf) |*.pdf';
    Fd_SavePdf.FileName:= 'MultiSections.pdf';
    try
      if Fd_SavePdf.RunSaveFile
  