FMXChangeStyle

fmxchangestyle

การเปลี่ยนแปลงสไตล์ FMX ด้วยการใช้เอฟเฟกต์เริ่มต้น (เอฟเฟกต์การเปลี่ยนแปลงเช่น tblUrTransitionEffect, tfadetransitioneffect, ... )

 uses
  FMX.StyleChanger, FMX.Filter.Effects;

type
  EffectClass = TBlurTransitionEffect;

TStyleExt.Change<EffectClass>(Self, StyleBookDark,
   function(Effect: EffectClass): TBitmap
   begin
     Result := Effect.Target;
     Effect.Progress := 0 ;
   end );