No title bar on 'regular' forms

[TonyMcGuire]

We can simply uncheck 'title bar' for dialog forms. But how about 'normal' forms in Paradox?

A script that does this, and resizes the form to account for loss of the form's Title Bar.

Uses USER32
  GetDesktopWindow() CLONG
  LockWindowUpdate(windowHandle CLONG) CLONG
  SetWindowLong(hwnd cLong,nIndex cLong,dwNewLong cLong)cLong [stdcall "SetWindowLongA"]
  GetWindowLong(hwnd clong,nIndex clong)clong [stdcall "GetWindowLongA"]
enduses
method run(var eventInfo Event)
Var
f           form
res         longint
x,y,w,h     longint
endvar

LockWindowUpdate(GetDesktopWindow())
f.open("myTest.fsl",winstyledefault)

f.getposition(x,y,w,h)

res = GetWindowLong(f.windowhandle(),-16)

res = SetWindowLong(f.windowhandle(),-16,res-fromhex("0xC00000"))
f.setposition(x,y,w-50,h-500)

lockWindowUpdate(0)
f.wait()
try
  f.close()
onFail
  errorclear()
endTry
endMethod

Tony McGuire

http://www.thedbcommunity.com

"It's not about having enough time. It's about priorities.