Neuer Blog über FireMonkey Entwicklung eröffnet

[himitsu]

Passiert jedem mal und man lernt eben nie aus.

Einfach kopieren, via Strg+V im FormDesigner einfügen und F9 drücken.
Man müsste nur noch beim Start die Animationen einmal mit der aktuellen Zeit synchronisieren
oder besser noch über die LiveBinding-Expressions ... dann braucht man garkeinen "Code" mehr.

Bei den LiveBindings-Expressions ist es so, dass man in den Bindings direkt "Code" verwenden kann, also nicht nur synchronisere Property pA von Objekt oA mit Property pB von Objekt oB , sondern dass bei der "Zuweisung" auch noch irgendwelche mathematischen Operationen auf den Wert angewendet werden sollen.

Code:

object Circle1: TCircle
  Align = Center
  Size.Width = 400.000000000000000000
  Size.Height = 400.000000000000000000
  Size.PlatformDefault = False
  object Layout1: TLayout
    Align = Center
    Size.Width = 50.000000000000000000
    Size.Height = 400.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 0
    object Text1: TText
      Align = Top
      Text = '12'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
    object Text2: TText
      Align = Bottom
      Position.Y = 350.000000000000000000
      Text = '6'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
  end
  object Layout2: TLayout
    Align = Center
    RotationAngle = 30.000000000000000000
    Size.Width = 50.000000000000000000
    Size.Height = 400.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 1
    object Text3: TText
      Align = Top
      RotationAngle = -30.000000000000000000
      Text = '1'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
    object Text4: TText
      Align = Bottom
      Position.Y = 350.000000000000000000
      RotationAngle = -30.000000000000000000
      Text = '7'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
  end
  object Layout3: TLayout
    Align = Center
    RotationAngle = 60.000000000000000000
    Size.Width = 50.000000000000000000
    Size.Height = 400.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 2
    object Text5: TText
      Align = Top
      RotationAngle = -60.000000000000000000
      Text = '2'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
    object Text6: TText
      Align = Bottom
      Position.Y = 350.000000000000000000
      RotationAngle = -60.000000000000000000
      Text = '8'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
  end
  object Layout4: TLayout
    Align = Center
    RotationAngle = 90.000000000000000000
    Size.Width = 50.000000000000000000
    Size.Height = 400.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 3
    object Text7: TText
      Align = Top
      RotationAngle = -90.000000000000000000
      Text = '3'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
    object Text8: TText
      Align = Bottom
      Position.Y = 350.000000000000000000
      RotationAngle = -90.000000000000000000
      Text = '9'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
  end
  object Layout5: TLayout
    Align = Center
    RotationAngle = 120.000000000000000000
    Size.Width = 50.000000000000000000
    Size.Height = 400.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 4
    object Text9: TText
      Align = Top
      RotationAngle = -120.000000000000000000
      Text = '4'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
    object Text10: TText
      Align = Bottom
      Position.Y = 350.000000000000000000
      RotationAngle = -120.000000000000000000
      Text = '10'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
  end
  object Layout6: TLayout
    Align = Center
    RotationAngle = 150.000000000000000000
    Size.Width = 50.000000000000000000
    Size.Height = 400.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 5
    object Text11: TText
      Align = Top
      RotationAngle = -150.000000000000000000
      Text = '5'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
    object Text12: TText
      Align = Bottom
      Position.Y = 350.000000000000000000
      RotationAngle = -150.000000000000000000
      Text = '11'
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
    end
  end
  object RoundRect1: TRoundRect
    Fill.Color = claBlack
    Position.X = 191.000000000000000000
    Position.Y = 64.000000000000000000
    RotationCenter.Y = 0.935000002384185700
    Size.Width = 17.000000000000000000
    Size.Height = 145.000000000000000000
    Size.PlatformDefault = False
    object FloatAnimation1: TFloatAnimation
      Enabled = True
      Duration = 43200.000000000000000000
      PropertyName = 'RotationAngle'
      StartValue = 0.000000000000000000
      StopValue = 360.000000000000000000
    end
  end
  object RoundRect2: TRoundRect
    Fill.Color = claBlack
    Position.X = 193.000000000000000000
    Position.Y = 40.000000000000000000
    RotationCenter.Y = 0.944000005722046000
    Size.Width = 13.000000000000000000
    Size.Height = 169.000000000000000000
    Size.PlatformDefault = False
    object FloatAnimation2: TFloatAnimation
      Enabled = True
      Duration = 3600.000000000000000000
      PropertyName = 'RotationAngle'
      StartValue = 0.000000000000000000
      StopValue = 360.000000000000000000
    end
  end
  object RoundRect3: TRoundRect
    Fill.Color = claCrimson
    Position.X = 196.000000000000000000
    Position.Y = 24.000000000000000000
    RotationCenter.Y = 0.875000000000000000
    Size.Width = 8.000000000000000000
    Size.Height = 201.000000000000000000
    Size.PlatformDefault = False
    object FloatAnimation3: TFloatAnimation
      Enabled = True
      Duration = 60.000000000000000000
      Loop = True
      PropertyName = 'RotationAngle'
      StartValue = 0.000000000000000000
      StopValue = 360.000000000000000000
    end
  end
end