paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed check for unicode widestring, patch from FPK

Browse Source 
git-svn-id: trunk@42308 -
This commit is contained in:
mattias 2013-08-04 10:06:07 +00:00
parent b0db09b4df
commit fe0a06d109
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/controls.pp
View File

@ -2830,8 +2830,8 @@ begin
Result:='';
for cst:=low(TControlStyleType) to high(TControlStyleType) do
if cst in cs then begin
if Result<>'' then Result+=',';
Result+=dbgs(cst);
if Result<>'' then Result:=Result+',';
Result:=Result+dbgs(cst);
end;
Result:='['+Result+']';
end;

2
lcl/lcltype.pp
View File

@ -2167,7 +2167,7 @@ const
// Predefined Resource Types
//==============================================
type
{$ifdef UNICODE}
{$if defined(FPC_OS_UNICODE) or (defined(VER2_6) and defined(UNICODE))}
TResourceType = PWideChar;
{$else}
TResourceType = PChar;