[FMX] Komponente erstellen. Text bleibt trotz repaint bestehen

[Darlo]

Code:

TSwitch = class(TCustomTrack)
  private
    FBitmap: TBitmap;
    FOnBrush, FOffBrush: TBrush;
    FBackground: TShape;
    FOnSwitch: TNotifyEvent;
    FIsChecked: Boolean;
    procedure UpdateBitmap;
    procedure FillBitmap; virtual;
    procedure SetIsChecked(const Value: Boolean);
  protected
    procedure ApplyStyle; override;
    procedure FreeStyle; override;
    procedure Realign; override;
    procedure SetValue(Value: Single); override;
    procedure SetOrientation(const Value: TOrientation); override;
    procedure EndTracking; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property StyleLookup;
    property IsChecked: Boolean read FIsChecked write SetIsChecked;
    property OnSwitch: TNotifyEvent read FOnSwitch write FOnSwitch;
  end;

Ich meine SetValue ist schon der richtige Punkt...

Wenn ich den SwitchText zur Laufzeit erstelle funktioniert alles richtig...
Ich verstehs nicht....

[NickelM]

Dumme Frage, kenne mich nicht mit Firemonkey aus, aber hat FText nicht auch ein Repaint vielleicht?
Versuch mal nach jedem normalen Repaint einen TText.repaint aufzurufen. Hört sich so an, als würde die TText Komponente, die Fläche des alten Texten nicht richtig neuzeichen (also eine Art FillRect in Delphi, das man macht um die Fläche zu übermalen und der Text wird anscheinend mit transparent Hintergrund auf den "Komponenten" Hintergrund gemalt.
Ich denke zur Laufzeit, übernihmt Windows das neuzeichnen.