Beim Durchdebuggen findet man die fehlerhafte Stelle. Evtl. kann man das fixen ohne auf Emba warten zu müssen.
OK, habe ich mal gemacht. Grund ist wohl der, dass in TLabel die Fitsize-Procedure nicht richtig funktioniert. Wohl deshalb, weil "CalcTextObjSize" nicht richtig arbeitet, dort ist ein TextObject = NIL, obwohl es einen Wert haben müsste (nämlich den Textinhalt des Labels).
Auf die Schnelle kann man das wie folgt fixen (wobei ich nicht garantierte, dass dies alle Eventualitäten abdeckt, bei ersten Tests sah es aber recht gut aus):
Die
Unit FMX.StdCtrls.pas aus dem Delphi-Verzeichnis, speichert man als Kopie in dem Ordner seines Projektes ab. Dann editiert man die Fitsize-Procedure wie folgt:
Delphi-Quellcode:
procedure TLabel.FitSize;
var
Size: TSizeF;
Rect: TRectF;
begin
if not FInFitSize and (not (Align in [TAlignLayout.Client, TAlignLayout.Contents])) then
begin
FInFitSize := True;
try
Size.cx := canvas.TextWidth(Text); // neu
size.cy := canvas.TextHeight(Text); // neu
//if CalcTextObjectSize(Width, Size) then
if size.cx > 0 then //neu
begin
FNeedFitSize := False;
Rect.TopLeft := Position.Point;
if not (Align in [TAlignLayout.Top, TAlignLayout.Bottom, TAlignLayout.MostTop, TAlignLayout.MostBottom,
TAlignLayout.VertCenter]) then
if Text = '' then
Rect.Width := 0
else
Rect.Width := Size.cx
else
Rect.Width := Width;
if not (Align in [TAlignLayout.Left, TAlignLayout.Right, TAlignLayout.MostLeft, TAlignLayout.MostRight,
TAlignLayout.HorzCenter]) then
Rect.Height := Size.cy
else
Rect.Height := Height;
BoundsRect := Rect;
end
else
FNeedFitSize := True;
finally
FInFitSize := False;
end;
end;
end;
Vorteil dieser Lösung ist, dass man, wenn der Fehler von EMBA gefixt wurde, einfach wieder die Kopie der FMX.StdCtrls.pas aus dem Projektverzeichnis löscht (sollte man dann aber auch nicht vergesssen), man braucht an seinem Source-Code dann weiter nichts zu ändern.