Pete,
Thanks for the idea. I added your suggestion, minus the WS_HSCROLL (I want
wrapping to take effect). It does produce a scroll bar. It removes the effect
of -readonly, but since I never look at the resulting text, and refresh it on
the next display, that isn't terribly problematical. Perhaps I'll diddle around
and find something that turns -readonly back on. Perhaps another -style flag?
Peter Eisengrein wrote:
> Not sure if the -style flag works on textfields but it does on RichEdits and
> that might be what's missing. Try adding this to your Textfield hash:
>
> -style => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
> | ES_LEFT | ES_MULTILINE,
>
> -Pete
>
> -----Original Message-----
> From: Glenn Linderman [mailto:Gle...@ne...]
> Sent: Wednesday, March 07, 2001 12:31 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] Textfield question
>
> Hi,
>
> I'm a Perl expert, but a Windows novice. I'm using the .558 version of
> Win32::GUI, and having great success for the most part. There are some
> rough
> edges, and some apparently missing pieces, but no showstoppers so far, to
> achieve what I need.
>
> I created a Textfield as
>
> $help_text = $neww -> AddTextfield (
> -name => 'help_text',
> -text => "This is not very\r\nhelpful, yet.",
> -multiline => 1, -readonly => 1, -vscroll => 1,
> -top => $lastbottom, -left => 0, -width => 600, -height => 190,
> );
>
> The -vscroll doesn't seem to have any affect. When I later
>
> $help_text -> Text ( $long_string );
>
> and use a string that is longer than fits in the Textfield, I expected, but
> did not get, a vertical scroll bar on the right of the Text field. Any easy
> way to make that happen? Or must I limit my help text to the available
> space?
>
> I tried using RichEdit instead, but it doesn't seem to honor -readonly, and
> doesn't display a scrollbar either. Although it did do scrolling of sorts,
> via the up & down cursor keys... but it seemed to only scroll in "whole
> field
> size" jumps, not line at a time. Going back to the Textfield, I tried
> clicking on it and using the up & down cursor keys, but no joy.
>
> If there is no easy way, does someone have sample code for the hard way?
>
> --
> Glenn
> =====
> Even if you're on the right track,
> you'll get run over if you just sit there.
> -- Will Rogers
>
> _______________________________________________
> 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
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
|
