Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: WIN32::GUI label font/color

by bbfu (Curate)
on Apr 22, 2004 at 21:20 UTC ( #347480=note: print w/ replies, xml ) Need Help??


in reply to WIN32::GUI label font/color

Not very elegant, but it works. The basic idea is to simply replace the label by creating a new one with the same name. To avoid artifacts, you can hide the original first.

#!/usr/bin/winperl use warnings; use strict; use Win32::GUI; my $w = Win32::GUI::Window->new( -title => "Win32::GUI::Label test", -left => 100, -top => 100, -width => 100, -height => 100, -name => "Window", ); my $font = 0; my @fonts = ( Win32::GUI::Font->new( -name => 'Arial', -size => 14, -bold => 1, ), Win32::GUI::Font->new( -name => 'Arial', -size => 14, -italic => 1, ), ); my @colors = ([0, 0, 0], [255, 0, 0]); my @label_data = ( -name => "Label", -left => 30, -top => 10, -text => "Test", ); my $l = $w->AddLabel( @label_data, -font => $fonts[$font], -foreground => $colors[$font], ); $w->AddButton( -name => 'Button', -text => 'Change Font', -left => 10, -top => 45, ); $w->Show(); Win32::GUI::Dialog(); sub Window_Terminate { return -1; } sub Button_Click { $font = ($font+1) % @fonts; $l->Hide(); $l = $w->AddLabel( @label_data, -font => $fonts[$font], -foreground => $colors[$font], ); }

The basic idea came from the How-To.

bbfu
Black flowers blossom
Fearless on my breath


Comment on Re: WIN32::GUI label font/color
Download Code
Re^2: WIN32::GUI label font/color
by WayneRas (Initiate) on Jun 30, 2011 at 06:38 UTC
    At least changing the color (example to Red) can (now) be achieved with similar logic to: labelobject->Change(-foreground => 255,0,0); labelobject->Redraw(1); and labelobject is Win32::GUI label.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://347480]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (10)
As of 2014-10-20 13:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (76 votes), past polls