Closed
Description
- Everything is working fine with the normal Window
- Everyhting build with "ThemedWindow" (the casting in main shows "val window: ThemedWindow" for the startElmishLoop param)
- When I start the app with "ThemedWindow", no bugs though nothing shows.
Elmish Version: <PackageReference Include="Elmish.WPF" Version="4.0.0-beta-54" />
namespace TestNamespace
open Elmish.WPF
open DevExpress.Xpf.Core
module TestApp =
(...)
let DesignViewModel = ViewModel.designInstance (init ()) (bindings ())
let main (window: ThemedWindow) =
WpfProgram.mkSimple init update bindings |> WpfProgram.startElmishLoop window
using DevExpress.Xpf.Core;
namespace Application1.WPF;
public partial class MainWindow : ThemedWindow
{
public MainWindow()
{
InitializeComponent();
}
using TestNamespace;
using System.Windows;
using DevExpress.Xpf.Core;
namespace Application1.WPF;
public partial class App : Application
{
public App()
{
Activated += StartElmish;
}
private void StartElmish(object sender, EventArgs e)
{
Activated -= StartElmish;
TestApp.main((ThemedWindow) MainWindow);
}
}
<dx:ThemedWindow
x:Class="Application1.WPF.MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:dx="http://schemas.devexpress.com/winfx/2008/xaml/core"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
xmlns:vm="clr-namespace:TestNamespace;assembly=Application1"
d:DataContext="{x:Static vm:TestApp.DesignViewModel}"
Height="400"
Width="600"
Background="Gray"
PreviewKeyDown="MainWindow_OnPreviewKeyDown"
RoundWindowCorners="True"
ShowIcon="False"
WindowStartupLocation="CenterScreen"
mc:Ignorable="d">
<Grid/>
</dx:ThemedWindow>
I really hope Elmish.WPF is not limited to the basic "Window", or I forgot/misunderstood something.
Thank you
Metadata
Metadata
Assignees
Labels
No labels