FMX auf Stand Version 0.5 ???

[Harry Stahl]

Zitat von Bernhard Geyer:

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.