Detlef,
This will get you a flat panel on a window. Maybe you need to set the windows API values in your resource editor?
- Code: Select all Expand view
#include "fivewin.ch"
#include "winapi.ch"
Function Main()
Local oWnd, oPanel1
Define window oWnd
DEFINE WINDOW oPanel1 ;
STYLE nOr(WS_CLIPCHILDREN, WS_CAPTION, WS_THICKFRAME, WS_MINIMIZEBOX ) of oWnd
Activate window oWnd on init (oPanel1:activate())
Return nil
I would be cautious about going too far down this rabbit hole. Windows 11 design is a lot different from Windows 10. Under Win 11 panels and other controls also have shadows. Oh, and most Win 11 controls have rounded corners too. Preparing for the inevitable, I would try to emulate Win 11 design now. People do judge a book by it's cover (and software by it's interface).
Note that when you display windows and dialogs on Win 10 both
now have built in shadows. This is new with a Windows 10 update. Under Win 11 panels do have shadows, but FW Win 10 apps don't show shadows around panels.
For more on this search the forum for my thread on Windows 11 fluent design. It was last October I think.
James