perl-win32-gui-users — Using the Win32::GUI Perl extension

RE: [perl-win32-gui-users] Window Size Controls & Miscellany ?'s

[Forhan, M. <Mic...@tr...>]

Per your question, I pulled up Microsoft's website on maximizebox settings
(I just searched for it from their main page), and linking from there I
found information for a 'helpbutton'. After putting -helpbutton => 1 in my
window, sure enough, I got one of those '?' boxes. 

Its amazing what new functionality you can find by just being curious ;) 

-Michael Forhan

-----Original Message-----
From: Frazier, Joe Jr [mailto:Joe...@Pe...]
Sent: Thursday, May 31, 2001 1:49 PM
To: per...@li...
Subject: RE: [perl-win32-gui-users] Window Size Controls & Miscellany
?'s


Yea, I just found about the -maximizebox thing.  -minimizebox does the
opposite.  Set both to 0 if you want neither to show.  I wonder if
-questionbox works the same way for a Win32::GUI::DialogWindow and
removes the goofy question mark box?

> -----Original Message-----
> From: Morbus Iff [mailto:mo...@di...]
> Sent: Thursday, May 31, 2001 16:15
> To: per...@li...;
> per...@li...
> Subject: RE: [perl-win32-gui-users] Window Size Controls & Miscellany
> ?'s
> 
> 
>  >At 03:06 PM 5/31/01, Frazier, Joe Jr wrote:
>  >At 03:10 PM 5/31/01, Forhan, Michael wrote:
> 
> Hey, thanks to both of you on the min/max|width/height... 
> worked wonderfully!
> 
> 
> Morbus Iff
> .sig on other machine.
> http://www.disobey.com/
> http://www.gamegrene.com/
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Window Size Controls & Miscellany ?'s

[Frazier, J. J. <Joe...@Pe...>]

Yea, I just found about the -maximizebox thing.  -minimizebox does the
opposite.  Set both to 0 if you want neither to show.  I wonder if
-questionbox works the same way for a Win32::GUI::DialogWindow and
removes the goofy question mark box?

> -----Original Message-----
> From: Morbus Iff [mailto:mo...@di...]
> Sent: Thursday, May 31, 2001 16:15
> To: per...@li...;
> per...@li...
> Subject: RE: [perl-win32-gui-users] Window Size Controls & Miscellany
> ?'s
>=20
>=20
>  >At 03:06 PM 5/31/01, Frazier, Joe Jr wrote:
>  >At 03:10 PM 5/31/01, Forhan, Michael wrote:
>=20
> Hey, thanks to both of you on the min/max|width/height...=20
> worked wonderfully!
>=20
>=20
> Morbus Iff
> .sig on other machine.
> http://www.disobey.com/
> http://www.gamegrene.com/
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

[perl-win32-gui-users] Opening a *New* Browser Window?

[Morbus I. <mo...@di...>]

Good day.

Currently, in my code [the opensource AmphetaDesk at
http://www.disobey.com/amphetadesk/], I open a browser window like so:

    use Win32::API;
    my $ShellExecute = new Win32::API("shell32", "ShellExecuteA",
                       ['N','P', 'P', 'P', 'P', 'I'], 'N');
    $ShellExecute->Call(0, "open", $url, 0, 0, 1);

This has the niceness of working with most browsers I've tested that have
been set as the default browser (Netscape, Mozilla, IE, etc.). My problem
is that this code always uses an *existing* browser window if it exists.

This causes some angst - if I'm viewing something, and then suddenly the
program takes over and loses my current page, I get pissed. So, anyways to
always open a *new* window, whether an existing one is there or not?


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

RE: [perl-win32-gui-users] Window Size Controls & Miscellany ?'s

[Morbus I. <mo...@di...>]

 >At 03:06 PM 5/31/01, Frazier, Joe Jr wrote:
 >At 03:10 PM 5/31/01, Forhan, Michael wrote:

Hey, thanks to both of you on the min/max|width/height... worked wonderfully!


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

RE: [perl-win32-gui-users] Window Size Controls & Miscellany ?'s

[Forhan, M. <Mic...@tr...>]

While I haven't been able to get rid of the cursor change (into the resize
arrow), I've prevented people from resizing the box manually by placing the
-maxwidth and -maxheight settings in. Thanks for your tip for -maximize! It
works great, here is my window:
  $Name = new Win32::GUI::Window( -name      => $Name
                                 ,-text      => $Main_Title
                                 ,-width     => $Width
                                 ,-height    => $Height
                                 ,-left      => $Left
                                 ,-top       => $Top
                                 ,-minwidth  => $Width
                                 ,-minheight => $Height
                                 ,-maxwidth  => $Width
                                 ,-maxheight => $Height
                                 ,-menu      => $Menu
                                 ,-maximizebox => 0
                                );

