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

Qt,Gtk2: corrected return of Size.cx, simplified and fixed code in qt implementation about Size.cx returned values.

Browse Source 
git-svn-id: trunk@27416 -
This commit is contained in:
zeljko 2010-09-20 06:54:25 +00:00
parent 3ecc366dbd
commit 13bd9d7378
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -5557,7 +5557,10 @@ begin
inc(MaxCount^);
PartialWidths[i] := Size.cx;
end else
begin
dec(Size.cx, Rect.Width);
break;
end;
end else
PartialWidths[i] := Size.cx;
if Size.cy < Rect.Height then

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

@ -3484,7 +3484,6 @@ function TQtWidgetSet.GetTextExtentExPoint(DC: HDC; Str: PChar; Count,
var
i: Integer;
w: Integer;
Accumulator: Integer;
AStr: WideString;
begin
Result := False;
@ -3492,27 +3491,33 @@ begin
with TQtDeviceContext(DC) do
begin
AStr := GetUtf8String(Str);
Size.cX := Font.Metrics.Width(@AStr, Count);
Size.cY := Font.Metrics.Height;
if PartialWidths <> nil then
if PartialWidths = nil then
begin
Size.cX := Font.Metrics.Width(@AStr, Count);
Size.cY := Font.Metrics.Height;
end else
begin
Size.cx := 0;
Size.cY := Font.Metrics.Height;
if MaxCount <> nil then
MaxCount^ := 0;
Accumulator := 0;
for i := 0 to Count - 1 do
begin
w := QFontMetrics_charWidth(Font.Metrics.Widget, @AStr, i);
Inc(Accumulator, w);
Inc(Size.cx, w);
if MaxCount <> nil then
begin
if Accumulator <= MaxWidth then
if Size.cx <= MaxWidth then
begin
inc(MaxCount^);
PartialWidths[i] := Accumulator;
PartialWidths[i] := Size.cx;
end else
begin
Dec(Size.cx, w);
break;
end;
end else
PartialWidths[i] := Accumulator;
PartialWidths[i] := Size.cx;
end;
end;
end;