git.iko.soy/skrepka
on master help sign in
Remove unannotatable StrokeDashArray animation for delivered messages
25c6d89iko
client/ViewChat.fs−34
compare with master
unifiedsplit
@@ -55,37 +55,6 @@ module ViewChat =
55 | None -> ()
55 | None -> ()
56 , Avalonia.Threading.DispatcherPriority.Background) |> ignore
56 , Avalonia.Threading.DispatcherPriority.Background) |> ignore
57
57
58− let private ensureSolidifyStyle =
59− lazy
60− (let s =
61− Avalonia.Styling.Style(fun sel ->
62− sel.OfType<Avalonia.Controls.Shapes.Rectangle>().Class("solidifying"))
63−
64− let anim = Avalonia.Animation.Animation()
65− anim.Duration <- System.TimeSpan.FromMilliseconds 600.
66− anim.IterationCount <- Avalonia.Animation.IterationCount(1UL)
67− anim.FillMode <- Avalonia.Animation.FillMode.Forward
68−
69− for i in 0..10 do
70− let t = float i / 10.
71− let dash = 4. + 2. * t
72− let gap = 2. - 2. * t
73− let kf = Avalonia.Animation.KeyFrame()
74− kf.Cue <- Avalonia.Animation.Cue(float32 t)
75−
76− kf.Setters.Add(
77− Avalonia.Styling.Setter(
78− Avalonia.Controls.Shapes.Shape.StrokeDashArrayProperty,
79− box (Avalonia.Collections.AvaloniaList<float>([| dash; gap |]))))
80−
81− kf.Setters.Add(
82− Avalonia.Styling.Setter(Avalonia.Controls.Shapes.Shape.StrokeDashOffsetProperty, box 0.))
83−
84− anim.Children.Add(kf)
85−
86− s.Animations.Add(anim)
87− Avalonia.Application.Current.Styles.Add(s))
88−
89 let private messageItem m =
58 let private messageItem m =
90 let align, cols, col =
59 let align, cols, col =
91 match m.Direction with
60 match m.Direction with
@@ -116,13 +85,10 @@ module ViewChat =
116 .isHitTestVisible(false)
85 .isHitTestVisible(false)
117 .classes("marching")
86 .classes("marching")
118 else
87 else
119− ensureSolidifyStyle.Force()
120−
121 Rectangle()
88 Rectangle()
122 .stroke(Avalonia.Media.Colors.Black)
89 .stroke(Avalonia.Media.Colors.Black)
123 .strokeThickness(4.)
90 .strokeThickness(4.)
124 .isHitTestVisible(false)
91 .isHitTestVisible(false)
125− .classes("solidifying")
126 | Incoming ->
92 | Incoming ->
127 Rectangle()
93 Rectangle()
128 .stroke(Avalonia.Media.Colors.Black)
94 .stroke(Avalonia.Media.Colors.Black)