-Michael Forhan
Mic...@tr...


-----Original Message-----
From: Morbus Iff [mailto:mo...@di...]
Sent: Thursday, May 31, 2001 11:40 AM
To: per...@li...;
'per...@li...'
Subject: Re: [perl-win32-gui-users] Window Size Controls & Miscellany
?'s


 >Is there a way to disable the Maximize button on a window? I've been using
 >-maxwidth and -maxheight in the window creation in order to prevent users
 >from resizing my windows (I don't really want to deal with resizing &
 >repositioning quite yet...) but since the maximize button is active, the
 >window does this ugly (imho) snap to the top left corner when its clicked.

You know, I was hoping for the same thing, with code like this:

    $window = new Win32::GUI::Window( -name   => '_Window',
                                      -text   => $SETTINGS->{app}->{name},
                                      -left   => ($screen_width - 600)/2,
                                      -top    => ($screen_height - 400)/2,
                                      -width  => 480, -height => 400,
                                      -menu   => $menu_bar,
                                      -class  => $hwnd_class,
                                      -icon   => $icon,
                                      -maximizebox => 0
                                    );

Unfortunately, that dims the maximize box so that it doesn't work, but 
still allows people to resize the window by the grab-an-edge-and-pull 
routine. I haven't figured out how to disable that. It's probably simple.


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/


_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Window Size Controls & Miscellany ?'s

[Frazier, J. J. <Joe...@Pe...>]

> -----Original Message-----
> From: Morbus Iff [mailto:mo...@di...]
> Sent: Thursday, May 31, 2001 14:40
> To: per...@li...;
> 'per...@li...'
> Subject: Re: [perl-win32-gui-users] Window Size Controls & Miscellany
> ?'s
>=20
>=20
>  >Is there a way to disable the Maximize button on a window?=20
> I've been using
>  >-maxwidth and -maxheight in the window creation in order to=20
> prevent users
>  >from resizing my windows (I don't really want to deal with=20
> resizing &
>  >repositioning quite yet...) but since the maximize button=20
> is active, the
>  >window does this ugly (imho) snap to the top left corner=20
> when its clicked.
>=20
> You know, I was hoping for the same thing, with code like this:
>=20
>     $window =3D new Win32::GUI::Window( -name   =3D> '_Window',
>                                       -text   =3D>=20
> $SETTINGS->{app}->{name},
>                                       -left   =3D>=20
> ($screen_width - 600)/2,
>                                       -top    =3D>=20
> ($screen_height - 400)/2,
>                                       -width  =3D> 480, -height =3D> =
400,
>                                       -menu   =3D> $menu_bar,
>                                       -class  =3D> $hwnd_class,
>                                       -icon   =3D> $icon,
>                                       -maximizebox =3D> 0





#######add something like : 		=09
								-maxsize
=3D> [480,400],
    								-minsize
=3D> [480,400],
####### this puts a min/max size to the window meaning it cant be
resized with the handle bars....


>                                     );
>=20
> Unfortunately, that dims the maximize box so that it doesn't=20
> work, but=20
> still allows people to resize the window by the grab-an-edge-and-pull=20
> routine. I haven't figured out how to disable that. It's=20
> probably simple.
>=20
>=20
> Morbus Iff
> .sig on other machine.
> http://www.disobey.com/
> http://www.gamegrene.com/
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

Re: [perl-win32-gui-users] Window Size Controls & Miscellany ?'s

[Morbus I. <mo...@di...>]

 >Is there a way to disable the Maximize button on a window? I've been using
 >-maxwidth and -maxheight in the window creation in order to prevent users
 >from resizing my windows (I don't really want to deal with resizing &
 >repositioning quite yet...) but since the maximize button is active, the
 >window does this ugly (imho) snap to the top left corner when its clicked.

You know, I was hoping for the same thing, with code like this:

    $window = new Win32::GUI::Window( -name   => '_Window',
                                      -text   => $SETTINGS->{app}->{name},
                                      -left   => ($screen_width - 600)/2,
                                      -top    => ($screen_height - 400)/2,
                                      -width  => 480, -height => 400,
                                      -menu   => $menu_bar,
                                      -class  => $hwnd_class,
                                      -icon   => $icon,
                                      -maximizebox => 0
                                    );

