Frontend.Maui: Color.Default equivalent for maui

Save previous assigned color and use instead of Color.Default. This is needed because maui doesn't have Color.Default [1]. And this commit is workaround for that. [1] dotnet/Microsoft.Maui.Graphics#57
parhamsaremi · May 25, 2023 · c9ad130 · c9ad130
1 parent 14d3351
commit c9ad130
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/GWallet.Frontend.XF/SendPage.xaml.fs b/src/GWallet.Frontend.XF/SendPage.xaml.fs
@@ -69,7 +69,13 @@ type SendPage(account: IAccount, receivePage: Page, newReceivePageFunc: unit->Pa
     let transactionLayout = mainLayout.FindByName<StackLayout> "transactionLayout"
     let transactionLabel = mainLayout.FindByName<Label> "transactionLabel"
     let transactionEntry = mainLayout.FindByName<Entry> "transactionEntry"
+#if !XAMARIN
+    let defaultTransactionEntryTextColor = transactionEntry.TextColor
+#endif
     let amountToSendEntry = mainLayout.FindByName<Entry> "amountToSend"
+#if !XAMARIN
+    let defaultAmountToSendTextColor = amountToSendEntry.TextColor
+#endif
     let destinationAddressEntry = mainLayout.FindByName<Entry> "destinationAddressEntry"
     let allBalanceButton = mainLayout.FindByName<Button> "allBalance"
     let passwordEntry = mainLayout.FindByName<Entry> "passwordEntry"
@@ -457,6 +463,8 @@ type SendPage(account: IAccount, receivePage: Page, newReceivePageFunc: unit->Pa
                     MainThread.BeginInvokeOnMainThread(fun _ ->
 #if XAMARIN
                         transactionEntry.TextColor <- Color.Default
+#else
+                        transactionEntry.TextColor <- defaultTransactionEntryTextColor
 #endif
                         destinationAddressEntry.Text <- unsignedTransaction.Proposal.DestinationAddress
                         amountToSendEntry.Text <- unsignedTransaction.Proposal.Amount.ValueToSend.ToString()
@@ -484,6 +492,8 @@ type SendPage(account: IAccount, receivePage: Page, newReceivePageFunc: unit->Pa
                     MainThread.BeginInvokeOnMainThread(fun _ ->
 #if XAMARIN
                         transactionEntry.TextColor <- Color.Default
+#else
+                        transactionEntry.TextColor <- defaultTransactionEntryTextColor
 #endif
                         sendOrSignButton.IsEnabled <- true
                     )
@@ -538,6 +548,10 @@ type SendPage(account: IAccount, receivePage: Page, newReceivePageFunc: unit->Pa
                         MainThread.BeginInvokeOnMainThread(fun _ ->
                             amountToSend.TextColor <- Color.Default
                         )
+#else
+                        MainThread.BeginInvokeOnMainThread(fun _ ->
+                            amountToSend.TextColor <- defaultAmountToSendTextColor
+                        )
 #endif
                         match usdRate with
                         | NotFresh NotAvailable ->