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 ?
#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
#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 nil
DEFINE WINDOW oWnd STYLE WS_THICKFRAME FROM 0,0 TO 400,600 PIXEL
oWnd:bRClicked := { || oWnd:End() }
ACTIVATE WINDOW oWnd CENTERED
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 58 guests