Unfortunately, that dims the maximize box so that it doesn't work, but 
still allows people to resize the window by the grab-an-edge-and-pull 
routine. I haven't figured out how to disable that. It's probably simple.


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

[perl-win32-gui-users] Win32::GUI::Timer memory leak?

[Peter E. <Pet...@at...>]

Is there a known memory problem with the GUI module and/or the Timer object?
I have a script that runs through a _Timer sub once per second and
increments a var (like $count++) and writes it to a Label. Just sitting
there quietly doing nothing more than that adds 4k to the process' memory
every second or two (or three -- it's not very exact). I would expect a
*little* more memory to be used but these 4k's add up over time.

Just curious.
Pete

[perl-win32-gui-users] Window Size Controls & Miscellany ?'s

[Forhan, M. <Mic...@tr...>]

Is there a way to disable the Maximize button on a window? I've been using
-maxwidth and -maxheight in the window creation in order to prevent users
from resizing my windows (I don't really want to deal with resizing &
repositioning quite yet...) but since the maximize button is active, the
window does this ugly (imho) snap to the top left corner when its clicked. 

Second, I was wondering if any further strides have been made on GOE ( as
posted by Harald Piske in late march (3/25 to be exact) ) I've recently been
playing with gb109, and have started building a wishlist of my own for a
large windows oriented development tool. (along the lines of Visual Basic).
Is anyone aware of any Sourceforge projects for this , or is GOE still
alive? (the fairymail link I followed didn't work for me) I'd love to see a
fully featured windows development tool for perl (with syntax highlighting
of course!) and am ready to contribute all I can to that project :). 

Lastly, I was wondering how the Win32::Gui FAQ was coming along. I've read
through the draft that was posted last month (april) and found that its
getting some good info in it, and was hoping to see much more added to it in
the future. I'd especially like to see some information in it describing
locations to look for more information for questions not yet answered (
though that probably isn't in-line with the concept of an FAQ ). I've found
that many Win32 API books have helped me with style flags that I have not
seen elsewhere (things like MB_YESNOCANCEL and the like). 

Thank you all for your help, and this great mailing list!
-Michael Forhan
Mic...@tr...

[perl-win32-gui-users] Changing items in a ListView with columns?

[<pko...@me...>]

Hello,

I don't know if this has been asked before. Sorry, if there is already a
solution.

How can items, especially single columns of an item in a ListView be
changed, without removing and re-inserting the whole item?

Thanks in advance,

Peter

RE: [perl-win32-gui-users] Appending to RichEdit?

[Dave <da...@sk...>]

I used the select method as mentioned and it works perfectly. Thank you
very much everyone, this list has proven to be an invaluable resource
for me.

Dave

> -----Original Message-----
> From: per...@li...
[mailto:perl-win32-
> gui...@li...] On Behalf Of Piske, Harald
> Sent: Tuesday, May 29, 2001 3:17 PM
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] Appending to RichEdit?
> 
> Actually, Morbus' approach is the better choice, if you don't mind my
> saying
> so. While simply getting the text and setting the appended text
basically
> works (btw: even $RE->{-text} .= $newText; would do), what happens is
that
> the whole field gets refilled and redrawn, using a lot of resources
for
> nothing. With a couple of hundred lines this may cause annoying
flicker,
> plus it shifts the scroll bar back to the top. Selecting "nothing"
past
> the
> end of the contents and replacing the selection is the way to "go by
the
> book", so to speak.
> 
> 	$RE->Select (1e9, 1e9);
> 	$RE->ReplaceSel ($newText);
> 
> With a scrollable textfield this would also have the nice side-effect
of
> scrolling the new line into view. This does not work for richedit
fields
> as
> of 0.0.558 - there was a lengthy trail on this list about a
work-around.
> Bottom line, if you don't need text formatting, use a standard
multiline
> textfield instead of a richedit, it makes life easier.
> 
> Sorry for bugging in
> Have fun,
> Harald
> 
> | -----Original Message-----
> | From: Anthony George [mailto:ag...@em...]
> | Sent: Tuesday, May 29, 2001 11:59
> | To: per...@li...
> | Subject: Re: [perl-win32-gui-users] Appending to RichEdit?
> |
> |
> | Get the text, append, send it out:
> | my $previousText=$RE->Text();
> | $RE->Text($previusText.$newText);
> |
> |
> | On Tue, 29 May 2001 13:45:25 -0400
> | "Dave" <da...@sk...> mentioned:
> |
> | dave> This seems like it should be pretty easy, but I can't
> | figure out how to
> | dave> add text to a richedit window after the text that is
> | already there.
> | dave>
> | dave> I need to be able to continually add lines to the
> | window, from different
> | dave> sources (from the clipboard , textfields / buttons ),
> | then the user
> | dave> needs to be able to edit it before sending it to print.
> | dave>
> | dave> The richedit module works really well, only I can only
> | seem to add text
> | dave> to it with
> | dave>
> | dave> $RE->Text("$data");
> | dave>
> | dave> Everytime I do this it replaces the existing text. Is
> | there a way to
> | dave> append to the existing text instead( starting on a new line )?
> | dave>
> | dave> Thank you,
> | dave> Dave
> | dave>
> | dave>
> | dave>
> | dave> _______________________________________________
> | dave> Perl-Win32-GUI-Users mailing list
> | dave> Per...@li...
> | dave>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> |
> | <sig>  Anthony George <ag...@em...> Systems Engineer.
> | Do your technical services need medical attention?  We can
> | help.  EMSTS, LLC.
> | 800-304-8269   231-720-1600   http://www.emsts.com  </sig>
> |
> |
> |
> | _______________________________________________
> | Perl-Win32-GUI-Users mailing list
> | Per...@li...
> | http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> |
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] Appending to RichEdit?

