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

Qt: Small optimization to TQtWidgetSet.DrawText(), bugfix EnumFontFamiliesEx() - wrong UTF8 conversion.

Browse Source 
git-svn-id: trunk@15173 -
This commit is contained in:
zeljko 2008-05-17 21:12:16 +00:00
parent 59bebbe0f1
commit 0c3416a0e8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/qt/qtwinapi.inc
View File

@ -1162,7 +1162,10 @@ begin
QtDC :=TQtDeviceContext(DC);
WideStr := GetUtf8String(Str);
if Count >= 0 then
WideStr := GetUtf8String(Copy(Str, 1, Count))
else
WideStr := GetUtf8String(Str);
// convert DT flags to QT Flags
F := 0;
@ -1355,7 +1358,7 @@ var
for j := 0 to Result - 1 do
begin
QStringList_at(StrLst, @Str, j);
List.Add(GetUtf8String(Str));
List.Add(Utf8Encode(Str));
end;
finally
QFontDatabase_destroy(FontDB);