Path: news.cs.au.dk!not-for-mail
From: "Sascha Kimmel" <kimmel@tricos.com>
Newsgroups: comp.lang.beta
Subject: RE: Windows without titlebars in Windows?
Date: 2 Jun 1999 07:19:51 -0000
Organization: University of Aarhus, Department of Computer Science (DAIMI)
Lines: 102
Approved: mailtonews@cs.au.dk
Distribution: world
Message-ID: <19990602071951.7677.qmail@noatun.mjolner.dk>
Reply-To: "Sascha Kimmel" <kimmel@tricos.com>
NNTP-Posting-Host: daimi.cs.au.dk
X-Trace: xinwen.cs.au.dk 928308012 4101028 255.255.255.255 (2 Jun 1999 07:20:12 GMT)
X-Complaints-To: news@cs.au.dk
NNTP-Posting-Date: 2 Jun 1999 07:20:12 GMT
Xref: news.cs.au.dk comp.lang.beta:11976

> -----Original Message-----
> From: Morten Grouleff [mailto:morten.grouleff@mjolner.dk]
> Sent: Friday, May 21, 1999 12:06 PM
> To: usergroup@mjolner.dk
> Subject: Re: Windows without titlebars in Windows?
>
>
> "Sascha Kimmel" <kimmel@tricos.com> writes:
>
> > > > Is it possible to hide this title bar?
> > > It is not directly possible to remove the titlebar.
> >
> > ...in BETA that is?
>
> Yes.
>
> > > But one can use window.type to specify certain behaviors.
> > > It is also possible to make new windowtypes by changing the
> > > code for windowCreate in guienv/private/winnt/windowbody.bet
> > > It makes use of standard Windows Calls to make windows.
> >
> > Could you please give me an example on how I could do that?
> > I'm not so familiar with the WINAPI.
>
> I'm not familiar with that stuff, but it seems possible by
> modifying the
> windowExStyle and windowStyle prior to the call to
> CreateWindowEx.  This
> happens around line 857 (for release 4.1) in
> guienv/private/winnt/windowbody.
>
> Try it out,

Hi again!

Thank you for your help.
Yes, I tried it out with the help of a MSDN article
(http://msdn.microsoft.com/library/techart/msdn_msdn105.htm) and finally
got it to work.

I introduced a new value for the window type with the value 99 (well, I
did not want to extend the windowTypes), so that my window looks as
follows:

MyWin:@window
(#
	...
	type::<(# do 99->value; #);
	...
#);

Then I changed ~beta/guienv/v1.6/private/winnt/windowbody.bet:


-- GUIENVwindowCreate: doPart --
do(# class,name: @text; activeHwnd: @integer;
     hInstance: @integer;
     r: ^rectangle;
     exStyle, style: @integer;
  do &windowMethods[] -> theMethods;
     false -> callOnActivate;

     (if type

(** additions start **)

	   //99 then
	   WS_POPUP %Bor WS_BORDER -> windowStyle;
         WS_EX_PALETTEWINDOW -> windowExStyle;

         uienvStandardWindowClass -> class;
         'Palette' -> name;

(** additions end **)

      //windowTypes.dialog then
....


Now the windows has no titlebar anymore - but the user can only exit the
program via Alt+F4 or a menu (I hope it works if you have a menubar,
haven't tried it out), so if someone uses this be sure to add an extra
button.
And the window is not movable anymore - so be sure to center the window.
It is possible to tell Windows to use the window itself for dragging,
but because I do not need this feature at the moment, I do not care
about implementing it ;)

My question is: how can I add the changes above *without* changing the
BETA source code? Which files do I have to include to achieve the same
changes?

Thank you in advance!

Regards,
Sascha Kimmel