Dialog

Draggable Dialog

Dialog.dialog [ 
    Dialog.Props [Class "sample-draggable-dialog"]
    Dialog.MinWidth 900
    Dialog.MaxWidth 900
    Dialog.Hidden model.EditItem.IsNone
    Dialog.OnDismiss (fun _ -> dispatch Cancel)        
    Dialog.ModalProps [
        Dialog.IsBlocking false
        Dialog.IsModeless false
        Dialog.DragOptions [
            Dialog.MoveMenuItemText "Move"
            Dialog.CloseMenuItemText "Close"
        ]
    ] 
    Dialog.DialogContentProps [                         
        Dialog.Title "Edit Drawing Log Sheet"
        Dialog.Type Dialog.DialogType.Normal
    ]
] [ 
    h2 [] [str "I'm draggable!"]
]