TTreeview - Höhe der Items bei Eigenschaft Wordwrap nicht korrekt

[bluesky70]

Hallo,

ich hänge nochmal einen Sceenshot an, wie das ganze aussieht bzw. was das Problem ist.

Ausserdem die PAS und FMX-Datei. Ist also direkt ersichtlich bei einem einfachen Beispielform mit einem Treeview.

Was mache ich da falsch?

Danke im Voraus.

Delphi-Quellcode:

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 480
  ClientWidth = 640
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnShow = FormShow
  DesignerMasterStyle = 0
  object TreeView1: TTreeView
    Align = Client
    Size.Width = 640.000000000000000000
    Size.Height = 480.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 0
    Viewport.Width = 636.000000000000000000
    Viewport.Height = 476.000000000000000000
  end
end

Delphi-Quellcode:

unit TreeTest;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,
  FMX.TreeView;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormShow(Sender: TObject);
Var ParentItem,
    TreeItem : TTreeViewItem;
    Cnt      : Integer;

begin
Cnt           := 1;
TreeItem      := TTreeViewItem.Create(nil);
TreeItem.Name := 'ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text     := 'Stufe 1';
TreeItem.Parent   := TreeView1;
ParentItem        := TreeItem;
TreeItem      := TTreeViewItem.Create(nil);
TreeItem.Name := 'ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text     := 'Stufe 2';
TreeItem.Parent   := ParentItem;
ParentItem        := TreeItem;
TreeItem      := TTreeViewItem.Create(nil);
TreeItem.Name := 'ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text     := 'Stufe 3';
TreeItem.Parent   := ParentItem;
ParentItem        := TreeItem;
TreeItem      := TTreeViewItem.Create(nil);
TreeItem.Name := 'ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text     := 'Stufe 4: kurzer Text';
TreeItem.Parent   := ParentItem;
TreeItem      := TTreeViewItem.Create(nil);
TreeItem.Name := 'ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text     := 'Stufe 4 mit langem Text für Umbruch';
TreeItem.Parent   := ParentItem;
TreeItem      := TTreeViewItem.Create(nil);
TreeItem.Name := 'ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text     := 'Stufe 4: wieder kurz';
TreeItem.Parent   := ParentItem;
end;

end.