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

Qt5, Qt6: Initialize MaxCount in GetTextExtentInfo().Patch by Alexander Koblov. issue

Browse Source 
(cherry picked from commit 720fc1261d)

Co-authored-by: Željan Rikalo <zeljko@lazarus-ide.org>
This commit is contained in:
Željan Rikalo 2024-04-30 13:16:07 +00:00 committed by Željan Rikalo
parent 88046c217e
commit 7a0060b726
2 changed files with 6 additions and 2 deletions
lcl/interfaces
qt5
qtwinapi.inc
qt6
qtwinapi.inc

4
lcl/interfaces/qt5/qtwinapi.inc
View File

@ -4231,7 +4231,8 @@ begin
else
if Size.cx < MaxWidth then
MaxCount^ := AMaxCount
else
else begin
MaxCount^ := 0;
for i := 0 to AMaxCount - 1 do
begin
QString_at(AQtStr, @WC, I);
@ -4242,6 +4243,7 @@ begin
else
break;
end;
end;
end;
end else
begin

4
lcl/interfaces/qt6/qtwinapi.inc
View File

@ -4246,7 +4246,8 @@ begin
else
if Size.cx < MaxWidth then
MaxCount^ := AMaxCount
else
else begin
MaxCount^ := 0;
for i := 0 to AMaxCount - 1 do
begin
QString_at(AQtStr, @WC, I);
@ -4257,6 +4258,7 @@ begin
else
break;
end;
end;
end;
end else
begin