From: Ariel S. <as...@ya...> - 2005-05-07 18:07:05
|
To add plain text, you can use a label: $W->AddLabel( -name => "mylabel1", -left => 10, -top => 150, -width => 100, -height => 22, -text => "Some Text Here" ); --- MJG <MJ...@pa...> wrote: > I have a simple window I've created. Usually, I > just do windows with > buttons, but I have a need for text with the window. > I have not found > any examples of how to do this. Can someone provide > an example within > my example of how to just add text to the main > portion of the window? > Thank you in advance > > > Use Win32::GUI; > use Win32 (); > > &Win32_GUI(); > > quit(0); > > sub Win32_GUI > { > > my $I = new Win32::GUI::Icon('icon.ICO'); > my $C = new Win32::GUI::Bitmap("./harrow.cur", 2); > > my $F = new Win32::GUI::Font( > -name => "Comic Sans MS", > -size => 10, > -bold => 0, > -underline=>0, > ); > > # Register a BUTTON class with cursor > my $BC = new Win32::GUI::Class( > -name => 'Class_Button', > -extends => 'BUTTON', > -widget => 'Button', > -cursor => $C, > ); > > my $WC = new Win32::GUI::Class( > -name => '_Button', > -cursor => $C, > -icon => $I, > -color => 2, > ); > > my $W = new Win32::GUI::Window( > -title => "Uptime Monitor", > -pos => [100, 100], > -size => [400, 400], > -left => 300, > -top => 100, > -width => 300, > -height => 600, > -name => "Main", > -class => $WC, > -topmost => 1, > -font => $F, > -sysmenu => 0, > -resizable =>0, > ); > > $W->AddButton( > -text => "Server List", > -name => "GroupBox_1", > -left => 2, > -top => 40, > -width => 290, > -height => 530, > -style => WS_CHILD | WS_VISIBLE | 7, # GroupBox > ); > > $W->AddButton( > -name => "Update", > -left => 150, > -top => 5, > -text => "Update", > -tabstop => 1, > -class => $BC, > #-icon => $I, > ); > > $W->AddButton( > -name => "Close", > -left => 50, > -top => 5, > -text => "Exit", > -tabstop => 1, > -class => $BC, > #-icon => $I, > ); > > #$W->{-dialogui} = 0; > > my ($left, $top, $right, $bottom) = > Win32::GUI::GetDesktopWindow(); > > my $SysTrayICON = new Win32::GUI::Icon('icon.ICO'); > > my $SysTray = $W->AddNotifyIcon(-name => "SysTray", > -id => 1, > -icon => $SysTrayICON, > -tip => "UPTIME!", > ); > > > $W->Show(); > > Win32::GUI::Dialog(0); > > } > > sub Window_Terminate { > return -1; > } > > sub Close_Click { > > Window_Terminate(); > } > > sub Update_Click { > > > } > > __END__ > > > > ------------------------------------------------------- > This SF.Net email is sponsored by: NEC IT Guy Games. > Get your fingers limbered up and give it your best > shot. 4 great events, 4 > opportunities to win big! Highest score wins.NEC IT > Guy Games. Play to > win an NEC 61 plasma display. Visit > http://www.necitguy.com/?r > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > |
From: MJG <MJ...@pa...> - 2005-05-08 00:32:01
|
Ok, that's cool, but let's say I want to fill the entire window with text. Do I use a label for each row, or is there something I can use to just fill the window?=20 Thanks -----Original Message----- From: Ariel Serbin [mailto:as...@ya...]=20 Sent: Saturday, May 07, 2005 1:07 PM To: MJG; per...@li... Subject: Re: [perl-win32-gui-users] Simple Text To add plain text, you can use a label: $W->AddLabel( -name =3D> "mylabel1", -left =3D> 10, -top =3D> 150, -width =3D> 100, -height =3D> 22, -text =3D> "Some Text Here" ); --- MJG <MJ...@pa...> wrote: > I have a simple window I've created. Usually, I > just do windows with > buttons, but I have a need for text with the window. > I have not found > any examples of how to do this. Can someone provide > an example within > my example of how to just add text to the main > portion of the window? > Thank you in advance >=20 >=20 > Use Win32::GUI; > use Win32 (); >=20 > &Win32_GUI(); >=20 > quit(0); >=20 > sub Win32_GUI > { >=20 > my $I =3D new Win32::GUI::Icon('icon.ICO'); > my $C =3D new Win32::GUI::Bitmap("./harrow.cur", 2); > =09 > my $F =3D new Win32::GUI::Font( > -name =3D> "Comic Sans MS", > -size =3D> 10, > -bold =3D> 0, > -underline=3D>0, > ); >=20 > # Register a BUTTON class with cursor > my $BC =3D new Win32::GUI::Class( > -name =3D> 'Class_Button', =20 > -extends =3D> 'BUTTON', =20 > -widget =3D> 'Button', =20 > -cursor =3D> $C, =20 > ); >=20 > my $WC =3D new Win32::GUI::Class( > -name =3D> '_Button', > -cursor =3D> $C, > -icon =3D> $I, > -color =3D> 2, > ); >=20 > my $W =3D new Win32::GUI::Window( > -title =3D> "Uptime Monitor", > -pos =3D> [100, 100], > -size =3D> [400, 400], > -left =3D> 300,=20 > -top =3D> 100,=20 > -width =3D> 300,=20 > -height =3D> 600, > -name =3D> "Main", > -class =3D> $WC, > -topmost =3D> 1, > -font =3D> $F, > -sysmenu =3D> 0, > -resizable =3D>0, =20 > ); >=20 > $W->AddButton( > -text =3D> "Server List", > -name =3D> "GroupBox_1", > -left =3D> 2, > -top =3D> 40, > -width =3D> 290, > -height =3D> 530, > -style =3D> WS_CHILD | WS_VISIBLE | 7, # GroupBox > ); >=20 > $W->AddButton( > -name =3D> "Update", > -left =3D> 150, > -top =3D> 5, > -text =3D> "Update", > -tabstop =3D> 1, > -class =3D> $BC, > #-icon =3D> $I, > ); >=20 > $W->AddButton( > -name =3D> "Close", > -left =3D> 50, > -top =3D> 5, > -text =3D> "Exit", > -tabstop =3D> 1, > -class =3D> $BC, > #-icon =3D> $I, > ); >=20 > #$W->{-dialogui} =3D 0; >=20 > my ($left, $top, $right, $bottom) =3D > Win32::GUI::GetDesktopWindow(); >=20 > my $SysTrayICON =3D new Win32::GUI::Icon('icon.ICO'); >=20 > my $SysTray =3D $W->AddNotifyIcon(-name =3D> "SysTray",=20 > -id =3D> 1,=20 > -icon =3D> $SysTrayICON,=20 > -tip =3D> "UPTIME!", > ); >=20 >=20 > $W->Show(); >=20 > Win32::GUI::Dialog(0); >=20 > } >=20 > sub Window_Terminate { > return -1; > } >=20 > sub Close_Click { >=20 > Window_Terminate(); > } >=20 > sub Update_Click { >=20 > =20 > } >=20 > __END__ >=20 >=20 >=20 > ------------------------------------------------------- > This SF.Net email is sponsored by: NEC IT Guy Games. > Get your fingers limbered up and give it your best > shot. 4 great events, 4 > opportunities to win big! Highest score wins.NEC IT > Guy Games. Play to > win an NEC 61 plasma display. Visit > http://www.necitguy.com/?r=20 > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users >=20 |
From: Ariel S. <as...@ya...> - 2005-05-08 04:19:43
|
i'm not positive about the best way to do this, but labels can wrap text. if you just make a big label it will work. try this: use Win32::GUI; $win = new Win32::GUI::Window( -title => 'test', -name => 'mywin', -left => 100, -top => 100, -width => 400, -height => 400, ); $lbl = $win->AddLabel( -name => 'lbl1', -top => 50, -left => 10, -width => 380, -height => 340, -text => 'this is the starting text and it is a really really really really really really really really really really really really really really really really long line...' ); $win->AddButton( -name => 'btn1', -text => 'click me' ); $win->Show(); Win32::GUI::Dialog(); sub mywin_Terminate {-1}; sub btn1_Click { my $txt = $lbl->Text(); $txt .= "\nmore label text here"; $lbl->Text($txt); } --- MJG <MJ...@pa...> wrote: > Ok, that's cool, but let's say I want to fill the > entire window with > text. Do I use a label for each row, or is there > something I can use to > just fill the window? > > Thanks > > -----Original Message----- > From: Ariel Serbin [mailto:as...@ya...] > Sent: Saturday, May 07, 2005 1:07 PM > To: MJG; per...@li... > Subject: Re: [perl-win32-gui-users] Simple Text > > To add plain text, you can use a label: > > $W->AddLabel( > -name => "mylabel1", > -left => 10, > -top => 150, > -width => 100, > -height => 22, > -text => "Some Text Here" > ); > > > --- MJG <MJ...@pa...> wrote: > > I have a simple window I've created. Usually, I > > just do windows with > > buttons, but I have a need for text with the > window. > > I have not found > > any examples of how to do this. Can someone > provide > > an example within > > my example of how to just add text to the main > > portion of the window? > > Thank you in advance > > > > > > Use Win32::GUI; > > use Win32 (); > > > > &Win32_GUI(); > > > > quit(0); > > > > sub Win32_GUI > > { > > > > my $I = new Win32::GUI::Icon('icon.ICO'); > > my $C = new Win32::GUI::Bitmap("./harrow.cur", 2); > > > > my $F = new Win32::GUI::Font( > > -name => "Comic Sans MS", > > -size => 10, > > -bold => 0, > > -underline=>0, > > ); > > > > # Register a BUTTON class with cursor > > my $BC = new Win32::GUI::Class( > > -name => 'Class_Button', > > -extends => 'BUTTON', > > -widget => 'Button', > > -cursor => $C, > > ); > > > > my $WC = new Win32::GUI::Class( > > -name => '_Button', > > -cursor => $C, > > -icon => $I, > > -color => 2, > > ); > > > > my $W = new Win32::GUI::Window( > > -title => "Uptime Monitor", > > -pos => [100, 100], > > -size => [400, 400], > > -left => 300, > > -top => 100, > > -width => 300, > > -height => 600, > > -name => "Main", > > -class => $WC, > > -topmost => 1, > > -font => $F, > > -sysmenu => 0, > > -resizable =>0, > > ); > > > > $W->AddButton( > > -text => "Server List", > > -name => "GroupBox_1", > > -left => 2, > > -top => 40, > > -width => 290, > > -height => 530, > > -style => WS_CHILD | WS_VISIBLE | 7, # > GroupBox > > ); > > > > $W->AddButton( > > -name => "Update", > > -left => 150, > > -top => 5, > > -text => "Update", > > -tabstop => 1, > > -class => $BC, > > #-icon => $I, > > ); > > > > $W->AddButton( > > -name => "Close", > > -left => 50, > > -top => 5, > > -text => "Exit", > > -tabstop => 1, > > -class => $BC, > > #-icon => $I, > > ); > > > > #$W->{-dialogui} = 0; > > > > my ($left, $top, $right, $bottom) = > > Win32::GUI::GetDesktopWindow(); > > > > my $SysTrayICON = new > Win32::GUI::Icon('icon.ICO'); > > > > my $SysTray = $W->AddNotifyIcon(-name => > "SysTray", > > -id => 1, > > -icon => $SysTrayICON, > > -tip => "UPTIME!", > > ); > > > > > > $W->Show(); > > > > Win32::GUI::Dialog(0); > > > > } > > > > sub Window_Terminate { > > return -1; > > } > > > > sub Close_Click { > > > > Window_Terminate(); > > } > > > > sub Update_Click { > > > > > > } > > > > __END__ > > > > > > > > > ------------------------------------------------------- > > This SF.Net email is sponsored by: NEC IT Guy > Games. > > Get your fingers limbered up and give it your best > > shot. 4 great events, 4 > > opportunities to win big! Highest score wins.NEC > IT > > Guy Games. Play to > > win an NEC 61 plasma display. Visit > > http://www.necitguy.com/?r > > _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Per...@li... > > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > |
From: MJG <MJ...@pa...> - 2005-05-08 12:33:31
|
Unfortunately, each row is unique because it is generated, so it can't wrap. -----Original Message----- From: Ariel Serbin [mailto:as...@ya...]=20 Sent: Saturday, May 07, 2005 11:20 PM To: MJG; per...@li... Subject: RE: [perl-win32-gui-users] Simple Text i'm not positive about the best way to do this, but labels can wrap text. if you just make a big label it will work. try this: use Win32::GUI; $win =3D new Win32::GUI::Window( -title =3D> 'test', -name =3D> 'mywin', -left =3D> 100, -top =3D> 100, -width =3D> 400, -height =3D> 400, ); $lbl =3D $win->AddLabel( -name =3D> 'lbl1', -top =3D> 50, -left =3D> 10, -width =3D> 380, -height =3D> 340, -text =3D> 'this is the starting text and it is a really really really really really really really really really really really really really really really really long line...' ); $win->AddButton( -name =3D> 'btn1', -text =3D> 'click me' ); $win->Show(); Win32::GUI::Dialog(); sub mywin_Terminate {-1}; sub btn1_Click { my $txt =3D $lbl->Text(); $txt .=3D "\nmore label text here"; $lbl->Text($txt); } --- MJG <MJ...@pa...> wrote: > Ok, that's cool, but let's say I want to fill the > entire window with > text. Do I use a label for each row, or is there > something I can use to > just fill the window?=20 >=20 > Thanks >=20 > -----Original Message----- > From: Ariel Serbin [mailto:as...@ya...]=20 > Sent: Saturday, May 07, 2005 1:07 PM > To: MJG; per...@li... > Subject: Re: [perl-win32-gui-users] Simple Text >=20 > To add plain text, you can use a label: >=20 > $W->AddLabel( > -name =3D> "mylabel1", > -left =3D> 10, > -top =3D> 150, > -width =3D> 100, > -height =3D> 22, > -text =3D> "Some Text Here" > ); >=20 >=20 > --- MJG <MJ...@pa...> wrote: > > I have a simple window I've created. Usually, I > > just do windows with > > buttons, but I have a need for text with the > window. > > I have not found > > any examples of how to do this. Can someone > provide > > an example within > > my example of how to just add text to the main > > portion of the window? > > Thank you in advance > >=20 > >=20 > > Use Win32::GUI; > > use Win32 (); > >=20 > > &Win32_GUI(); > >=20 > > quit(0); > >=20 > > sub Win32_GUI > > { > >=20 > > my $I =3D new Win32::GUI::Icon('icon.ICO'); > > my $C =3D new Win32::GUI::Bitmap("./harrow.cur", 2); > > =09 > > my $F =3D new Win32::GUI::Font( > > -name =3D> "Comic Sans MS", > > -size =3D> 10, > > -bold =3D> 0, > > -underline=3D>0, > > ); > >=20 > > # Register a BUTTON class with cursor > > my $BC =3D new Win32::GUI::Class( > > -name =3D> 'Class_Button', =20 > > -extends =3D> 'BUTTON', =20 > > -widget =3D> 'Button', =20 > > -cursor =3D> $C, =20 > > ); > >=20 > > my $WC =3D new Win32::GUI::Class( > > -name =3D> '_Button', > > -cursor =3D> $C, > > -icon =3D> $I, > > -color =3D> 2, > > ); > >=20 > > my $W =3D new Win32::GUI::Window( > > -title =3D> "Uptime Monitor", > > -pos =3D> [100, 100], > > -size =3D> [400, 400], > > -left =3D> 300,=20 > > -top =3D> 100,=20 > > -width =3D> 300,=20 > > -height =3D> 600, > > -name =3D> "Main", > > -class =3D> $WC, > > -topmost =3D> 1, > > -font =3D> $F, > > -sysmenu =3D> 0, > > -resizable =3D>0, =20 > > ); > >=20 > > $W->AddButton( > > -text =3D> "Server List", > > -name =3D> "GroupBox_1", > > -left =3D> 2, > > -top =3D> 40, > > -width =3D> 290, > > -height =3D> 530, > > -style =3D> WS_CHILD | WS_VISIBLE | 7, # > GroupBox > > ); > >=20 > > $W->AddButton( > > -name =3D> "Update", > > -left =3D> 150, > > -top =3D> 5, > > -text =3D> "Update", > > -tabstop =3D> 1, > > -class =3D> $BC, > > #-icon =3D> $I, > > ); > >=20 > > $W->AddButton( > > -name =3D> "Close", > > -left =3D> 50, > > -top =3D> 5, > > -text =3D> "Exit", > > -tabstop =3D> 1, > > -class =3D> $BC, > > #-icon =3D> $I, > > ); > >=20 > > #$W->{-dialogui} =3D 0; > >=20 > > my ($left, $top, $right, $bottom) =3D > > Win32::GUI::GetDesktopWindow(); > >=20 > > my $SysTrayICON =3D new > Win32::GUI::Icon('icon.ICO'); > >=20 > > my $SysTray =3D $W->AddNotifyIcon(-name =3D> > "SysTray",=20 > > -id =3D> 1,=20 > > -icon =3D> $SysTrayICON,=20 > > -tip =3D> "UPTIME!", > > ); > >=20 > >=20 > > $W->Show(); > >=20 > > Win32::GUI::Dialog(0); > >=20 > > } > >=20 > > sub Window_Terminate { > > return -1; > > } > >=20 > > sub Close_Click { > >=20 > > Window_Terminate(); > > } > >=20 > > sub Update_Click { > >=20 > > =20 > > } > >=20 > > __END__ > >=20 > >=20 > >=20 > > > ------------------------------------------------------- > > This SF.Net email is sponsored by: NEC IT Guy > Games. > > Get your fingers limbered up and give it your best > > shot. 4 great events, 4 > > opportunities to win big! Highest score wins.NEC > IT > > Guy Games. Play to > > win an NEC 61 plasma display. Visit > > http://www.necitguy.com/?r=20 > > _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Per...@li... > > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > >=20 >=20 >=20 ------------------------------------------------------- This SF.Net email is sponsored by: NEC IT Guy Games. Get your fingers limbered up and give it your best shot. 4 great events, 4 opportunities to win big! Highest score wins.NEC IT Guy Games. Play to win an NEC 61 plasma display. Visit http://www.necitguy.com/?r=3D20 _______________________________________________ Perl-Win32-GUI-Users mailing list Per...@li... https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users |