paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-10 18:09:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

win32 interface: implemented unicode handling of old style file open dialog (bug #11593)

Browse Source 
git-svn-id: trunk@15647 -
This commit is contained in:
vincents 2008-07-02 07:26:22 +00:00
parent 2a5dbf5d28
commit 23f6d38d68
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -648,20 +648,28 @@ var
procedure SetFilesPropertyForOldStyle(AFiles:TStrings);
var
SelectedStr: string;
FolderName: string;
I,Start: integer;
begin
SelectedStr:=StrPas(OpenFile^.lpStrFile);
I:=Pos(' ',SelectedStr);
if I = 0 then
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then
SelectedStr:=UTF8Encode(PWideChar(OpenFile^.lpStrFile))
else
SelectedStr:=AnsiToUtf8(OpenFile^.lpStrFile);
{$else}
SelectedStr:=OpenFile^.lpStrFile;
{$endif}
if not (ofAllowMultiSelect in AOpenDialog.Options) then
AFiles.Add(SelectedStr)
else begin
Delete(SelectedStr,1,I);
Start:=Pos(' ',SelectedStr);
FolderName := copy(SelectedStr,1,start-1);
SelectedStr:=SelectedStr+' ';
Start:=1;
for I:= 1 to Length(SelectedStr) do
inc(start);
for I:= Start to Length(SelectedStr) do
if SelectedStr[I] = ' ' then
begin
AFiles.Add(ExpandFileName(Copy(SelectedStr,Start,I - Start)));
AFiles.Add(ExpandFileName(FolderName+Copy(SelectedStr,Start,I - Start)));
Start:=Succ(I);
end;
end;