paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 10:56:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: replace UTF8String with String type

Browse Source 
git-svn-id: trunk@33552 -
This commit is contained in:
paul 2011-11-16 05:52:31 +00:00
parent 8ee87295fc
commit cd6febc8f8
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carbonwinapi.inc
View File

@ -819,7 +819,7 @@ function TCarbonWidgetSet.EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont;
var
FamilyCount: LongWord;
FamilyListPtr, PFamily: ^ATSUFontID;
FontName: UTF8String;
FontName: String;
EnumLogFont: TEnumLogFontEx;
Metric: TNewTextMetricEx;
FontType, I: Integer;

2
lcl/interfaces/cocoa/cocoaproc.pas
View File

@ -511,7 +511,7 @@ end;
function CarbonFontIDToFontName(ID: ATSUFontID): String;
var
NameLength: LongWord;
FontName: UTF8String;
FontName: String;
const
SName = 'CarbonFontIDToFontName';
begin

2
lcl/interfaces/win32/win32winapi.inc
View File

@ -2054,7 +2054,7 @@ end;
function TWin32WidgetSet.GetTextExtentExPoint(DC: HDC; Str: PChar;
Count, MaxWidth: Integer; MaxCount, PartialWidths: PInteger; var Size: TSize): Boolean;
var
LCLStr: utf8string;
LCLStr: string;
s: AnsiString;
w: WideString;
begin