paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 21:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* converted non-ascii characters in stddlg.pas to unicode and #XXX equivalents in the non-unicode version

Browse Source 
git-svn-id: branches/unicodekvm@48867 -
This commit is contained in:
nickysn 2021-03-02 12:42:21 +00:00
parent 6aacb96961
commit 088a52a1ce
1 changed files with 31 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
packages/fv/src/stddlg.pas
View File

@ -1832,12 +1832,21 @@ begin
end;
procedure TDirListBox.NewDirectory(var ADir: DirStr);
{$ifdef FV_UNICODE}
const
PathDir = 'ŔÄÂ';
FirstDir = 'ŔÂÄ';
MiddleDir = ' ĂÄ';
LastDir = ' ŔÄ';
PathDir = #$2514#$2500#$252C;
FirstDir = #$2514#$252C#$2500;
MiddleDir = ' '#$251C#$2500;
LastDir = ' '#$2514#$2500;
IndentSize = ' ';
{$else FV_UNICODE}
const
PathDir = #192#196#194;
FirstDir = #192#194#196;
MiddleDir = ' '#195#196;
LastDir = ' '#192#196;
IndentSize = ' ';
{$endif FV_UNICODE}
var
AList: PCollection;
NewDir, Dirct: DirStr;
@ -1943,16 +1952,29 @@ begin
end;
FindClose(SR);
P := PDirEntry(AList^.At(AList^.Count-1))^.DisplayText;
I := Pos('Ŕ',P^);
{$ifdef FV_UNICODE}
I := Pos(#$2514,P^);
if I = 0 then
begin
I := Pos('Ă',P^);
if I <> 0 then P^[I] := 'Ŕ';
I := Pos(#$251C,P^);
if I <> 0 then P^[I] := #$2514;
end else
begin
P^[I+1] := 'Ä';
P^[I+2] := 'Ä';
P^[I+1] := #$2500;
P^[I+2] := #$2500;
end;
{$else FV_UNICODE}
I := Pos(#192,P^);
if I = 0 then
begin
I := Pos(#195,P^);
if I <> 0 then P^[I] := #192;
end else
begin
P^[I+1] := #196;
P^[I+2] := #196;
end;
{$endif FV_UNICODE}
end;
NewList(AList);
FocusItem(NewCur);