[Anthony G. <ag...@em...>]

my answer was an uninformed one, I agree! :)
I like this approach much better!

On Tue, 29 May 2001 12:17:18 -0700 
"Piske, Harald" <Har...@bo...> mentioned:

Harald.Piske> Actually, Morbus' approach is the better choice, if you don't mind my saying
Harald.Piske> so. While simply getting the text and setting the appended text basically
Harald.Piske> works (btw: even $RE->{-text} .= $newText; would do), what happens is that
Harald.Piske> the whole field gets refilled and redrawn, using a lot of resources for
Harald.Piske> nothing. With a couple of hundred lines this may cause annoying flicker,
Harald.Piske> plus it shifts the scroll bar back to the top. Selecting "nothing" past the
Harald.Piske> end of the contents and replacing the selection is the way to "go by the
Harald.Piske> book", so to speak.
Harald.Piske> 
Harald.Piske> 	$RE->Select (1e9, 1e9);
Harald.Piske> 	$RE->ReplaceSel ($newText);
Harald.Piske> 
Harald.Piske> With a scrollable textfield this would also have the nice side-effect of
Harald.Piske> scrolling the new line into view. This does not work for richedit fields as
Harald.Piske> of 0.0.558 - there was a lengthy trail on this list about a work-around.
Harald.Piske> Bottom line, if you don't need text formatting, use a standard multiline
Harald.Piske> textfield instead of a richedit, it makes life easier.
Harald.Piske> 
Harald.Piske> Sorry for bugging in
Harald.Piske> Have fun,
Harald.Piske> Harald
Harald.Piske> 
Harald.Piske> | -----Original Message-----
Harald.Piske> | From: Anthony George [mailto:ag...@em...]
Harald.Piske> | Sent: Tuesday, May 29, 2001 11:59
Harald.Piske> | To: per...@li...
Harald.Piske> | Subject: Re: [perl-win32-gui-users] Appending to RichEdit?
Harald.Piske> | 
Harald.Piske> | 
Harald.Piske> | Get the text, append, send it out:
Harald.Piske> | my $previousText=$RE->Text();
Harald.Piske> | $RE->Text($previusText.$newText);
Harald.Piske> | 
Harald.Piske> | 
Harald.Piske> | On Tue, 29 May 2001 13:45:25 -0400 
Harald.Piske> | "Dave" <da...@sk...> mentioned:
Harald.Piske> | 
Harald.Piske> | dave> This seems like it should be pretty easy, but I can't 
Harald.Piske> | figure out how to
Harald.Piske> | dave> add text to a richedit window after the text that is 
Harald.Piske> | already there.
Harald.Piske> | dave> 
Harald.Piske> | dave> I need to be able to continually add lines to the 
Harald.Piske> | window, from different
Harald.Piske> | dave> sources (from the clipboard , textfields / buttons ), 
Harald.Piske> | then the user
Harald.Piske> | dave> needs to be able to edit it before sending it to print.
Harald.Piske> | dave> 
Harald.Piske> | dave> The richedit module works really well, only I can only 
Harald.Piske> | seem to add text
Harald.Piske> | dave> to it with 
Harald.Piske> | dave> 
Harald.Piske> | dave> $RE->Text("$data");
Harald.Piske> | dave> 
Harald.Piske> | dave> Everytime I do this it replaces the existing text. Is 
Harald.Piske> | there a way to
Harald.Piske> | dave> append to the existing text instead( starting on a new line )?
Harald.Piske> | dave> 
Harald.Piske> | dave> Thank you, 
Harald.Piske> | dave> Dave
Harald.Piske> | dave> 
Harald.Piske> | dave> 
Harald.Piske> | dave> 
Harald.Piske> | dave> _______________________________________________
Harald.Piske> | dave> Perl-Win32-GUI-Users mailing list
Harald.Piske> | dave> Per...@li...
Harald.Piske> | dave> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Harald.Piske> | 
Harald.Piske> | <sig>  Anthony George <ag...@em...> Systems Engineer.
Harald.Piske> | Do your technical services need medical attention?  We can 
Harald.Piske> | help.  EMSTS, LLC.
Harald.Piske> | 800-304-8269   231-720-1600   http://www.emsts.com  </sig>
Harald.Piske> | 
Harald.Piske> | 
Harald.Piske> | 
Harald.Piske> | _______________________________________________
Harald.Piske> | Perl-Win32-GUI-Users mailing list
Harald.Piske> | Per...@li...
Harald.Piske> | http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Harald.Piske> | 
Harald.Piske> 
Harald.Piske> _______________________________________________
Harald.Piske> Perl-Win32-GUI-Users mailing list
Harald.Piske> Per...@li...
Harald.Piske> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

