pascal/kolmck
pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

фикс тулбара для уникода

Browse Source 
git-svn-id: https://svn.code.sf.net/p/kolmck/code@20 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck 2009-08-31 06:43:56 +00:00
parent 2ab8b39ada
commit 17011970db
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mirror.pas
View File

@ -8609,7 +8609,7 @@ begin
end; end;
if Result <> '' then if Result <> '' then
if Result[ 1 ] <> '''' then if Result[ 1 ] <> '''' then
Result := 'PChar( ' + Result + ' )'; Result := 'PKOLChar( ' + Result + ' )';
end; end;
function P_PCharStringConstant( Sender: TObject; const Propname, Value: String ): String; function P_PCharStringConstant( Sender: TObject; const Propname, Value: String ): String;