[Bug 20049] Path Problems with SaveDialog

http://bugs.winehq.org/show_bug.cgi?id=20049





--- Comment #5 from CortelliStefano <studioragcortelli(a)tiscali.it>  2009-09-15 01:52:43 ---
Created an attachment (id=23604)
 --> (http://bugs.winehq.org/attachment.cgi?id=23604)
Source - Pascal Code unit filecrypt, that OpenFile and SaveFile component has:

procedure TfrmFileCrypt.btnSaveFileClick(Sender: TObject);

var

  F: String;

begin

  Edit2.Text := '';

  F := ''; //Default

  SaveDialog1.FileName := '';
  SaveDialog1.InitialDir := ''; //PrnFilePath;

  SaveDialog1.Options := [ofOverwritePrompt];

  SaveDialog1.Execute;

  F := Trim(SaveDialog1.FileName);

  SaveDialog1.Close;

  if (F <> '') then begin

    Edit2.Text := F;

  end;

end;


procedure TfrmFileCrypt.btnOpenFileClick(Sender: TObject);

var

  F: String;

begin

  Edit1.Text := '';

  F := ''; //Default

  OpenDialog1.FileName := '';
  OpenDialog1.InitialDir := ''; //PrnFilePath;

  OpenDialog1.Options := [ofOverwritePrompt];

  OpenDialog1.Execute;

  F := Trim(OpenDialog1.FileName);

  OpenDialog1.Close;

  if (F <> '') then begin

    Edit1.Text := F;

  end;

end;

-- 
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
Do not reply to this email, post in Bugzilla using the
above URL to reply.
------- You are receiving this mail because: -------
You are watching all bug changes.