<sig>  Anthony George <ag...@em...> Systems Engineer.
Do your technical services need medical attention?  We can help.  EMSTS, LLC.
800-304-8269   231-720-1600   http://www.emsts.com  </sig>

RE: [perl-win32-gui-users] Appending to RichEdit?

[Piske, H. <Har...@bo...>]

Actually, Morbus' approach is the better choice, if you don't mind my saying
so. While simply getting the text and setting the appended text basically
works (btw: even $RE->{-text} .= $newText; would do), what happens is that
the whole field gets refilled and redrawn, using a lot of resources for
nothing. With a couple of hundred lines this may cause annoying flicker,
plus it shifts the scroll bar back to the top. Selecting "nothing" past the
end of the contents and replacing the selection is the way to "go by the
book", so to speak.

	$RE->Select (1e9, 1e9);
	$RE->ReplaceSel ($newText);

With a scrollable textfield this would also have the nice side-effect of
scrolling the new line into view. This does not work for richedit fields as
of 0.0.558 - there was a lengthy trail on this list about a work-around.
Bottom line, if you don't need text formatting, use a standard multiline
textfield instead of a richedit, it makes life easier.

Sorry for bugging in
Have fun,
Harald

| -----Original Message-----
| From: Anthony George [mailto:ag...@em...]
| Sent: Tuesday, May 29, 2001 11:59
| To: per...@li...
| Subject: Re: [perl-win32-gui-users] Appending to RichEdit?
| 
| 
| Get the text, append, send it out:
| my $previousText=$RE->Text();
| $RE->Text($previusText.$newText);
| 
| 
| On Tue, 29 May 2001 13:45:25 -0400 
| "Dave" <da...@sk...> mentioned:
| 
| dave> This seems like it should be pretty easy, but I can't 
| figure out how to
| dave> add text to a richedit window after the text that is 
| already there.
| dave> 
| dave> I need to be able to continually add lines to the 
| window, from different
| dave> sources (from the clipboard , textfields / buttons ), 
| then the user
| dave> needs to be able to edit it before sending it to print.
| dave> 
| dave> The richedit module works really well, only I can only 
| seem to add text
| dave> to it with 
| dave> 
| dave> $RE->Text("$data");
| dave> 
| dave> Everytime I do this it replaces the existing text. Is 
| there a way to
| dave> append to the existing text instead( starting on a new line )?
| dave> 
| dave> Thank you, 
| dave> Dave
| dave> 
| dave> 
| dave> 
| dave> _______________________________________________
| dave> Perl-Win32-GUI-Users mailing list
| dave> Per...@li...
| dave> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| 
| <sig>  Anthony George <ag...@em...> Systems Engineer.
| Do your technical services need medical attention?  We can 
| help.  EMSTS, LLC.
| 800-304-8269   231-720-1600   http://www.emsts.com  </sig>
| 
| 
| 
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| 

Re: [perl-win32-gui-users] Appending to RichEdit?

[Anthony G. <ag...@em...>]

Get the text, append, send it out:
my $previousText=$RE->Text();
$RE->Text($previusText.$newText);


On Tue, 29 May 2001 13:45:25 -0400 
"Dave" <da...@sk...> mentioned:

