Firemonkey TEdit mit Autosize?

[Mavarik]

Hallo Zusammen!

Ich möchte meiner FMX.TMyEdit(FMX.TEdit) ein AutoSize Feature wie bei einem TLabel beibringen.

Beispiel:

Delphi-Quellcode:

constructor TMyEdit.Create(AOwner: TComponent);
begin
  inherited;
  Text       := '0,00';
// Wie?      if CalcTextObjectSize(Width, LSize) then
// Width     := LSize;
end;

Wie bekomme ich ein CalcTextObjectSize bei einem TEdit hin? Ich steh gerade auf dem Schlauch!

Mavarik

[Darlo]

Vielleicht hilft dir das weiter:
http://www.delphipraxis.net/182404-%...ml#post1276909

[Mavarik]

Zitat von Darlo:

Vielleicht hilft dir das weiter:
http://www.delphipraxis.net/182404-%...ml#post1276909

Nee, gar nicht FMX!!

[Darlo]

Eben, leg ein unsichtbares label in den Hintergrund, kopiere da den Text rein und ermittel dann die Länge. Beim Label natürlich autosize auf true. Crossplattform wüsste ich keine andere Lösung.

[Harry Stahl]

Vermutlich kannst Du das zum Create-Zeitpunkt des TEdits noch nicht machen, weil das TEdit da noch kein Canvas(-Bezug) hat (zur Laufzeit ist er da und nutzbar). Beim Label macht es die Private Fitsize-Procedure, um das Autosize umzusetzen, die setzt aber u.a. ein existierendes IScene-Object voraus, das zum Create-Zeitpunkt auch noch nicht da ist, die Fitsize-Funktion wird mehrmals ergebnislos verlassen, irgendwann später ist alles Benötigte da, dann wird das Sizing auch ausgeführt.

Ich bin kein Komponentenentwicker, daher kann ich Dir hier keinen Tipp geben, wie oder wo man das im Komponentendesign an der richtigen Stelle macht.

Ein Workaround geht aber immer, weiß aber nicht, ob Dir das hilft:

Delphi-Quellcode:

unit Unit5;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.Edit, FMX.StdCtrls;

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  TMyEdit = class (TEdit)
  public
    constructor create (AOwner: TComponent); override;
  end;

var
  Form5: TForm5;

implementation

{$R *.fmx}

{ TMyEdit }
constructor TMyEdit.create(AOwner: TComponent);
var
  ACompo: TComponent;
begin
  inherited;
  Text := '0,00';

  ACompo := AOwner; // Form suchen
  while ACompo.HasParent do begin
    ACompo := ACompo.GetParentComponent;
  end;

  Width := TForm (ACompo).Canvas.textwidth (Text) + 6;
end;


procedure TForm5.FormCreate(Sender: TObject);
var
  myEd, myEd2: TMyEdit;
begin
  myEd := TMyEdit.create(self);
  myEd.Parent := self;
  myEd.Visible := True;
  myEd.Stylelookup := 'editstyle';
  myEd.Position.x := 100;
  myEd.Position.Y := 20;
  myEd.SetFocus;

  MyEd2 := TMyEdit.create(panel1);
  MyEd2.Parent := Panel1;
  MyEd2.Visible := True;
  MyEd2.Stylelookup := 'editstyle';
  MyEd2.Position.x := 10;
  MyEd2.Position.Y := 10;
  MyEd2.SetFocus;

end;

end.

Das Ergebnis sieht wie im Screenshot aus. Ein Edit liegt auf der Form, das andere im Panel. Beides mal wird der Canvas der Form als Orientierungsgrö0e für das Sizing des TMyEdits verwendet.

[Harry Stahl]

Darlos Vorschlag dürfte nicht funktionieren, da auch das Label ja zum Zeitpunkt der Erzeugung von TMyEdit temporär erzeugt werden müsste und auch da ist die benötigte Umgebung noch nicht da.

[Mavarik]

Zitat von Harry Stahl:

Delphi-Quellcode:

  ACompo := AOwner; // Form suchen
  while ACompo.HasParent do begin
    ACompo := ACompo.GetParentComponent;
  end;

  Width := TForm (ACompo).Canvas.textwidth (Text) + 6;

Das ist so der VCL weg... Aber ein TEdit kann ja einen eigenen Style haben und der kann sich vom Form unterscheiden...

Mavarik

[Harry Stahl]

Aber Dir ging es doch hier nur um das Autosize, oder?

Den Style kannst Du doch zur Laufzeit zuweisen.

Mir ist nicht klar, ob es Dir generell auf Komponentenentwicklung ankommt oder das Ereichen einer bestimmten Lösung im Einzelfall.

[Mavarik]

Zitat von Harry Stahl:

Aber Dir ging es doch hier nur um das Autosize, oder?

Den Style kannst Du doch zur Laufzeit zuweisen.

Mir ist nicht klar, ob es Dir generell auf Komponentenentwicklung ankommt oder das Ereichen einer bestimmten Lösung im Einzelfall.

Ich sehe da erst mal keine Unterschied...

Wenn ich im ObjectInspector eine Property andere die die Größe eines TMyEdit ändern soll (in Abhängigkeit der Fontgröße), muss ich berechnen können wir breit der String "1245,01" oder "1245,--" oder "1245,00 €" ist!

Wenn sich dann der Style noch ändert und somit ggf. auch der Font... Kann ich nicht den Font des Forms nehmen.
(Oder wenn ich die Fontgröße ändere)

Mavarik

[stahli]

Zitat von Mavarik:

Ich sehe da erst mal keine Unterschied...
Mavarik

Den gibt es schon. Für eine einmalige Lösung kann man mit Formularereignissen und versteckten Controls arbeiten.
Für eine Komponentenlösung bräuchte man eher eine autarke Lösung.