Best way to resize a window ?

[Fred vS]

Hello every Lazarus fans 

In a last topic, KpComp shows us how to move a panel. 

Because Lazarus do not offer a resizable window without top panel tray ( borderstyle := bsnone do not give a resizable window, and all the other style are with top panel tray), i want to create my own sizable window.

For that i use a window borderstyle := bsnone and top, bottom, left and right thin panels with cursor := crSizeNS for top/bottom panels and cursor := crSizeWE for left/right panels.

The goal is to resize the window with panelmousedown on one of 4 resizing-panels and panelmousemove 

See attachment from original project of KpjComP

PS : Other ideas are welcome 

[KpjComp]

It's not too much different to the moving panel.

Try this ->

I've also added a few other types of resize / moving too.

[Fred vS]

@ KpjComp : Superb and you give me the moving windows for bonus, many, many thanks. 

Im happy.