Hi,
There is a window (TWindow) in the style (WS_BORDER, WS_MINIMIZEBOX, WS_SYSMENU), I need to prohibit moving the window borders with the mouse (resizing the window). How to do it ?
Board index FiveWin for Harbour/xHarbour Resizing the window
#include "Fivewin.ch"
static nW, nH
function Main()
local oWnd
DEFINE WINDOW oWnd TITLE "No resize" ;
NOZOOM FROM 05,05 TO 20,60
nW := oWnd:nWidth
nH := oWnd:nHeight
oWnd:bResized := { || NoResize(oWnd) }
ACTIVATE WINDOW oWnd
static function NoResize(oWnd)
oWnd:SetSize(nW, nH)
oWnd:Refresh()
return nil
Please also try:
#include "fivewin.ch"
function Main()
local oWnd
DEFINE WINDOW oWnd NOZOOM NOMINIMIZE FROM 0,0 TO 400,600 PIXEL
oWnd:aMinMaxInfo := { nil, nil, nil, nil, 600, 400, 600, 400 }
ACTIVATE WINDOW oWnd CENTERED
return nilRegards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Thanks !
Is it possible to make a TWindow without caption and sysmenu (WS_POPUP) and a frame so that it can be stretched with the mouse ?
DEFINE WINDOW oWnd STYLE WS_THICKFRAME FROM 0,0 TO 400,600 PIXEL
oWnd:bRClicked := { || oWnd:End() }
ACTIVATE WINDOW oWnd CENTEREDRegards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Yes, the WS_THICKFRAME style is suitable, only the frame turns out to be wide and not beautiful 