Einstellen der ListBox-Elemente Höhe passen Sie den text in Firemonkey (android)?

Ich bin mit diesem code und fügen Sie ein Element in eine listbox, aber ich kann nicht herausfinden, wie man dynamisch ändern Sie die Höhe des Elements passen Sie den text:

procedure TmForm.AddItemBtnClick(Sender: TObject);
var
  Item: TListBoxItem;
begin
  Item := TListBoxItem.Create(nil);
  Item.Parent := SomeListBox;
  Item.StyleLookup := 'listboxitemstyle';
  Item.Text :=
              'Pe cararea lunga scurta se ducea un om venind, si-n tacerea lui ' +
              'profunda se auzea borborosind. Cantr-o noapte intunecoasa soarel' +
              'e lucea pe cer, iara eu cu barca in casa ma plimbam ca un boier.';
  Item.WordWrap := true;
  Item.StyledSettings := [TStyledSetting.ssFamily] + [TStyledSetting.ssStyle] + [TStyledSetting.ssFontColor];
  Item.Font.Size := 14;
end;

Habe ich versucht mit dem code von dieses Beispiel (modifiziert für TListBoxItem), aber es hat nicht funktioniert.

Edit: Die Höhe des ListBoxItem kann eingestellt werden, indem einfach Item.Height := 100; am Ende der code oben, aber ich muss wissen, die Höhe des Textes, um zu entscheiden, welche Größe das ListBoxItem werden muss, um zu klären, meine Frage, wie bekomme ich die Höhe des Textes in der Liste box item?

InformationsquelleAutor ioan ghip | 2014-01-26

1

Pop-resizing-code in der OnApplyStyleLookup Veranstaltung.

Geschrieben aus der Spitze von meinem Kopf, und die Art und Weise der Vergangenheit vor dem Schlafengehen:
```
procedure TForm1.ListBoxItemApplyStyleLookup(Sender: TObject);
var O: TFMXObject;
begin
  O := (Sender as TListBoxItem).FindStyleResource('text');
  if O is TText then
    (Sender as TListBoxItem).Height := (O as TText).Height;
end;
```
Werden Sie, natürlich, benötigen, um das Ereignis für jedes Element, das Sie erstellen.

Ich Hinzugefügt mein code Posten.OnApplyStyleLookup := ListBoxItemApplyStyleLookup; und den code, den Sie geschrieben, aber die Ergebnisse sind die gleichen, eigentlich ist der code in der ListBoxItemApplyStyleLookup nie erreicht.
Wir kann nicht manuell eingestellt Höhe für ListItem-auf diese Weise, weil für mobile Plattformen firemonkey-Stil-fixes Höhe des Elements, so können Sie nicht direkt ändern Höhe.
das ist nur für bestimmte Steuerelemente wie für die edits und buttons. Es gibt auch andere Steuerungen, wo die Höhe manuell eingestellt werden können.
Ist der Artikel tatsächlich angezeigt wird? Der Stil ist nur einmal eine Kontrolle auf dem Bildschirm angezeigt wird.
Meine tests zeigen, müssen Sie die event-handler als sehr erste, was Sie tun nach dem erstellen der Element, die Es wird dann funktionieren.

InformationsquelleAutor Mike Sutton

Wie erwähnt von Mike Sutton, es kann getan werden OnApplyStyleLookup Veranstaltung.
Ich mache es mit einem TTextLayout :

uses 
... ,FMX.TextLayout;

procedure TfrmForm1.ListBoxItem1ApplyStyleLookup(Sender: TObject);
var
  myLayout: TTextLayout;
  aPoint: TPointF;
begin

  myLayout := TTextLayoutManager.DefaultTextLayout.Create;
  myLayout.BeginUpdate;

  // Setting the layout MaxSize
  aPoint.X := ListBoxItem1.Width;
  aPoint.Y := TfrmForm1.Height;
  myLayout.MaxSize := aPoint;

  myLayout.Text := ListBoxItem1.Text;
  myLayout.WordWrap := True ;
  myLayout.Font := ListBoxItem1.Font;
  myLayout.HorizontalAlign := ListBoxItem1.TextSettings.HorzAlign;
  myLayout.VerticalAlign := ListBoxItem1.TextSettings.VertAlign;
  myLayout.Padding := ListBoxItem1.Padding;
  // set other properties as needed        

  myLayout.EndUpdate;

  ListBoxItem1.Height := Trunc(myLayout.TextHeight) + 3 ; // +3px to be sure to see entire text

end;

Beachten Sie, dass MaxSize ist limitating. Zum Beispiel aPoint.Y begrenzen die Letzte TextHeight. Sollten Sie es groß, weil, was auch immer TextHeight werden sollte, wenn myLayout.TextHeight ist größer als myLayout.MaxSize.Y dann myLayout.TextHeight auf myLayout.MaxSize.Y.

Hier ist eine Liste von TTextLayout Eigenschaften.

InformationsquelleAutor Frédéric Hebrard

Hier ist der Mike Sutton code, der verbessert und getestet von mir. Funktioniert für den Fall eines Elements mit einer Detail-text - (.ItemData.Detail). Die Variante mit TextLayout hat nicht funktioniert für mich.

Dieser code ist getestet für Windows-und Android-Anwendung.

procedure TTestForm.ListBoxItem1ApplyStyleLookup(Sender: TObject);
var item: TListBoxItem absolute Sender;

  function CalcHeight( SubStyle: String ): Single;
  var Obj: TFMXObject; T: TText absolute Obj;
  begin
    Obj := item.FindStyleResource(SubStyle);
    if Obj is TText
    then Result := T.Canvas.TextHeight(T.Text)
                 + T.Margins.Top + T.Margins.Bottom
                 + T.Padding.Top + T.Padding.Bottom
    else Result := 0;
  end;

begin
  item.Height := CalcHeight('text')
               + CalcHeight('detail');
end;

InformationsquelleAutor Alexander Stoyan

-1

Gibt es eine wichtige Sache, die zum ändern der Größe der Steuerung: "Für die mobile Plattform firemonkey-fix-Höhe und mit einige Steuerelemente". Denn:
1. UI Style Guidline für jede Plattform definieren die Regeln über die Größe der Standard-Steuerelemente.
2. Firemonkey verwendet, raster-Stil, so dass Sie nicht ändern können eine gewisse Kontrolle der Größe, denn Sie verlor eine Qualität der anzeigen
Jedoch, Sie können diese Constraints werden. Blick auf die meine Lösung, diese (Automatisch übersetzt mit Google): Kann nicht erhöhen die Höhe TProgressBar

Diesem Artikel über TProgressBar, Aber Sie können diesen Ansatz auch für einen TListBoxItem.

Gibt es nicht eine FixedHeight Feld für das ListBoxItem und die Höhe des Elements kann festgelegt werden bu, nur das hinzufügen Element.Höhe := 95; in den code, aber ich brauche, um zu wissen, die Höhe des Texts zu wissen, welcher Wert zu setzen, das ListBoxItem Höhe.

InformationsquelleAutor Yaroslav Brovin

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.