dave> This seems like it should be pretty easy, but I can't figure out how to
dave> add text to a richedit window after the text that is already there.
dave> 
dave> I need to be able to continually add lines to the window, from different
dave> sources (from the clipboard , textfields / buttons ), then the user
dave> needs to be able to edit it before sending it to print.
dave> 
dave> The richedit module works really well, only I can only seem to add text
dave> to it with 
dave> 
dave> $RE->Text("$data");
dave> 
dave> Everytime I do this it replaces the existing text. Is there a way to
dave> append to the existing text instead( starting on a new line )?
dave> 
dave> Thank you, 
dave> Dave
dave> 
dave> 
dave> 
dave> _______________________________________________
dave> Perl-Win32-GUI-Users mailing list
dave> Per...@li...
dave> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

<sig>  Anthony George <ag...@em...> Systems Engineer.
Do your technical services need medical attention?  We can help.  EMSTS, LLC.
800-304-8269   231-720-1600   http://www.emsts.com  </sig>

Re: [perl-win32-gui-users] Appending to RichEdit?

[Morbus I. <mo...@di...>]

 >I need to be able to continually add lines to the window, from different
 >sources (from the clipboard , textfields / buttons ), then the user
 >needs to be able to edit it before sending it to print.

Attached is a gui library that does exactly that. You should be able to 
hunt it down - the RE is made in &gui_init, and the text is appended in 
&gui_note. If you have any questions, lemme know.

[perl-win32-gui-users] Appending to RichEdit?

[Dave <da...@sk...>]

This seems like it should be pretty easy, but I can't figure out how to
add text to a richedit window after the text that is already there.

I need to be able to continually add lines to the window, from different
sources (from the clipboard , textfields / buttons ), then the user
needs to be able to edit it before sending it to print.

The richedit module works really well, only I can only seem to add text
to it with 

$RE->Text("$data");

Everytime I do this it replaces the existing text. Is there a way to
append to the existing text instead( starting on a new line )?

Thank you, 
Dave

Re: [perl-win32-gui-users] Show In Taskbar

[Glenn L. <Gle...@ne...>]

Yes, yes, that gets a windows handle, but not a Win32::GUI::Window object
containing the handle, which seems to be the only thing -parent will accept.
Attempting to pass $desktop (as defined below) to -parent results in a crash
on my machine.

Aldo Calpini wrote:

> Glenn Linderman wrote:
> > Perhaps the desktop could be used, if there was a way to get its handle
> > into a Win32::GUI::Window object.
>
>     my $desktop = Win32::GUI::GetDesktopWindow();
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

[perl-win32-gui-users] DialogBox [?] Button

[Peter E. <Pet...@at...>]

What is the event generated when you click on the [?] button (next to the
[X] terminate button) on a DialogBox?

Re: [perl-win32-gui-users] Gui Builder

[NAHUM M. <mar...@re...>]

I know the link , but ...

----- Original Message ----- 
From: "Frazier, Joe Jr" <Joe...@Pe...>
To: <per...@li...>
Sent: Tuesday, May 29, 2001 2:10 PM
Subject: [perl-win32-gui-users] Gui Builder


Could someone give me the link for the GUIBuilder.  I remember seeing it
serveral weeks ago, but because I did not have access to a 5.6 Perl, I
could not use it.  Alternatly, is there a searchable archive for the
list on sourceforge?


_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] $Window{-dialogui => 1}

[Peter E. <Pet...@at...>]

Was the -dialogui option implemented on Window? I am trying to use tabstops
and I thought I remembered seeing mention of this on the list but [1] can't
find it and [2] it doesn't work on my NT4 machine. Works fine as a
DialogBox, though.

Thanks,
Pete

[perl-win32-gui-users] Gui Builder

[Frazier, J. J. <Joe...@Pe...>]

Could someone give me the link for the GUIBuilder.  I remember seeing it
serveral weeks ago, but because I did not have access to a 5.6 Perl, I
could not use it.  Alternatly, is there a searchable archive for the
list on sourceforge?

Re: [perl-win32-gui-users] Show In Taskbar

[Aldo C. <da...@pe...>]

Glenn Linderman wrote:
> Perhaps the desktop could be used, if there was a way to get its handle
> into a Win32::GUI::Window object.

    my $desktop = Win32::GUI::GetDesktopWindow();


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Re: [perl-win32-gui-users] Show In Taskbar

[Glenn L. <Gle...@ne...>]

Johan Lindstrom wrote:

