anchor.diff:        dlg.Filter := DefaultFilter
       else
         dlg.Filter := aFilter+'|'+DefaultFilter;
  +
  +    if AInitialDir <> '' then
  +      dlg.InitialDir := AInitialDir;
   
       if aDialogType = sfdOpen then
         dres := dlg.RunOpenFile
  
positive.code:   frm.Free;
  end;
  
  function SelectFileDialog(const ADialogType: boolean = sfdOpen; const AFilter: TfpgString = ''): TfpgString;
  var
    dlg: TfpgFileDialog;
    dres: boolean;
  
negative.code: procedure ShowMessage(AMessage: string; ACentreText: Boolean = False); overload;
  
  function SelectFontDialog(var FontDesc: string): boolean;
  function SelectFileDialog(const ADialogType: boolean = sfdOpen; const AFilter: TfpgString = ''; const AInitialDir: TfpgString = ''): TfpgString;
  function SelectDirDialog(const AStartDir: TfpgString = ''): TfpgString;
  function fpgShowCharMap: TfpgString;
  function fpgSelectColorDialog(APresetColor: TfpgColor = clBlack): TfpgColor;
  