Modern macos window

[Davide_Pagano]

Hi,

is there a way to get a window like this?

Thanks

[Ian_Kennedy]

Not as standard. You can build it yourself, or use Declares to enable it. However, it’s not straight forward. There may well be plug-ins to do it.

[Davide_Pagano]

I was looking for declares but I could not find the right one. It’s pity because all modern applications use that kind of look for the windows.

[Tim_Parnell]

Ohanaware’s AppKit has this, but it’s API 1.0 only and will never be updated. Hard to recommend, but if you wanted the feature right now it is available.

[Alain_Clausen]

Hi Davide,
You can do this simply with declares to set the window mask, the title and the titlebar visibility.

Try
  Declare Function NSClassFromString Lib "Foundation" (aClassName As CFStringRef) As Ptr
  If NSClassFromString( "NSVisualEffectView" ) <> Nil Then
    Const AppKit = "AppKit"
    Const NSWindowTitleHidden = 1
    Const NSWindowStyleMaskFullSizeContentView = 32768
    
    Declare Sub titleVisibility Lib AppKit Selector "setTitleVisibility:" (handle As Ptr, value As Integer)
    titleVisibility(Me.Handle, NSWindowTitleHidden)
    
    Declare Sub setStyleMask Lib AppKit Selector "setStyleMask:" (handle As Ptr, value As Integer)
    Declare Function styleMask Lib AppKit Selector "styleMask" (handle As Ptr) As Integer
    setStyleMAsk(Me.Handle, styleMask(Me.Handle) + NSWindowStyleMaskFullSizeContentView)
    
    Declare Sub titlebarAppearsTransparent Lib AppKit Selector "setTitlebarAppearsTransparent:" (handle As Ptr, value As Boolean)
    titleBarAppearsTransparent(Me.Handle, True)
  End If
End Try

Here is an example:
MacWindow.zip (4.7 KB)

[Sascha_S]

Maybe there’s something in macoslib/macoslib at master · macoslib/macoslib · GitHub
Like here: Search for TitleBar in Repo

[Davide_Pagano]

Thank you very much @Alain_Clausen. Exactly what I was looking for.