[Bug 20049] Path Problems with SaveDialog
wine-bugs at winehq.org
wine-bugs at winehq.org
Tue Sep 15 01:52:44 CDT 2009
http://bugs.winehq.org/show_bug.cgi?id=20049
--- Comment #5 from CortelliStefano <studioragcortelli at 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.
More information about the wine-bugs
mailing list