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]>
> > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
>