> This was discussed some time ago on the list. What we figured out then was
> that creating a window with a -parent => $winParent will make the new
> window a child window. It will stay on top of the parent window and it will
> not be displayed in the task bar.
>
> I'm not sure how to do it without having a window already, but maybe it's
> possible to make it a child of e.g. the desktop hwind or something else.
> Just a thought.

Well, one can make a trash window and use it as a parent for what would
otherwise be your first window.  Then you can discard it, as it has
served its
purpose.  Additional windows you create can use the first window as the
parent.

Perhaps the desktop could be used, if there was a way to get its handle
into a
Win32::GUI::Window object.

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

Re: [perl-win32-gui-users] Avoiding the Taskbars

[Glenn L. <Gle...@ne...>]

OK, here's sample Perl/Win32::GUI/Win32::API code for positioning windows on the
desktop while avoiding any/all Windows "appbars" and the Windows "taskbar" (which
was the first appbar, and still seems to be a bit special among appbars).  If you
don't like my "negative number means right or bottom" stuff, just take it out :)
Thanks to Harald for the kernel knowledge that got me started, and the attaboy along
the way.

This code attempts to keep the full window visible, so if/when you want to allow
part of the windows to float off-screen, or under the taskbars, well, don't use this
code, or modify it appropriately.


#####################################
sub make_get_work_area
{ my $spi;
  $spi = new Win32::API ( 'user32', 'SystemParametersInfo',
    [ 'I', 'I', 'P', 'I' ], 'I' );
  return $spi;
}
#####################################
sub call_get_work_area
{ my ( $spi ) = @_;
  my ( $rect ) = pack ( "LLLL", 0, 0, 0, 0 );
  my ( $ret ) = $spi -> Call ( 48, 0, $rect, 0 );
  unless ( $ret )
  {
  }
  return unpack ( "LLLL", $rect );
}
#####################################
{ my $spi;

  sub working_area
  { my ( $winx, $winy, $winw, $winh ) = @_; # proposed position, actual size

    # If no parameters are passed in, this function returns the working area
    # of the desktop, ( left, top, right, bottom ).  If parameters are passed
    # in, it returns the "best" ( left, top, width, height ) position for the
    # specified window, starting with the proposed position, adjusting it so
    # that as much as possible of the window will be visible, and further
    # adjusting it so that the top left corner of the window will be visible.
    # Negative positions are interpreted as "bottom" or "right", as appropriate.

    # first, obtain the non-toolbar area of the desktop.

    $spi = & make_get_work_area ()  unless $spi;
    print "$spi\n";
    my ( @limits );
    @limits = & call_get_work_area ( $spi );

    print "limits: @limits\n";

    # limits returned unless all parameters supplied
    return @limits  unless defined $winx  &&   defined $winy
      &&  defined $winw  &&  defined $winh;

    print "before adjustments: x=$winx  y=$winy  w=$winw  h=$winh\n";
    $winy = $limits [ 3 ] - $winh
      if $winy < 0  ||  $winy + $winh > $limits [ 3 ];
    $winx = $limits [ 2 ] - $winw
      if $winx < 0  ||  $winx + $winw > $limits [ 2 ];
    $winy = $limits [ 1 ]  if $winy < $limits [ 1 ];
    $winx = $limits [ 0 ]  if $winx < $limits [ 0 ];

    print "x=$winx  y=$winy  w=$winw  h=$winh\n";
    return ( $winx, $winy, $winw, $winh );
  }
}
#####################################


Glenn Linderman wrote:

