Xaml? (v2.0-beta.2)

[jNizM]

Found it too after reading docs

https://microsoft.github.io/microsoft-ui-xaml/about.html

Note that support for Xaml Islands in WinUI 3 is coming next year.

[kczx3]

WinUI2 is far different because it was tied in with the OS. WinUI3 is decoupled from the OS and ships with the Windows App SDK. I'm not sure how that would play into using it with AHK. You'd have to ship the SDK or at least install it to use the controls. I have yet to figure out how to install the Microsoft Community Toolkit to use other controls such as DataGrid in Lexikos' script.

[jNizM]

I tried to rebuild a gui of mine (original: https://github.com/jNizM/HashCalc). But everything without functionality in the background.

Code

Code: Select all

<StackPanel xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" Margin="10" Spacing="5">
	<Pivot>
		<PivotItem Header="Text" Margin="5" Padding="5">
			<StackPanel Spacing="5">
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<RichEditBox Name="REBCustom" Width="540" Height="150"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<TextBlock Text="HMAC" Width="120" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<Line X2="540" Stroke="Gray" StrokeThickness="1"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<TextBlock Text="MD2" Width="120" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<TextBlock Text="MD4" Width="120" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<TextBlock Text="MD5" Width="120" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<TextBlock Text="SHA-1" Width="120" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<TextBlock Text="SHA-256" Width="120" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<TextBlock Text="SHA-384" Width="120" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<TextBlock Text="SHA-512" Width="120" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<Line X2="540" Stroke="Gray" StrokeThickness="1"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<TextBlock Text="Verify" Width="120" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
			</StackPanel>
		</PivotItem>
		<PivotItem Header="File" Margin="5" Padding="5">
			<StackPanel Spacing="5" >
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left" Spacing="5" >
					<TextBox Width="435"/>
					<Button Name="Browse" Content="Browse" Width="100"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left" Spacing="5" >
					<TextBlock Text="File Size:" Foreground="DarkGray" Width="435" Height="23" VerticalAlignment="Center"/>
					<Button Name="Calculate" Content="Calculate" Width="100"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<Line X2="540" Stroke="Gray" StrokeThickness="1"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<CheckBox Content="MD2" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<CheckBox Content="MD4" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<CheckBox Content="MD5" Height="23" VerticalAlignment="Center" IsChecked="True"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<CheckBox Content="SHA-1" Height="23" VerticalAlignment="Center" IsChecked="True"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<CheckBox Content="SHA-256" Height="23" VerticalAlignment="Center" IsChecked="True"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<CheckBox Content="SHA-384" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<CheckBox Content="SHA-512" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<Line X2="540" Stroke="Gray" StrokeThickness="1"/>
				</StackPanel>
				<StackPanel Orientation="Horizontal" HorizontalAlignment="Left">
					<TextBlock Text="Verify" Width="120" Height="23" VerticalAlignment="Center"/>
					<TextBox Width="420" IsReadOnly="true"/>
				</StackPanel>
			</StackPanel>
		</PivotItem>
		<PivotItem Header="PBKDF2"></PivotItem>
	</Pivot>
</StackPanel>

I still need to figure out how to include the C# functions in the AHK script. e.G:

Spoiler

Code: Select all

XAML

<PasswordBox Name="passworBoxWithRevealmode" Width="250" Margin="0,0,8,0"
    PasswordRevealMode="Hidden" AutomationProperties.Name="Sample password box"/>
<CheckBox Name="revealModeCheckBox" Content="Show password" IsChecked="False"
    Checked="RevealModeCheckbox_Changed" Unchecked="RevealModeCheckbox_Changed"/>


C#

private void RevealModeCheckbox_Changed(object sender, RoutedEventArgs e)
{
    if (revealModeCheckBox.IsChecked == true)
    {
        passworBoxWithRevealmode.PasswordRevealMode = PasswordRevealMode.Visible;
    }
    else
    {
        passworBoxWithRevealmode.PasswordRevealMode = PasswordRevealMode.Hidden;
    }
}

And I get a lot of error while testing

Spoiler

[kczx3]

@jNizM Using the base provided by Lexikos in the xaml.ahk example...

Code: Select all

#Include ../windows.ahk

xg := BasicXamlGui('+Resize')

; Xaml follows the user's dark mode preference by default, but the window frame
; is pure Win32, so we need to handle that unless we want black-on-white:
DarkModeIsActive() && SetDarkWindowFrame(xg.hwnd, true)

xg.Content := stk := Windows.UI.Xaml.Markup.XamlReader.Load("
    (
        <StackPanel xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Margin="10" Spacing="5" Orientation="Horizontal" VerticalAlignment="Top">
            <PasswordBox
                x:Name="passwordBoxWithRevealmode"
                Width="250"
                AutomationProperties.Name="Sample password box"
            />
            <CheckBox
                x:Name="revealModeCheckBox"
                Content="Show password"
                IsChecked="False"
            />
        </StackPanel>
    )"
)

xg["revealModeCheckBox"].add_click(togglePasswordReveal)

xg.Show("w600 h" ((stk.ActualHeight + (stk.Margin.Top * 2) + (stk.Padding.Top * 2)) * A_ScreenDPI / 96))

togglePasswordReveal(cb, *) {
    xg["passwordBoxWithRevealmode"].PasswordRevealMode := cb.IsChecked.Value ? "Visible" : "Hidden"
}

class BasicXamlGui extends Gui {
    __new(opt:='', title:=unset) {
        super.__new(opt ' -DPIScale', IsSet(title) ? title : A_ScriptName, this)

        this.OnEvent('Size', '_OnSize')

        static _ := (
            OnMessage(0x100, BasicXamlGui._OnKeyDown.Bind(BasicXamlGui)),
            OnMessage(0x102, BasicXamlGui._OnChar.Bind(BasicXamlGui))
        )

        this._dwxs := dwxs := Windows.UI.Xaml.Hosting.DesktopWindowXamlSource()

        ; IDesktopWindowXamlSourceNative is a traditional COM interface.
        dwxsn := ComObjQuery(dwxs, '{3cbcf1bf-2f76-4e9c-96ab-e84b37972554}')
        ComCall(AttachToWindow := 3, dwxsn, 'ptr', this.hwnd)
        ComCall(get_WindowHandle := 4, dwxsn, 'ptr*', &xwnd := 0)
        this._xwnd := xwnd
    }

    Content {
        get => this._dwxs.Content
        set => this._dwxs.Content := value
    }

    __Item[name] => this._dwxs.Content.FindName(name) ; FIXME: needs WinRT() to "down-cast" from UIElement to actual class

    ; reason: https://docs.microsoft.com/en-us/uwp/api/windows.ui.xaml.hosting.xamlsourcefocusnavigationreason?view=winrt-22621
    NavigateFocus(reason) =>
        this._dwxs.NavigateFocus(
            Windows.UI.Xaml.Hosting.XamlSourceFocusNavigationRequest(reason))

    _OnSize(minMax, width, height) {
        ; Must use SetWindowPos! Does not work with ControlMove+ControlShow!
        DllCall('SetWindowPos', 'ptr', this._xwnd, 'ptr', 0
            , 'int', 0, 'int', 0, 'int', width, 'int', height, 'int', 0x40)
    }

    static _OnKeyDown(wParam, lParam, nmsg, hwnd) {
        if !(wnd := GuiFromHwnd(hwnd, true)) || !(wnd is BasicXamlGui)
            return
        try
            native2 := ComObjQuery(wnd._dwxs, "{e3dcd8c7-3057-4692-99c3-7b7720afda31}")
        catch ; Older than Windows 10 v1903?
            return
        kmsg := Buffer(48, 0)
        NumPut('ptr', hwnd, 'ptr', nmsg, 'ptr', wParam, 'ptr', lParam
            , 'uint', A_EventInfo, kmsg)
        ; IDesktopWindowXamlSourceNative2::PreTranslateMessage
        ComCall(5, native2, 'ptr', kmsg, 'int*', &processed:=false)
        if processed
            return 0
    }

    static _OnChar(wParam, lParam, nmsg, hwnd) {
        if !(wnd := GuiFromHwnd(hwnd, true)) || !(wnd is BasicXamlGui)
            return
        ; Xaml islands (tested on 10.0.22000) do not respond to WM_GETDLGCODE
        ; correctly, so WM_CHAR messages are consumed by IsDialogMessage() and
        ; not dispatched to the island unless we do it directly.
        if WinGetClass(hwnd) = 'Windows.UI.Input.InputSite.WindowClass'
            return SendMessage(nmsg, wParam, lParam, hwnd)
    }
}

DarkModeIsActive() {
    return isColorLight(Windows.UI.ViewManagement.UISettings().GetColorValue('Foreground'))
    ; Algorithm from https://docs.microsoft.com/en-us/windows/apps/desktop/modernize/apply-windows-themes
    isColorLight(clr) =>
        ((5 * clr.G) + (2 * clr.R) + clr.B) > (8 * 128)
}

SetDarkWindowFrame(hwnd, dark) {
    if VerCompare(A_OSVersion, "10.0.17763") >= 0 {
        attr := 19
        if VerCompare(A_OSVersion, "10.0.18985") >= 0
            attr := 20 ; DWMWA_USE_IMMERSIVE_DARK_MODE is officially defined for 10.0.22000 as 20.
        DllCall("dwmapi\DwmSetWindowAttribute", "ptr", hwnd, "int", attr, "int*", dark, "int", 4)
    }
}

[jNizM]

Useful Playgrounds:
WinUI 2 Gallery (Microsoft Store)
WinUI 3 Gallery (Microsoft Store)
Windows Community Toolkit Sample App (Microsoft Store)
XAML Studio (Microsoft Store)

[xMaxrayx]

Hi, thanks I love xaml in WPF ,is there a way to build GUI or just Msgbox() in Xaml looking and not Winforms without need to do complicated code?

[xMaxrayx]

sorry but where I can find this windows.ahk #Include ../windows.ahk?

[xMaxrayx]

sorry but where I can find this windows.ahk #Include ../windows.ahk?

ok I found it here
https://github.com/Lexikos/winrt.ahk