http://bugs.winehq.org/show_bug.cgi?id=20049
--- Comment #5 from CortelliStefano studioragcortelli@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;