> "Piske, Harald" wrote:
>
> > I'm impressed - here's somebody who knows how to translate general ideas
> > into formal terminology.
>
> Thanks for the attaboy.  It was just what I needed to inspire further
> research...
>
> > I don't have a solution at hand but with what you
> > say, you should be able to figure it out. I'm not aware of any ready-made
> > windoze function to give you the "effective desktop client area after
> > accounting for taskbars", but that does not mean there is none. I'm not
> > really at home in the win ref manuals.
>
> I am.  Now.  Post research :)   Research is below for the interested.  Next
> research project is to figure out how to use Win32::API well enough to benefit
> from the research...
>
> > Just one more note: my wife has a toolbar on her computer that is nothing
> > but a small collection of buttons. Looks like it was invented before Win98
> > came along with it's quick-launch thingy. That is only around 10% of the
> > screen width and just one row of icons high.
>
> I've seen some of those.  Not too concerned about them, either.
>
> Here's the relevant pieces of the results of the research through MSDN:
>
> BOOL SystemParametersInfo(
>   UINT uiAction, // system parameter to query or set
>   UINT uiParam,  // depends on action to be taken
>   PVOID pvParam, // depends on action to be taken
>   UINT fWinIni   // user profile update flag
> );
>
> when uiAction == SPI_GETWORKAREA
>
> Retrieves the size of the work area on the primary display monitor. The work
> area is the portion of the screen not obscured by the system taskbar or by
> application desktop toolbars. The pvParam parameter must point to a RECT
> structure that receives the coordinates of the work area, expressed in virtual
> screen coordinates.
>
> To get the work area of a monitor other than the primary display monitor, call
> the GetMonitorInfo function.
>
> RECT
>
> The RECT structure defines the coordinates of the upper-left and lower-right
> corners of a rectangle.
>
> typedef struct _RECT {
>     LONG left;
>     LONG top;
>     LONG right;
>     LONG bottom;
> } RECT;
>
> Members
> left   Specifies the x-coordinate of the upper-left corner of the rectangle.
> top    Specifies the y-coordinate of the upper-left corner of the rectangle.
> right  Specifies the x-coordinate of the lower-right corner of the rectangle.
> bottom Specifies the y-coordinate of the lower-right corner of the rectangle.
>
> Remarks
>
> When RECT is passed to the FillRect function, the rectangle is filled up to, but
> not including, the right column and bottom row of pixels. This structure is
> identical to the RECTL structure.
>
> So it looks like the C/C++ code for this would go approximately like:
>
> RECT workarea;
> BOOL ret;
>
> ret = SystemParametersInfo ( SPI_GETWORKAREA, 0, & workarea, 0 );
> if ( ! ret )
> { ... GetLastError ...
> }
> // workarea can be determined from workarea.left, workarea.top, etc.
>
> --
> Glenn
> =====
> Due to the current economic situation, the light at the
> end of the tunnel will be turned off until further notice.
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

Re: [perl-win32-gui-users] Taskbar & perl2exe -gui crash

[Glenn L. <Gle...@ne...>]

"Piske, Harald" wrote:

> I'm impressed - here's somebody who knows how to translate general ideas
> into formal terminology.

Thanks for the attaboy.  It was just what I needed to inspire further
research...

> I don't have a solution at hand but with what you
> say, you should be able to figure it out. I'm not aware of any ready-made
> windoze function to give you the "effective desktop client area after
> accounting for taskbars", but that does not mean there is none. I'm not
> really at home in the win ref manuals.

I am.  Now.  Post research :)   Research is below for the interested.  Next
research project is to figure out how to use Win32::API well enough to benefit
from the research...

> Just one more note: my wife has a toolbar on her computer that is nothing
> but a small collection of buttons. Looks like it was invented before Win98
> came along with it's quick-launch thingy. That is only around 10% of the
> screen width and just one row of icons high.

I've seen some of those.  Not too concerned about them, either.

Here's the relevant pieces of the results of the research through MSDN:

BOOL SystemParametersInfo(
  UINT uiAction, // system parameter to query or set
  UINT uiParam,  // depends on action to be taken
  PVOID pvParam, // depends on action to be taken
  UINT fWinIni   // user profile update flag
);

when uiAction == SPI_GETWORKAREA

Retrieves the size of the work area on the primary display monitor. The work
area is the portion of the screen not obscured by the system taskbar or by
application desktop toolbars. The pvParam parameter must point to a RECT
structure that receives the coordinates of the work area, expressed in virtual
screen coordinates.

To get the work area of a monitor other than the primary display monitor, call
the GetMonitorInfo function.


RECT

The RECT structure defines the coordinates of the upper-left and lower-right
corners of a rectangle.

typedef struct _RECT {
    LONG left;
    LONG top;
    LONG right;
    LONG bottom;
} RECT;

Members
left   Specifies the x-coordinate of the upper-left corner of the rectangle.
top    Specifies the y-coordinate of the upper-left corner of the rectangle.
right  Specifies the x-coordinate of the lower-right corner of the rectangle.
bottom Specifies the y-coordinate of the lower-right corner of the rectangle.

Remarks

When RECT is passed to the FillRect function, the rectangle is filled up to, but
not including, the right column and bottom row of pixels. This structure is
identical to the RECTL structure.

So it looks like the C/C++ code for this would go approximately like:

RECT workarea;
BOOL ret;

ret = SystemParametersInfo ( SPI_GETWORKAREA, 0, & workarea, 0 );
if ( ! ret )
{ ... GetLastError ...
}
// workarea can be determined from workarea.left, workarea.top, etc.

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.