perl-win32-gui-users

[perl-win32-gui-users] Bold and unbold in RichEdit

[Jonathan S. <jso...@al...>]

I know that if you specify the '-bold => 1' option in creating a font 
object and using that font in the RichEdit object creation that you can get 
your text bolded in the RichEdit field.  My question is this, is it 
possible to go back and forth between bolded and unbolded text in a 
Richedit field?



Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

Re: [perl-win32-gui-users] Bold and unbold in RichEdit

[Johan L. <jo...@ba...>]

At 08:18 2001-11-09 -0500, Jonathan Southwick wrote:
>I know that if you specify the '-bold => 1' option in creating a font 
>object and using that font in the RichEdit object creation that you can 
>get your text bolded in the RichEdit field.  My question is this, is it 
>possible to go back and forth between bolded and unbolded text in a 
>Richedit field?

Working code:

=head2 podAddLine($line, $heading)

Add the $line to the end of the POD text box, using the
$heading level of emphasis.

$heading -- 0 == text, 1 == H1, 2 == H2

Return 1 on success, else 0.

=cut
sub podAddLine { my $self = shift; my $pkg = ref($self);
     my ($line, $heading) = @_;

     my @aFont = (
             -height => $self->rhConfig()->{podFontSize},
             -name => $self->rhConfig()->{podFontName},
             );
     my %hOn = (
             1 => [-color => 0x000000, -bold => 1, @aFont],
             2 => [-color => 0x000000, -bold => 1, @aFont],
             0 => [-color => 0x000000, -bold => 0, @aFont],
             );
     my $rePOD = $self->winMain()->rePOD();

     $rePOD->Select(999999,999999); #Stolen from the PM chatterbox
     $rePOD->SetCharFormat(@{$hOn{$heading}});
     $rePOD->ReplaceSel("$line\n",1);

     return(1);
     }


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

Re: [perl-win32-gui-users] Bold and unbold in RichEdit

[Jonathan S. <jso...@al...>]

Thanks a zillion!!!!  Now I can have alternating colors instead producing a=
=20
better effect.

Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

At 11/9/2001 02:39 PM, you wrote:
>At 08:18 2001-11-09 -0500, Jonathan Southwick wrote:
>>I know that if you specify the '-bold =3D> 1' option in creating a font=20
>>object and using that font in the RichEdit object creation that you can=20
>>get your text bolded in the RichEdit field.  My question is this, is it=20
>>possible to go back and forth between bolded and unbolded text in a=20
>>Richedit field?
>
>Working code:
>
>=3Dhead2 podAddLine($line, $heading)
>
>Add the $line to the end of the POD text box, using the
>$heading level of emphasis.
>
>$heading -- 0 =3D=3D text, 1 =3D=3D H1, 2 =3D=3D H2
>
>Return 1 on success, else 0.
>
>=3Dcut
>sub podAddLine { my $self =3D shift; my $pkg =3D ref($self);
>     my ($line, $heading) =3D @_;
>
>     my @aFont =3D (
>             -height =3D> $self->rhConfig()->{podFontSize},
>             -name =3D> $self->rhConfig()->{podFontName},
>             );
>     my %hOn =3D (
>             1 =3D> [-color =3D> 0x000000, -bold =3D> 1, @aFont],
>             2 =3D> [-color =3D> 0x000000, -bold =3D> 1, @aFont],
>             0 =3D> [-color =3D> 0x000000, -bold =3D> 0, @aFont],
>             );
>     my $rePOD =3D $self->winMain()->rePOD();
>
>     $rePOD->Select(999999,999999); #Stolen from the PM chatterbox
>     $rePOD->SetCharFormat(@{$hOn{$heading}});
>     $rePOD->ReplaceSel("$line\n",1);
>
>     return(1);
>     }
>
>
>/J
>
>------ ---- --- -- -- -- -  -   -    -        -
>Johan Lindstr=F6m                    Boss Casinos
>Sourcerer                     jo...@ba...
>                  http://www.bahnhof.se/~johanl/
>If the only tool you have is a hammer,
>everything tends to look
>like a nail
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users