Okay Barry,
I just tried:
-style => WS_CAPTION
And that works too.
Regards,
Phil
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of O'Sullivan, Barry
> A
> Sent: Monday, March 29, 1999 9:38 AM
> To: '[EMAIL PROTECTED]'
> Subject: RE: [perl-win32-gui] Window Question
>
>
> Hi Phil
> Yeah I got it from one of Aldo's samples, not sure which one though.
> Also, I noticed later that even if I drop the 1024 and just use this
> ;
>
> -style => WS_BORDER | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX |
> WS_MAXIMIZEBOX
>
> it still seems to work ie cannot be resized. Mike had mentioned that
> 1024 actually
> creates a DialogBox as opposed to a Window. I'm not sure what real
> difference there
> is between DialogBox and window tho'.
>
> Barry
>
>
>
> > -----Original Message-----
> > From: Philip A. Larson [SMTP:[EMAIL PROTECTED]]
> > Sent: Saturday, March 27, 1999 1:52 AM
> > To: [EMAIL PROTECTED]
> > Subject: RE: [perl-win32-gui] Window Question
> >
> > Now that's cool. I don't know what that is either, but I see now that
> > Aldo
> > used it in his listbox example. I take it that's where you got it from?
> >
> > Thanks again Barry,
> >
> > Phil Larson
> >
> > > -----Original Message-----
> > > From: [EMAIL PROTECTED]
> > > [mailto:[EMAIL PROTECTED]]On Behalf Of
> O'Sullivan, Barry
> > > A
> > > Sent: Friday, March 26, 1999 4:20 PM
> > > To: '[EMAIL PROTECTED]'
> > > Subject: RE: [perl-win32-gui] Window Question
> > >
> > >
> > > Hi All
> > >
> > > From playing around and looking through some of the
> > > samples, it turns out that this following style option
> > > will create a Window with cannot be resized.
> > >
> > > -style => 1024 | WS_BORDER | WS_CAPTION | WS_SYSMENU |
> > > WS_MINIMIZEBOX | WS_MAXIMIZEBOX,
> > >
> > > I don't know what the 1024 does but it works..
> > >
> > > Enjoy the weekend everybody and again if anybody wants
> > > to post samples etc that would be nice for us beginners :>)
> > >
> > >
> > > Barry
> > >
> > >
> > >
> > > > -----Original Message-----
> > > > From: Philip A. Larson [SMTP:[EMAIL PROTECTED]]
> > > > Sent: Wednesday, March 24, 1999 10:56 PM
> > > > To: [EMAIL PROTECTED]
> > > > Subject: RE: [perl-win32-gui] Window Question
> > > >
> > > > Yes, I thought about the timer solution last night. I tried it
> > > at 50 msecs
> > > > and it creates just as an annoying flashing effect as the
> > > resize solution.
> > > >
> > > > Phil Larson
> > > >
> > > > > -----Original Message-----
> > > > > From: [EMAIL PROTECTED]
> > > > > [mailto:[EMAIL PROTECTED]]On Behalf Of David Hiltz
> > > > > Sent: Wednesday, March 24, 1999 9:53 AM
> > > > > To: [EMAIL PROTECTED]
> > > > > Subject: Re: [perl-win32-gui] Window Question
> > > > >
> > > > >
> > > > > > Can anyone tell me how to prevent a Window from being resized
> > > > > and moved? I
> > > > > > am able to capture the Resize event, but not the Move event.
> > > > > BTW, returning
> > > > > > "0" doesn't prevent the resizing. My work around is to reset
> > > > > the original
> > > > > > coordinates when I capture the resize event but this creates a
> > > > > disturbing
> > > > > > flashing effect as the user attempts to resize the window.
> > > > > Nothing I do can
> > > > > > stop it from being moved. I suspect one of the Style properties
> > > > > will work,
> > > > > > but I'm no good at guessing which one.
> > > > >
> > > > > A really bad hack would be to setup a timer that checked for new
> > > > window
> > > > > coordinates.
> > > > >
> > > > > > Bonus Question: How can I make a window stay "on top"?
> > > > >
> > > > > After what event?
> > > > >
> > > > > -David Hiltz
> > > > >
> > > > > >
> > > > > > > -----Original Message-----
> > > > > > > From: [EMAIL PROTECTED]
> > > > > > > [mailto:[EMAIL PROTECTED]]On Behalf Of
> > > Aldo Calpini
> > > > > > > Sent: Wednesday, March 03, 1999 1:02 PM
> > > > > > > To: [EMAIL PROTECTED]
> > > > > > > Subject: Re: [perl-win32-gui] Background color of rectangle
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > -----Original Message-----
> > > > > > > From: David Hiltz <[EMAIL PROTECTED]>
> > > > > > > To: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
> > > > > > > Date: luned́ 1 marzo 1999 22.39
> > > > > > > Subject: [perl-win32-gui] Background color of rectangle
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > David Hiltz wrote:
> > > > > > > > I'm trying to draw a rectangle in a window using
> > Win32::GUI::DC
> > > > and
> > > > > > > > I can't seem to get the background color of the
> rectangle to
> > be
> > > > the
> > > > > > > > same as the background color of the window. The
> > > background color
> > > > > > > > of the rectangle comes out white.
> > > > > > > >
> > > > > > > > Here's my code to draw a button on a window and put a red
> > > > rectangle
> > > > > > > around
> > > > > > > > the button. The background color of the rectangle is
> > > > > white instead of
> > > > > > > > gray. I played with BackColor and BkMode but it didn't
> > > > > seem to help.
> > > > > > >
> > > > > > >
> > > > > > > the Rectangle() function draws a rectangle using the current
> > > > > pen for the
> > > > > > > border and the current brush, which seems to be white by
> > > > > default, for the
> > > > > > > inside.
> > > > > > > you have to create a brush loading the system defined
> > NULL_BRUSH,
> > > > eg.
> > > > > > > same as the window background.
> > > > > > >
> > > > > > > $P = new Win32::GUI::Pen(
> > > > > > > -color => [150,0,0],
> > > > > > > -width => 1,
> > > > > > > );
> > > > > > >
> > > > > > > $NULL_BRUSH = 5;
> > > > > > > $B = Win32::GUI::GetStockObject($NULL_BRUSH);
> > > > > > >
> > > > > > > $DC->SelectObject($P);
> > > > > > > $DC->SelectObject($B);
> > > > > > > $DC->Rectangle(10,10,66,60);
> > > > > > >
> > > > > > > bye,
> > > > > > > Aldo Calpini
> > > > > > > <[EMAIL PROTECTED]>
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > >
>
