Hello All,

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.

Bonus Question:  How can I make a window stay "on top"?

Thanks,

Phil Larson


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


Reply via email to