Re: [perl-win32-gui-users] General Perl Text Extraction doubt
I agree. I have written some HTML parsers in the past (probably could be written better) for pulling definitions from the web, and for getting quick stock information on various stock symbols. This saves me from having to open a web browser, go to the site, enter the text I am searching for, and wait for the response. Since the sites I have chosen have a number of graphics the wait time increases slightly. These command line and GUI perl scripts are convenient. The time it takes to figure out how to parse the data isn't too bad so I would recommend a unique hack per site as Jez has. Also, like Jez stated, a very good source for general perl questions not related to the Win32::GUI module is http://www.perlmonks.org. There is a wealth of information and help there. Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755 At 1/8/2004 05:49 PM, Jez White wrote: Hi, As a basic reply: coming up with a generic HTML parser for the kind of thing your doing will be difficult. You may find it quicker (in terms of development time) to do a custom hack for every website you'll be looking at. Other perl sites/lists would be able to help you better, a good place to start would be www.perlmonks.net. Saying that there might be an online database for the kind of information you are looking for ( I'd be surprised if there isn't). For what it's worth, you've probably chosen the correct language - but there will be a learning curve - it wont be easy:) cheers, jez. Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755
Re: [perl-win32-gui-users] Progress bar's [coloring]
At 12/1/2003 10:15 AM, Chris wrote:
Okay, I need to know how I can specify a custom color for a progress bar,
so it can be red or blue, depending on the status of my application. Ive
tried to do it by changing the fill and color commands and have had no
luck, if anyone knows anything about how to do this please help, Ive spent
4 hours trying to figure it out now.
Chris and others,
I have been wanting to do this forever myself but never was able to ...
until today!!!
I figured out a way to do it and its rather simple. You need to use
SendMessage though but it works.
Here is the answer:
$result = SendMessage($hWndControl, PBM_SETBARCOLOR, 0, $color);
To make my ProgressBar red I used the following:
Win32::GUI::SendMessage($Progress, 0x400 + 9, 0, hex('FF'));
I hope this helps.
Jonathan
Jonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College
Meadville, PA 16335
(814) 332-2755
Re: [perl-win32-gui-users] Progress bar's [coloring]
At 12/2/2003 01:27 AM, Steve Pick wrote:
Oh dear. I tried so much to get this to work, mucking about with classes and
stuff and I couldn't figure out how. Best way I found is to paint your own
damn rectangle using a Graphic object :) I realise that's not ideal, but
it's the best solution I've got i'm afraid. I'd be interested as well if
anyone can enlighten me on how to do coloured progress bars.
Steve
Steve and others,
I have been wanting to do this forever myself but never was able to ...
until today!!!
I figured out a way to do it and its rather simple. You need to use
SendMessage though but it works.
Here is the answer:
$result = SendMessage($hWndControl, PBM_SETBARCOLOR, 0, $color);
To make my ProgressBar red I used the following:
Win32::GUI::SendMessage($Progress, 0x400 + 9, 0, hex('FF'));
I hope this helps.
Jonathan
Jonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College
Meadville, PA 16335
(814) 332-2755
[perl-win32-gui-users] need help with Graphic
I have a Graphic object that I am plotting data on. While the cursor is on this object I have a cross-hairs cursor. What I would like to do is extend lines from the cursor position to the edges of the graph (the perimeter) but not have them overwrite what is plotted there and as I move the cursor around the lines move accordingly. It would be the same effect as using a selection tool in any common paint program. I know how to track the current mouse position and i know the values for the boundaries of the graph; I just don't know how to produce the effect I am wanting. Has anyone ever accomplished this? Does anyone know HOW to do it? Any help would be greatly appreciated. Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755
Re: [perl-win32-gui-users] need help with Graphic
What I do is plot (x,y) the data points that I am graphing and connecting the points so that I have a line graph. Since I am plotting two series of data I have two different colored graphs. Jonathan At 12/22/2003 06:34 PM, you wrote: At 17:37 2003-12-22, Jonathan Southwick wrote: I have a Graphic object that I am plotting data on. While the cursor is on this object I have a How do you do this? Do you paint the entire area in the Graphic control's _Paint event? /J -- --- -- -- -- -- - - - Johan LindströmSourcerer @ Boss Casinos [EMAIL PROTECTED] Latest bookmark: Lexa.McKenna.Edu OpenSSH for Windows http://lexa.mckenna.edu/sshwindows/ dmoz: ...uters/Security/Products_and_Tools/Cryptography/ 24 --- This SF.net email is sponsored by: IBM Linux Tutorials. Become an expert in LINUX or just sharpen your skills. Sign up for IBM's Free Linux Tutorials. Learn everything from the bash shell to sys admin. Click now! http://ads.osdn.com/?ad_id78alloc_id371opÌk ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755
Re: [perl-win32-gui-users] Change menu text
Thanks, that worked. One question though, just because I am curious:
What does the 'x26' do?
Jonathan
At 11/13/2003 03:52 PM, Glenn Linderman wrote:
On approximately 11/13/2003 1:20 PM, came the following characters from
the keyboard of Jonathan Southwick:
Is it possible to change the text on a menu? I want to change a menu
item from Refresh workgroups to Refresh clients depending on what
view they are currently at. I am already keeping track of the view I
just need to change the menu text.
$m_config-{'sGetDataDir'}-Change( -text =
\x26reset data directory ($datadir) );
Your menu object will be different than mine ($m_config), and your menu
item will be different than mine (sGetDataDir), and the text you want to
display will be different than mine (\x26reset data directory
($datadir), but this should give you the idea.
--
Glenn -- http://nevcal.com/
===
Like almost everyone, I receive a lot of spam every day, much of it
offering to help me get out of debt or get rich quick. It's ridiculous.
-- Bill Gates
---
This SF.Net email sponsored by: ApacheCon 2003,
16-19 November in Las Vegas. Learn firsthand the latest
developments in Apache, PHP, Perl, XML, Java, MySQL,
WebDAV, and more! http://www.apachecon.com/
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Jonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College
Meadville, PA 16335
(814) 332-2755
[perl-win32-gui-users] Change menu text
Is it possible to change the text on a menu? I want to change a menu item from Refresh workgroups to Refresh clients depending on what view they are currently at. I am already keeping track of the view I just need to change the menu text. Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755
Re: [perl-win32-gui-users] How do you deselect all currently selected items from a listview?
Here is how I do it in one of my programs: $MainWindow-Recipients-Clear(); Where Recipients is the name of my listbox. Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755 At 7/22/2003 09:44 AM, Magnone, Angelo wrote: How do you deselect all currently selected items from a listview? This e-mail may be privileged and/or confidential, and the sender does not waive any related rights and obligations. Any distribution, use or copying of this e-mail or the information it contains by other than an intended recipient is unauthorized. If you received this e-mail in error, please advise me (by return e-mail or otherwise) immediately. Ce courrier électronique est confidentiel et protégé. L'expéditeur ne renonce pas aux droits et obligations qui s'y rapportent. Toute diffusion, utilisation ou copie de ce message ou des renseignements qu'il contient par une personne autre que le (les) destinataire(s) désigné(s) est interdite. Si vous recevez ce courrier électronique par erreur, veuillez m'en aviser immédiatement, par retour de courrier électronique ou par un autre moyen. ===
Re: [perl-win32-gui-users] How do you deselect all currently selected items from a listview?
Here is how I do it in one of my programs: $MainWindow-Recipients-Clear(); Where Recipients is the name of my listbox. Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755 At 7/22/2003 09:44 AM, Magnone, Angelo wrote: How do you deselect all currently selected items from a listview? This e-mail may be privileged and/or confidential, and the sender does not waive any related rights and obligations. Any distribution, use or copying of this e-mail or the information it contains by other than an intended recipient is unauthorized. If you received this e-mail in error, please advise me (by return e-mail or otherwise) immediately. Ce courrier électronique est confidentiel et protégé. L'expéditeur ne renonce pas aux droits et obligations qui s'y rapportent. Toute diffusion, utilisation ou copie de ce message ou des renseignements qu'il contient par une personne autre que le (les) destinataire(s) désigné(s) est interdite. Si vous recevez ce courrier électronique par erreur, veuillez m'en aviser immédiatement, par retour de courrier électronique ou par un autre moyen. ===
RE: [perl-win32-gui-users] GUI no longer works
Trevor, Thank you! That did the trick. All scripts are working fine now. Jonathan At 4/2/2003 01:02 PM, Garside, Trevor wrote: I have found that Win32::GUI under Perl 5.8 will crash unless you name *every* widget you create. That may be your problem. Trevor S Garside [EMAIL PROTECTED] (800) 648-8617 x1540 -Original Message- From: Jonathan Southwick [mailto:[EMAIL PROTECTED] Sent: Wednesday, April 02, 2003 11:57 AM To: perl-win32-gui-users@lists.sourceforge.net Subject: [perl-win32-gui-users] GUI no longer works I hope someone here can help. We have installed ActiveState Perl (5.8.0.805) on a Windows 2000 machine under the Program Files directory. Then we did a PPM install of Win32::GUI (0.0.558). Perl scripts that do not use the GUI module work fine but if we attempt to run any script that uses the GUI module we get an error perl.exe has generated errors . These scripts work fine using ActiveState Perl (5.6.0.623) installed on a Windows 2000 machine under root (C:\) directory. The Win32::GUI version for this machine is 0.0.502. Anyone else have a similar problem and get it resolved or does anyone know what needs to be done to get it to work? Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755
[perl-win32-gui-users] GUI no longer works
I hope someone here can help. We have installed ActiveState Perl (5.8.0.805) on a Windows 2000 machine under the Program Files directory. Then we did a PPM install of Win32::GUI (0.0.558). Perl scripts that do not use the GUI module work fine but if we attempt to run any script that uses the GUI module we get an error perl.exe has generated errors . These scripts work fine using ActiveState Perl (5.6.0.623) installed on a Windows 2000 machine under root (C:\) directory. The Win32::GUI version for this machine is 0.0.502. Anyone else have a similar problem and get it resolved or does anyone know what needs to be done to get it to work? Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755
RE: [perl-win32-gui-users] GUI no longer works
Thanks for the suggestion. I will check it out and let you know what I find out. Jonathan At 4/2/2003 01:02 PM, Garside, Trevor wrote: I have found that Win32::GUI under Perl 5.8 will crash unless you name *every* widget you create. That may be your problem. Trevor S Garside [EMAIL PROTECTED] (800) 648-8617 x1540 -Original Message- From: Jonathan Southwick [mailto:[EMAIL PROTECTED] Sent: Wednesday, April 02, 2003 11:57 AM To: perl-win32-gui-users@lists.sourceforge.net Subject: [perl-win32-gui-users] GUI no longer works I hope someone here can help. We have installed ActiveState Perl (5.8.0.805) on a Windows 2000 machine under the Program Files directory. Then we did a PPM install of Win32::GUI (0.0.558). Perl scripts that do not use the GUI module work fine but if we attempt to run any script that uses the GUI module we get an error perl.exe has generated errors . These scripts work fine using ActiveState Perl (5.6.0.623) installed on a Windows 2000 machine under root (C:\) directory. The Win32::GUI version for this machine is 0.0.502. Anyone else have a similar problem and get it resolved or does anyone know what needs to be done to get it to work? Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755
Re: [perl-win32-gui-users] Convert DEC RGB to HEX
If you know your hexadecimal to decimal conversions, and decimal to hexadecimal, it's easy: To begin we need to undertsand that #00FF00 separates to: HexcolorDec ======= 00 red 0 FF green255 00 blue 0 we get 255 because the characters 0 - 9 and A - F are used in hexidecimal notation. The numbers 0 - 9 in hexadecimal represent their correspnding values in decimal. The letters A - F in hexadecimal represent the numbers 10 - 15 in decimal respectively. The units in hexadecimal are base 16 so starting at the right and working toward the left you have 1's (16 raised to the power of 0; i.e. 16^0), 16's (16 raised to the power of 1; 16^1), 256's (16 raised to the power of 2; 16^2), 4096 (16 raised to the power of 4; 16^4), etc. for hexidecimal just as in decimal it is (starting from the right) 1's (10^0), 10's (10^1), 100's (10^2), 1000's (10^3), etc. Therefore FF in hexidecimal is (15 * 1) + (15*16) = 255 in decimal. Using this idea you do the same thing for converting the decimal number 65280 into the hexadecimal representation but work backwards. Also instead of working in base 16 you are working in base 256 with each pair of hexadecimal numbers. Also you are working from left to right. The red column is 1's (256^0), the green column is 256's (256^1), and the blue column is 25536's (256^2). In your example 00 (red) in hex is 0 in decimal so we have (0 * 1 = 0), next you have FF (green) in hex is 255 in decimal so we have (256 * 255 = 65280), and finally 00 (blue) in hex is 0 in decimal so we have (0 * 65536 = 0). Putting this altogether you have 0 + 65280 + 0 = 65280. Of course you wanted to know how to convert the other way. This is just as easy. You just work with the opposite idea. You had 65280 so you divide by the highest possible power which is 65536, the result is 0.99609375, the integer portion is 0 so we know we have 0 for the blue column, then you subtract the inter value you receive (in this case 0) and we are still left with 0.99609375, which we multiply by the next highest power (256) and we get 255 for our green column, then you subtract the integer value from the result (255 - 255 = 0), and the result is the red columns value. Of course all the values you get are in decimal so you will need to convert these smaller values into their hexadecimal equivalents: 0 - 0, 255 - FF, 0 - 0 and join these values together: 00FF00. It's pretty simple if you understand powers and bases. If you want I could write a little script that would do the conversion for you but I thought I would explain how the result is achieved so that you can understand it better. This whole description might be a little confusing so if anyone can explain it better or has an easier way to do the conversion please go ahead and post it. Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755 At 3/10/2003 03:56 AM, you wrote: From the win32 gui example colors.gpl $color = GUI::ChooseColor(-owner = $w); Any idea how I can convert the decimal RGB value, $color to the HTML HEX format ? ie: selecting the colour green returns 65280 How do I convert this to the HTML HEX value: #00FF00 ? Thanks! Do you Yahoo!? http://rd.yahoo.com/finance/mailtagline/*http://taxes.yahoo.com/Yahoo! Tax Center - forms, calculators, tips, and more
Re: [perl-win32-gui-users] Convert DEC RGB to HEX
Oops. I meant 16 raised to the power of 3 for 4096 NOT 16^4 ... sorry for any confusion. Also one other mistake I made: When subtracting the integer portion of the green column you are not left with the value of the red cilumn, you still need to multiply by 256. I think those are my only mistakes ... [I hope!]. Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755 At 3/10/2003 09:24 AM, you wrote: If you know your hexadecimal to decimal conversions, and decimal to hexadecimal, it's easy: To begin we need to undertsand that #00FF00 separates to: HexcolorDec ======= 00 red 0 FF green255 00 blue 0 we get 255 because the characters 0 - 9 and A - F are used in hexidecimal notation. The numbers 0 - 9 in hexadecimal represent their correspnding values in decimal. The letters A - F in hexadecimal represent the numbers 10 - 15 in decimal respectively. The units in hexadecimal are base 16 so starting at the right and working toward the left you have 1's (16 raised to the power of 0; i.e. 16^0), 16's (16 raised to the power of 1; 16^1), 256's (16 raised to the power of 2; 16^2), 4096 (16 raised to the power of 4; 16^4), etc. for hexidecimal just as in decimal it is (starting from the right) 1's (10^0), 10's (10^1), 100's (10^2), 1000's (10^3), etc. Therefore FF in hexidecimal is (15 * 1) + (15*16) = 255 in decimal. Using this idea you do the same thing for converting the decimal number 65280 into the hexadecimal representation but work backwards. Also instead of working in base 16 you are working in base 256 with each pair of hexadecimal numbers. Also you are working from left to right. The red column is 1's (256^0), the green column is 256's (256^1), and the blue column is 25536's (256^2). In your example 00 (red) in hex is 0 in decimal so we have (0 * 1 = 0), next you have FF (green) in hex is 255 in decimal so we have (256 * 255 = 65280), and finally 00 (blue) in hex is 0 in decimal so we have (0 * 65536 = 0). Putting this altogether you have 0 + 65280 + 0 = 65280. Of course you wanted to know how to convert the other way. This is just as easy. You just work with the opposite idea. You had 65280 so you divide by the highest possible power which is 65536, the result is 0.99609375, the integer portion is 0 so we know we have 0 for the blue column, then you subtract the inter value you receive (in this case 0) and we are still left with 0.99609375, which we multiply by the next highest power (256) and we get 255 for our green column, then you subtract the integer value from the result (255 - 255 = 0), and the result is the red columns value. Of course all the values you get are in decimal so you will need to convert these smaller values into their hexadecimal equivalents: 0 - 0, 255 - FF, 0 - 0 and join these values together: 00FF00. It's pretty simple if you understand powers and bases. If you want I could write a little script that would do the conversion for you but I thought I would explain how the result is achieved so that you can understand it better. This whole description might be a little confusing so if anyone can explain it better or has an easier way to do the conversion please go ahead and post it. Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College Meadville, PA 16335 (814) 332-2755 At 3/10/2003 03:56 AM, you wrote: From the win32 gui example colors.gpl $color = GUI::ChooseColor(-owner = $w); Any idea how I can convert the decimal RGB value, $color to the HTML HEX format ? ie: selecting the colour green returns 65280 How do I convert this to the HTML HEX value: #00FF00 ? Thanks! Do you Yahoo!? http://rd.yahoo.com/finance/mailtagline/*http://taxes.yahoo.com/Yahoo! Tax Center - forms, calculators, tips, and more
Re: [perl-win32-gui-users] Newbie Win32::GUI Question
Your problem is the lowercase 't' ... You could do what John Rogers
suggested or change your line in the Button_1_Click subroutiine to
$txt1-Text(recording..);
Jonathan
--
Jonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755
At 1/23/2003 09:24 PM, Jeff Slutzky wrote:
I have created a window with 4 buttons, 2 labels, 2 text fields, and a
status bar. In the Button_1 click event I try to write to the txt field
and get the following error: Can't locate
auto/Win32/GUI/Textfield/text.al in @INC (@INC contains; C:/Perl/lib
C:/Perl/site/lib .) at C:\Perl\Perlscripts\Sound Recorder\soundrecorder.pl
line 107
Can anyone tell me what and why I get this error?
Ultimately, I want to be able to write to a Status bar for each button
event. I have a beefier application that calls Win32::API calls and want
to make sure that the calls are also made in the correct space. So,
obviously I'm a newbie and need some help.
use Win32::GUI;
$Win = new Win32::GUI::DialogBox(
-left = 284,
-top= 466,
-width = 334,
-height = 238,
-name = Win,
-text = sound recorder
);
$Win-AddButton(
-text= Record,
-name= Button_1,
-left= 15,
-top = 19,
-width = 46,
-height = 21,
-foreground= 16711680,
);
$sb1 = $Win-AddStatusBar(
-text= inactive...,
-name= StatusBar_1,
-left= 0,
-top = 193,
-width = 324,
-height = 17,
);
$Win-AddButton(
-text= Play,
-name= Button_2,
-left= 84,
-top = 19,
-width = 35,
-height = 21,
-foreground= 16711680,
);
$Win-AddButton(
-text= Stop,
-name= Button_3,
-left= 143,
-top = 20,
-width = 36,
-height = 21,
-foreground= 16711680,
);
$Win-AddButton(
-text= Save,
-name= Button_4,
-left= 203,
-top = 20,
-width = 41,
-height = 21,
-foreground= 16711680,
);
$Win-AddTextfield(
-text= ,
-name= userid,
-left= 126,
-top = 89,
-width = 95,
-height = 20,
);
$txt1 = $Win-AddTextfield(
-text= ,
-name= campaign,
-left= 126,
-top = 119,
-width = 95,
-height = 20,
);
$Win-AddLabel(
-text= userid,
-name= Label_1,
-left= 86,
-top = 90,
-width = 28,
-height = 13,
-foreground= 0,
);
$Win-AddLabel(
-text= campaign,
-name= Label_2,
-left= 69,
-top = 120,
-width = 46,
-height = 13,
-foreground= 0,
);
$Win-Show();
Win32::GUI::Dialog();
sub Button_1_Click {
print test\n;
$txt1-text(recording..);
}
sub Win_Terminate {
return -1;
}
Jeff Slutzky
---
This SF.NET email is sponsored by:
SourceForge Enterprise Edition + IBM + LinuxWorld = Something 2 See!
http://www.vasoftware.com
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
[perl-win32-gui-users] Timers (cont)
Here is some output that gets written within the Timer event when it is fired: It is now 08:41:24 Update in 18:36 in Update Data killing timer after 108 seconds setting new timer for every hour updated data here at 09:00:00 in Update Data updated data here at 10:00:00 in Update Data updated data here at 11:00:00 in Update Data updated data here at 12:00:00 in Update Data updated data here at 13:00:00 in Update Data updated data here at 14:00:00 in Update Data updated data here at 15:00:00 in Update Data updated data here at 16:00:00 in Update Data updated data here at 17:00:00 in Update Data updated data here at 18:00:00 in Update Data updated data here at 19:00:00 in Update Data updated data here at 20:00:00 in Update Data updated data here at 21:00:00 in Update Data updated data here at 22:00:00 in Update Data updated data here at 23:00:00 in Update Data updated data here at 00:00:00 in Update Data updated data here at 01:00:00 in Update Data updated data here at 02:00:00 in Update Data updated data here at 03:00:00 in Update Data updated data here at 04:00:00 in Update Data updated data here at 04:59:55 in Update Data updated data here at 05:59:55 in Update Data updated data here at 06:59:55 in Update Data updated data here at 07:59:55 in Update Data ^C ## a new run of the program ## It is now 13:53:05 Update in 6:55 in Update Data killing timer after 36 seconds setting new timer for every hour updated data here at 14:00:00 in Update Data updated data here at 15:00:00 in Update Data updated data here at 16:00:00 in Update Data updated data here at 17:00:00 in Update Data updated data here at 18:00:00 in Update Data updated data here at 19:00:00 in Update Data updated data here at 20:00:00 in Update Data updated data here at 21:00:00 in Update Data updated data here at 22:00:00 in Update Data updated data here at 23:00:00 in Update Data updated data here at 00:00:00 in Update Data updated data here at 00:59:55 in Update Data updated data here at 01:59:55 in Update Data updated data here at 02:59:55 in Update Data updated data here at 03:59:55 ^C ## a new run of the program ## It is now 08:24:56 Update in 35:4 in Update Data killing timer after 210 seconds setting new timer for every hour updated data here at 09:00:00 in Update Data updated data here at 10:00:01 in Update Data updated data here at 11:00:01 in Update Data updated data here at 12:00:01 in Update Data updated data here at 13:00:01 in Update Data updated data here at 14:00:01 in Update Data updated data here at 15:00:01 in Update Data updated data here at 16:00:01 in Update Data updated data here at 17:00:01 in Update Data updated data here at 18:00:01 in Update Data updated data here at 19:00:01 in Update Data updated data here at 20:00:01 in Update Data updated data here at 20:59:56 in Update Data updated data here at 21:59:56 in Update Data updated data here at 22:59:56 in Update Data updated data here at 23:59:56 ^C I don't know if this helps explain what I am talking about. Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755
RE: [perl-win32-gui-users] Timers
There are other events that usually get triggered but they do not get triggered during this test I am doing because the application is sitting on the taskbar while all this is happening. Jonathan At 1/16/2003 12:55 PM, Peter Eisengrein wrote: Does it do anything else besides use the timers to trigger events? I'm wondering if it gets hung up somewhere else in the code that you can maybe add a DoEvents() or Update() -Original Message- From: Jonathan Southwick [mailto:[EMAIL PROTECTED] Sent: Thursday, January 16, 2003 12:28 PM To: perl-win32-gui-users@lists.sourceforge.net Subject: [perl-win32-gui-users] Timers I have some code that uses the Timer object but it doesn't always work correctly. My code grabs the time when the program is run and determines how many minutes and seconds are left until the next hour. A timer event is fired on the hour that kills the current timer and creates a new timer that fires an event every hour. It works for a few hours and then all of the sudden it is off by 5 seconds or so. It doesn't seem to be consistent either. Sometimes it will work correctly for 16 hours or so and then the timing is off and sometimes it works for only one hour and then the timing is off. Does anyone know why this happens? Can it be fixed? Jonathan Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 --- This SF.NET email is sponsored by: Thawte.com Understand how to protect your customers personal information by implementing SSL on your Apache Web Server. Click here to get our FREE Thawte Apache Guide: http://ads.sourceforge.net/cgi-bin/redirect.pl?thaw0029en ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] Re: Perl-Win32-GUI-Users digest, Vol 1 #518 - mousemove
That worked. Thanks Alan.
Jonathan
At 11/22/2002 10:46 PM, you wrote:
Try playing about with the following (it won't work in version
.665 - and don't ask me how/why it works in .558!). I use it to draw
rectangles for widgets in a primitive but quite useful gui designer
that makes Perl do much of the work we all lo-o-o-ove to do manually.
vPerl it ain't, however! You may want to use $tracker-Hide() to hide
the button until tracking is needed, when $tracker-Show() will roll
down the blind and let you follow the mouse pointer around.
$bclass = new Win32::GUI::Class( # reveals _MouseMove events from button
-name = bclass,
-extends = 'Button',
-widget = Button,
);
# make an invisible button that covers the area of your graphic
# $x/$y/$w/$h are left/top/width/height of the graphic
$tracker = $mainwin-AddButton (
-name, 'tracker',
-class, 'bclass',
-left, $x,
-top, $y,
-width, $w,
-height, $h,
-pushstyle, 11 | 0x800 , # this makes an invisible button
);
sub tracker_MouseMove {
my($mmx, $mmy) = Win32::GUI::GetCursorPos();
dostuff_with_coordinates();
}
sub tracker-Click {
do_some_stuff();
$tracker-Hide(); # roll it up until it is needed
}
This may also be of some use - I use it as part of a routine that
shifts a desktop planner display back and forth. There is no need for
subclassing, but I don't think it responds to _MouseMove.
# ($left, $top, $width, $height) = dimensions of your graphic object
$clicker = new GUI::Button (
-name, 'clicker',
-parent, $Win,
-left, $left,
-top, $top,
-width, $width,
-height, $height,
-pushstyle, 11,
);
sub clicker_Click {
my($mmx, $mmy) = Win32::GUI::GetCursorPos();
dostuff_with_coordinates();
}
(Aldo, pretty please give us access to the message loop next time
round!)
Virlin
[perl-win32-gui-users] ChooseColor()
I was looking on an API reference site for information on saving the Custom
Colors in the ChooseColor dialog. It appears it is only returning a single
value. When I use ChooseColor I initalize it with the current
color. $getcolor is what is returned (what I choose from the dialog
box). I would like to be able to store any custom colors that are
defined. Is there a way to do this? I couldn't figure it out form the API
reference. Here is my code:
sub BarPlotColor_Click {
my ($getcolor) = $MainWindow-ChooseColor(-color = $pcolorBar);
if ($getcolor) {
$pcolorBar = $getcolor;
}
GraphWork_Paint;
return;
}
Also, the dialog box always is placed at (0,0). Can this be changed?
Jonathan
[perl-win32-gui-users] GetDC
Where can I get information on how to use this? I am able to draw lines (axes and ticks for a graph) and I know how to plot individual points on the graph but I am wondering if there is more? (I don't mean circles and boxes.) Can the DC object be cleared (other than placing another window over it and removing the window)? I still haven't figured out how to handle keep what I have drawn to the object there when another window covers it. Johan Lindstrom posted some information but it went (making motion of flat hand over head from front to back). Any clues? Jonathan
[perl-win32-gui-users] Unselect a selected item in a listview
I know you can force a selection in a listview with $MainWindow-Listview-Select($idx). I thought issuing the command again would force an unselection but it doesn't. Does anyone know how to force an item in a listview to be unselected once it has bee selected? Jonathan
[perl-win32-gui-users] ListView question
I know I can select items based on their index with $MainWindow-Listview-Select($index) but how do I unselect it (without clicking on it)? Jonathan
[perl-win32-gui-users] another menu question
I am now able to create a menu based on text in a file thanks to Aldo's help. Now that the menu items have been added, is there a way to modify the menu? Here is what my program does. It allows a user running Windows 2000 or NT to send a message to every computer running Windows 2000 or NT in a network environment (based on workgroup names). I want the user to be able to add a list of message shortcuts to a menu. For instance... Shortcut name Message GODZILLAGodzilla has been sighted downtown, run for your lives! THUNDERSTORMThere is a severe thunderstorm watch. TORNADO There is a tornado on its way! Anyway, the Message shortcuts are stored (sorted) in a Message menu. When they click on the message shortcut the text of the message is placed in a message box for them. That part all works. The user is able to add their own message shortcuts to the menu but they don't appear there until the program is restarted because the .ini file is read when the program runs. Is there a way to automatically add these shortcuts to the menu without having to restart the program? Any help would be appreciated. Jonathan
RE: [perl-win32-gui-users] another menu question
The results are already stored to the ini file so that when they run the script the next time they will have the menu items available to them. The ini file is read in and the 'Message' section of the menu is created on startup of the script. I want them to be able to access the menu items without having to restart the script. Is it possible to do this? Jonathan At 6/19/2002 09:35 AM, you wrote: Depends on what you want to happen. Do you want their changes to be saved to the .ini file or should the changes only last for that session. My suggestion is that you localize the building of the menu after they've made their edit (maybe a button event?) and store the shortcut/description relationship in a hash and write (or don't write) it to the .ini after the edit. Another way to do it would be the brute force method, where they make the changes, save to .ini, and then restart the script (exec script.pl).
RE: [perl-win32-gui-users] another menu question
I meant I want them to be able to access the NEW menu items without restarting the script. Jonathan At 6/19/2002 09:59 AM, you wrote: The results are already stored to the ini file so that when they run the script the next time they will have the menu items available to them. The ini file is read in and the 'Message' section of the menu is created on startup of the script. I want them to be able to access the menu items without having to restart the script. Is it possible to do this? Jonathan At 6/19/2002 09:35 AM, you wrote: Depends on what you want to happen. Do you want their changes to be saved to the .ini file or should the changes only last for that session. My suggestion is that you localize the building of the menu after they've made their edit (maybe a button event?) and store the shortcut/description relationship in a hash and write (or don't write) it to the .ini after the edit. Another way to do it would be the brute force method, where they make the changes, save to .ini, and then restart the script (exec script.pl).
RE: [perl-win32-gui-users] another menu question
Pete,
Yes! Thank you! I didn't realize it would be that easy.
Thanks,
Jonathan
At 6/19/2002 12:31 PM, you wrote:
Try this... is this what you mean?
-Pete
##
#!perl -w
use Win32::GUI;
use strict;
my $counter=1;
my $Menu = new Win32::GUI::Menu(
File = File,
Counter $counter... = Counter,
);
my $MW = new Win32::GUI::Window(
-title = 'menu.pl',
-left= 100,
-top = 100,
-width = 150,
-height = 100,
-name= 'MainWindow',
-visible = 1,
-menu= $Menu,
);
$MW-AddButton(
-text= 'change menu',
-name= 'menu',
-left= 25,
-top = 25,
);
Win32::GUI::Dialog();
sub MainWindow_Terminate
{
return -1;
}
sub menu_Click
{
counteradd();
}
sub Counter_Click
{
counteradd();
}
sub counteradd
{
$counter++;
print DEBUG: counter = $counter\n;
my $Menu = new Win32::GUI::Menu(
File = File,
Counter $counter... = Counter,
);
$MW-Change(-menu = $Menu);
}
### END
-Original Message-
From: Jonathan Southwick
[mailto:[EMAIL PROTECTED]mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 19, 2002 10:04
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] another menu question
I meant I want them to be able to access the NEW menu items without
restarting the script.
Jonathan
At 6/19/2002 09:59 AM, you wrote:
The results are already stored to the ini file so that when they run the
script the next time they will have the menu items available to them. The
ini file is read in and the 'Message' section of the menu is created on
startup of the script.
I want them to be able to access the menu items without having to restart
the script. Is it possible to do this?
Jonathan
At 6/19/2002 09:35 AM, you wrote:
Depends on what you want to happen. Do you want their changes to be saved
to the .ini file or should the changes only last for that session. My
suggestion is that you localize the building of the menu after they've
made their edit (maybe a button event?) and store the shortcut/description
relationship in a hash and write (or don't write) it to the .ini after the
edit.
Another way to do it would be the brute force method, where they make the
changes, save to .ini, and then restart the script (exec script.pl).
Jonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755
[perl-win32-gui-users] Creating menu's on-the-fly
I have a file that contains some information that is used to create a menu,
almost like a Recently Opened Files list. I tried using the code from the
podview,pl sample but it is not working for me. Can anyone see anything I
am doing wrong?
# define main menu
my $MainMenu = new Win32::GUI::Menu(
File = File,
Exit = FileExit,
Message = Message,
Add New = AddMessage,
Edit = EditMessage,
Delete = DeleteMessage,
- = 0,
@MENUDEF,
Tools = Tools,
Setup = Setup,
- = 0,
Change Password = ChangePassword,
Help = Help,
About = About,
);
### I call this routine *before* I create my menu.
sub getMessageList {
### stuff deleted, this section just read in the file and created the has
### now I want to use the values in the hash for my menu.
@MENUDEF = ();
foreach $key (keys (%MESSAGE)) {
print $key is text: $MESSAGE{$key}\n; ## this is only for testing
purposes to make
## sure I have the right
information
push(@MENUDEF, $key);
push(@MENUDEF,Menu$key);
$subname = Menu${key}_Click;
*$subname = eval(qq(
sub {
print got a click\n; ## this is for testing, but
I don't get a click
$MainWindow-Message-Text($MESSAGE{$key});
return;
}
));
}
return;
}
Jonathan
Fwd: Re: [perl-win32-gui-users] Creating menu's on-the-fly
From: Aldo Calpini [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net,
Jonathan Southwick [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui-users] Creating menu's on-the-fly
Date: Tue, 18 Jun 2002 17:35:23 +0200
X-Mailer: Microsoft Outlook Express 5.50.4807.1700
Jonathan Southwick wrote:
I have a file that contains some information that is used to create a
menu,
almost like a Recently Opened Files list. I tried using the code from the
podview,pl sample but it is not working for me. Can anyone see anything I
am doing wrong?
[...]
*$subname = eval(qq(
sub {
print got a click\n; ## this is for testing, but
I don't get a click
$MainWindow-Message-Text($MESSAGE{$key});
return;
}
));
if you're using qq() to quote the sub, you need to escape sigils:
\$MainWindow-Message-Text(\$MESSAGE{\$key});
NOTE: please forward this msg to the mailing list, because SourceForge
is refusing to receive mail from me :-(
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
Jonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755
Re: [perl-win32-gui-users] Creating menu's on-the-fly
Thanks Aldo. It works now.
Jonathan
At 6/18/2002 05:35 PM, you wrote:
Jonathan Southwick wrote:
I have a file that contains some information that is used to create a
menu,
almost like a Recently Opened Files list. I tried using the code from the
podview,pl sample but it is not working for me. Can anyone see anything I
am doing wrong?
[...]
*$subname = eval(qq(
sub {
print got a click\n; ## this is for testing, but
I don't get a click
$MainWindow-Message-Text($MESSAGE{$key});
return;
}
));
if you're using qq() to quote the sub, you need to escape sigils:
\$MainWindow-Message-Text(\$MESSAGE{\$key});
NOTE: please forward this msg to the mailing list, because SourceForge
is refusing to receive mail from me :-(
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
Re: [perl-win32-gui-users] Rich edit: formatted text lost when scrollled
What finally worked for me was to add:
## $MainWindow is the window that has my RichEdit control.
$MainWindow-InvalidateRect(0);
I hope this works for you as well.
Jonathan
At 6/6/2002 09:56 AM, Straub, Peter (Peter) wrote:
Hi all,
like other contributors to this list I experienced
refresh problems with rich edit controls (Win32-GUI 558).
Everything displays ok but when the contents is scolled,
especially some chars I add this way:
$wRichEdit-Select($iOffset, $iOffset+1);
$wRichEdit-ReplaceSel(chr(0x3A));
$hFormat{-color} = hex(FF);
$wRichEdit-Select($iOffset, $iOffset+1);
$wRichEdit-SetCharFormat(%hFormat);
I'm afraid I can not recover from this with the update
solution that has been suggested so far, at least I'm not
aware of any usable event to trigger it with.
Anything wrong with my code?
All Suggestions greatly appreciated. Thanks!
Peter
P.S.:
I already thought about migrating to 665, but then I
need subclassing to get mouse events from the rich edit
controls and this doesn't seem to work ... ?
___
Don't miss the 2002 Sprint PCS Application Developer's Conference
August 25-28 in Las Vegas -
http://devcon.sprintpcs.com/adp/index.cfm?source=osdntextlink
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
[perl-win32-gui-users] Re: Richedit: refresh problem
Sean, Thanks a million ... using $MainWindow-InvalidateRect(0); did the trick! Jonathan At 6/4/2002 05:40 AM, you wrote: The text gets to the last position in the richedit control fine but the whole control isn't refreshed properly. There are grey lines through the control and the vertical scroll bar doesn't display properly. If I minimize my window and then restore it then it displays properly. I suggest adding the following line to your update sub: $MainWindow-Results-InvalidateRect(0); This will force Windows to redraw the RichEdit. (I didn't test this on your code, but InvalidateRect has worked for me in the past.) You may need to use $MainWindow-InvalidateRect(0) - I seem to recall some problem in the past with InvalidateRect on child controls. (Of course, my memory could be faulty.)
[perl-win32-gui-users] Richedit: word wrap and still a refresh problem
I have a richedit control defined as follows:
# define Message richedit
$MainWindow-AddRichEdit(
-name = Message,
-top=125,
-left = 10,
-width = $MainWindow-ScaleWidth - 25,
-height = 65,
-tabstop = 1,
-addstyle= WS_CHILD | WS_VISIBLE | WS_VSCROLL | ES_LEFT |
ES_AUTOVSCROLL,
-addexstyle= WS_EX_CLIENTEDGE,
);
I want this control to word-wrap but it isn't. Do I need to add something
to one of the style options?
Also I had posted a message earlier about another richedit control needing
to be refreshed properly but it still isn't. Here is the control definition:
# define Results richedit
$MainWindow-AddRichEdit(
-name = Results,
-top= 215,
-left = 10,
-width = $MainWindow-ScaleWidth - 25,
-height = 65,
-addstyle= WS_CHILD | WS_VISIBLE | WS_VSCROLL | ES_LEFT | ES_AUTOVSCROLL
| ES_READONLY,
-addexstyle= WS_EX_CLIENTEDGE,
);
and here is the code that does the updating:
sub UpdateResults {
my ($text,$format) = @_;
$MainWindow-Results-SetCharFormat(@{$ResultsTextFormat{$format}});
$MainWindow-Results-Select(99,99);
$MainWindow-Results-ReplaceSel($text\n, 1);
select(undef, undef, undef, 0.25);
$MainWindow-Results-SendMessage(0x115, 1, 0) while $text =~ /\n|$/g;
Win32::GUI::PeekMessage(0,0,0);
Win32::GUI::DoEvents();
return;
}
The text gets to the last position in the richedit control fine but the
whole control isn't refreshed properly. There are grey lines through the
control and the vertical scroll bar doesn't display properly. If I
minimize my window and then restore it then it displays properly.
Jonathan
[perl-win32-gui-users] RichEdit update
I have a routine that updates my richedit control but while it is getting
updated the control does not refresh properly. Here is my code:
sub UpdateResults {
my ($text,$format) = @_;
$MainWindow-Results-SetCharFormat(@{$ResultsTextFormat{$format}});
$MainWindow-Results-Select(99,99); # this puts the cursor at
the end of the text
$MainWindow-Results-ReplaceSel($text, 1); # this replaces what's
there with what I want
$MainWindow-Results-Update();
$MainWindow-Update();
return;
}
Shouldn't this work?
Jonathan
Re: [perl-win32-gui-users] Sunken labels
Thanks. I never thought it could be that easy!. Jonthan At 5/21/2002 09:14 AM, Johan Lindstrom wrote: At 12:29 2002-05-20 -0400, Jonathan Southwick wrote: Is there a way to make labels appear sunken ... or any widget for that matter? Try adding this option when you create the label: -sunken = 1, /J -- --- -- -- -- -- - - - Johan LindströmSourcerer @ Boss Casinos [EMAIL PROTECTED] Latest bookmark: no tv http://use.perl.org/comments.pl?sid=4416cid=6621 dmoz (1 of 7): /Computers/Programming/Languages/Perl ___ Don't miss the 2002 Sprint PCS Application Developer's Conference August 25-28 in Las Vegas -- http://devcon.sprintpcs.com/adp/index.cfm ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] Installing win32-gui
I too had problems when I recently tried to install Win32::GUI onto my Win98 machine. The problem was that was either a problem with the outside routers or something on Aldo's site, but I doubt it was a problem with the latter. I discovered this by going directly to http://dada.perl.it in my web browser. When I did this I did not get Aldo's Perl Site but some Telecommunications site .. weird huh? I tried later by doing the following: ppm install --location=http://dada.perl.it/PPM Win32-GUI and it worked just fine I would recommend you first try to browse to the http://dada.perl.it site and see what you get. If you get Aldo's Perl site then try the ppm install I showed, otherwise you have bigger problems. Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 At 11/23/2001 02:32 PM, you wrote: I too am unable to install Win32::GUI. The error message I keep getting from PPM is: Error installing package 'Win32::GUI': Could not locate a PPD file for package Win32::GUI. I'm using WinNT 4.0, so my problem is unrelated to Windows 2000. Is the repository missing a PPD file? - Walt Joyce - Original Message - From: Marcus [EMAIL PROTECTED] To: perl-win32-gui-users@lists.sourceforge.net Sent: Friday, November 23, 2001 1:59 PM Subject: Re: [perl-win32-gui-users] Installing win32-gui The only conclusion I can come too is that ppm is broken under Windows 2000, is there a ppm mailing list that I can consult? Only the main ActiveState win32-perl-users list. I had difficulties with PPM too. You could try PPM3. It's beta, but it's a complete rewrite of PPM. You have to install it separately. It could also be that dada.it is down at the moment. Marcus
Re: [perl-win32-gui-users] ListView MultiSelect
Here is the way to get rif of multiple selections: in your ListView definition add: -singlesel= 1, Thanks to [EMAIL PROTECTED] for pointing this out. Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 At 11/15/2001 08:57 AM, you wrote: I should have tried it before I sent out the message because it doesn't seem to be working. Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 At 11/15/2001 08:36 AM, you wrote: At 11/14/2001 05:06 PM, you wrote: Is there a way to prevent a ListView in details mode from allowing the user to select more than one line? Add this to your ListView definition: -multisel = 0, Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 Thanks §Flame§
Re: [perl-win32-gui-users] ListView MultiSelect
At 11/14/2001 05:06 PM, you wrote: Is there a way to prevent a ListView in details mode from allowing the user to select more than one line? Add this to your ListView definition: -multisel = 0, Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 Thanks §Flame§ _ Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] ListView MultiSelect
I should have tried it before I sent out the message because it doesn't seem to be working. Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 At 11/15/2001 08:36 AM, you wrote: At 11/14/2001 05:06 PM, you wrote: Is there a way to prevent a ListView in details mode from allowing the user to select more than one line? Add this to your ListView definition: -multisel = 0, Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 Thanks §Flame§ _ Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
[perl-win32-gui-users] Bold and unbold in RichEdit
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 [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755
Re: [perl-win32-gui-users] Bold and unbold in RichEdit
Thanks a zillion Now I can have alternating colors instead producing a
better effect.
Jonathan Southwick
[EMAIL PROTECTED]
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 = 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 = 0x00, -bold = 1, @aFont],
2 = [-color = 0x00, -bold = 1, @aFont],
0 = [-color = 0x00, -bold = 0, @aFont],
);
my $rePOD = $self-winMain()-rePOD();
$rePOD-Select(99,99); #Stolen from the PM chatterbox
$rePOD-SetCharFormat(@{$hOn{$heading}});
$rePOD-ReplaceSel($line\n,1);
return(1);
}
/J
-- --- -- -- -- - - ---
Johan LindströmBoss Casinos
Sourcerer [EMAIL PROTECTED]
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
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
[perl-win32-gui-users] Wordwrap in RichEdit
I am copying text from a Textfield object and appending it to a RichEdit object when the user clicks on a button. The text is not wrapping though and I would like it to. my RichEdit object is defined as: $ChatBox = $GameWindow-AddRichEdit( -name= ChatBox, -left= 400, -top = 5, -width = 230, -height = 330, -disabled= 1, -addstyle= WS_CHILD | WS_VISIBLE | WS_VSCROLL | ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL | ES_READONLY | ES_WANTRETURN, -addexstyle= WS_EX_CLIENTEDGE, ); Am I doing something wrong here? Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755
Re: [perl-win32-gui-users] Default in Button Definition
Never mind I figured it out! I needed the:
$Window-{-dialogue} = 1;
Jonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755
At 11/8/2001 01:41 PM, Jonathan Southwick wrote:
Another problem I am having. I would like the user to press enter in a
Textfield object and append the results to a RichEdit object. I have done
this before but for some reason it is not working now. Here is my code:
$ChatBox = $GameWindow-AddRichEdit(
-name= ChatBox,
-left= 400,
-top = 5,
-width = 230,
-height = 330,
-disabled= 1,
-addstyle= WS_CHILD | WS_VISIBLE | WS_VSCROLL | ES_LEFT |
ES_MULTILINE | ES_AUTOVSCROLL | ES_READONLY | ES_WANTRETURN,
-addexstyle= WS_EX_CLIENTEDGE,
);
$ChatText = $GameWindow-AddTextfield(
-name = ChatText,
-top= 345,
-left = 400,
-width = 175,
-height = 25,
-disabled= 1,
-tabstop= 1,
);
$Send = $GameWindow-AddButton(
-name = SendText,
-text = Send,
-top= 345,
-left = 580,
-height = 25,
-width = 50,
-tabstop= 1,
-default= 1,
-ok = 1,
-disabled= 1,
);
and the subroutine for the button event:
sub SendText_Click {
if ($ChatText-Text() eq ) {
return;
}
my $OldText = $ChatBox-Text();
my $NewText = $ChatText-Text();
if ($OldText eq ) {
$ChatBox-Text($YourNick $NewText);
} else {
$ChatBox-Text($OldText\n$YourNick $NewText);
}
$ChatText-Text();
$ChatText-SetFocus();
return;
}
Am I doing something wrong?
Jonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
[perl-win32-gui-users] Putting cursor at end of RichEdit
ANOTHER thing I don't know how to do ... If a bunch of lines are copied into the RichEdit field and you get to the end the vertical scroll bar appears like it should but I would like what was last appended to be shown. Right now I have to manually scroll to the end of the RichEdit field. Is there a way to do this? Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755
Re: [perl-win32-gui-users] Putting cursor at end of RichEdit
I tried that and it does not scroll to the end of the RichEdit field, it just places the cursor there. I even tried to add a SetFocus and that doesn't help. Anyone else have any ideas? Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 At 11/8/2001 02:20 PM, you wrote: If a bunch of lines are copied into the RichEdit field and you get to the end the vertical scroll bar appears like it should but I would like what was last appended to be shown. Right now I have to manually scroll to the end of the RichEdit field. Is there a way to do this? Yup. Select the millionth line ($logbox, in this case, being the RichEdit). # select our last line. $logbox-Select(99,99); Concerning your wrapping problem - I'm not sure why you're not getting wrap. I use the exact same code in AmphetaDesk. See it here: http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/amphetadesk/ AmphetaDesk/lib/Windows.pl?rev=1.36content-type=text/vnd.viewcvs-markup On a side note, HWoOWOo, Sourceforge added happy blinking graphics to featured projects g: http://sourceforge.net/projects/amphetadesk -- Morbus Iff ( softcore vulcan porn rulez ) http://www.disobey.com/ http://www.gamegrene.com/ please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554 icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] Putting cursor at end of RichEdit
Thanks, that worked. Now to get the dumb word wrap to work. Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 At 11/8/2001 02:52 PM, you wrote: At 02:43 PM 11/8/01, Jonathan Southwick wrote: I tried that and it does not scroll to the end of the RichEdit field, it just places the cursor there. I even tried to add a SetFocus and that doesn't help. Anyone else have any ideas? Did you try any of the rest in the script I pointed you to? # select our last line. $logbox-Select(99,99); $logbox-ReplaceSel($message\n, 1); select(undef, undef, undef, 0.25); # autoscroll the log box. $logbox-SendMessage (0x115, 1, 0) while $message =~ /\n|$/g; This works perfectly in AmphetaDesk. An example of its operation: http://www.disobey.com/amphetadesk/images/ss-base-gui.jpg The above is a picture of a RichEdit that is automatically scrolled for each new message entered into it. -- Morbus Iff ( softcore vulcan porn rulez ) http://www.disobey.com/ http://www.gamegrene.com/ please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554 icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
RE: [perl-win32-gui-users] Putting cursor at end of RichEdit
It is already in there: $ChatBox = $GameWindow-AddRichEdit( -name= ChatBox, -left= 400, -top = 5, -width = 230, -height = 330, -disabled= 1, -addstyle= WS_CHILD | WS_VISIBLE | ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL | WS_VSCROLL | ES_READONLY, -addexstyle= WS_EX_CLIENTEDGE, ); I don't know what I am doing wrong that makes it not work. Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 At 11/8/2001 03:11 PM, you wrote: You might also try adding ES_AUTOVSCROLL to the RichEdit's -style This can be problematic, though. As I recall, it refreshes the RichEdit's data every time there's new data added. Of course, my memory ain't what it used to be, so I may be way off... :) -Original Message- From: Morbus Iff [mailto:[EMAIL PROTECTED] Sent: 08 November 2001 14:53 To: Jonathan Southwick; perl-win32-gui-users@lists.sourceforge.net Subject: Re: [perl-win32-gui-users] Putting cursor at end of RichEdit At 02:43 PM 11/8/01, Jonathan Southwick wrote: I tried that and it does not scroll to the end of the RichEdit field, it just places the cursor there. I even tried to add a SetFocus and that doesn't help. Anyone else have any ideas? Did you try any of the rest in the script I pointed you to? # select our last line. $logbox-Select(99,99); $logbox-ReplaceSel($message\n, 1); select(undef, undef, undef, 0.25); # autoscroll the log box. $logbox-SendMessage (0x115, 1, 0) while $message =~ /\n|$/g; This works perfectly in AmphetaDesk. An example of its operation: http://www.disobey.com/amphetadesk/images/ss-base-gui.jpg The above is a picture of a RichEdit that is automatically scrolled for each new message entered into it. -- Morbus Iff ( softcore vulcan porn rulez ) http://www.disobey.com/ http://www.gamegrene.com/ please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554 icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] TreeView... how to detect right-mouse click (and coords...)
Simon,.
I can answer the second question. In the subroutine that captures the
event invoking the popup menu you can do this:
my($X, $Y) = Win32::GUI::GetCursorPos();
$MainWindow-TrackPopupMenu($PopupMenu-{ItemProp},$X, $Y);
In this case ItemProp is the name given to the popup menu.
I hope this helps.
Jonathan
---
Jonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College, Meadville, PA 16335
At 6/14/2001 02:48 PM, you wrote:
Dear fellow GUI fans,
Say I want have a right-mouse-click driven context pop-up menu in a
TreeView...
1. How to discover when the right-mouse-button is pressed and relate it to
a particular tree node? ...TreeView methods only seem to support left
clicking, or?
2. How to figure out the screen coordinates of the click in order to place
the pop-up menu?
Thanks,
Simon
Powered by the Email PIM - Info Select - www.miclog.com
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] ListView Item Click and Windows 2000
Kevin, I'm not sure I understand what you are trying to do. Do you perform any actions on the item when an ItemClick (single) is performed or is the action on the item carried out with a DblClick event? I have written a program that works like Windows Find Files or Folders but finds users in a database. I don't even capture the ItemClick event because no action is carried out until the user performs a DblClick. I also capture a RightClick event and bring up a popup menu to allow the user to select what action should be taken. Is this a feasible solution for what you are doing? Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 At 6/13/2001 08:48 AM, you wrote: Jonathan, I didn't even notice you'd put Windows 200 until you sent the second email. Its a shame about the ItemClick event for ListViews, I'd hope to use ItemClick for selecting and then the double click for doing something with the selected items. Guess I'll just have to use double click for selecting and a button for dealing with the selected items. Cheers, Kev.
Re: [perl-win32-gui-users] ListView Item Click and Windows 2000
Kevin, I just tried something on my program and it seemed to work just fine. My guess is you have -hotrack = 1 in your defined ListView object. try taking that out and see if you get the results you want. Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755 At 6/13/2001 04:21 PM, you wrote: Jonathan, The particular app that this is for will use the ListView to display files. I was hoping to allow a single click to select a file, further single clicks to select multiple files and a double click to perform an action on the files that had been selected. This would mean over riding the default action of a single click de-selecting the items that had previously been selected and then selecting the item the mouse pointer is on. As leaving the mouse on an item has the same effect as clicking (and I don't seem to be able to over ride this) I can't do it that way. Looking back at that paragraph it looks even more confusing now! Thanks again for your experience with this. Kev.
Re: [perl-win32-gui-users] ListView Item Click and Windows 2000
Heh ... I meant Windows 2000; just trying my best to short-change Microsoft
whenever i can. ;]
And double-lick event? You'd think I was talking about a lollipop or
something. ;]
Later days ...
Jonathan
--
Jonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755
At 6/12/2001 12:44 PM, you wrote:
Kevin,
The same thing happens to me in Windows 200 and it happened in NT 4.0 as
well. The way I got around it was to look for a double-lick event instead.
Something like:
sub DataView_DblClick {
## code for double-click event
}
should work just fine.
DataView is the name given to my list view object.
--
JonathanJonathan Southwick
[EMAIL PROTECTED]
Technical Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755
At 6/12/2001 04:51 PM, you wrote:
Has anyone else found that under Windows 2000 leaving the mouse cursor
over a list view item causes an ItemClick event? Its almost as if there is
a MouseOver event.
If its not just me that gets this, does anyone have any thoughts on how to
turn this behaviour off so that only a real click of the mouse button
generates the event?
Cheers,
Kevin.
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] Textfield on top of a Listview
I would recommend checking for a double-click event and then showing a new window with the textfield and the corresponding data from the listview and allowing the user to make the change that way. Jonathan At 5/16/2001 11:30 PM, you wrote: I'm trying to do this: A Listview with two columns (Property, Value). When the user clicks on an Item in the list, the Value column becomes editable. I looked at the EditLabel thing, but that edited the first column only, and that didn't work properly anyway with the edit-box losing focus right away. So, I was thinking of placing a Textfield on top of the Listview and Showing it when the user clicks on an Item. Two problems: a) How do I get rid of the border around the Textfield? b) It seems like as soon as i SetFocus to the Textfield, the Listview takes it back. So I do a lot of kludgy stuff to bring the focus back to the textfield. As a nice side-effect, this actually redraws the Listview so the border doesn't show :) But all this seems fragile and is obviously not the right way. Any ideas? /J PS. As I write this I realize that the first focus thing with the EditLabel seems related to the other focus thing I describe. -- Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua [EMAIL PROTECTED] ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users Jonathan Southwick [EMAIL PROTECTED] Technical Network Services Allegheny College, Meadville, PA 16335 (814) 332-2755
Re: [perl-win32-gui-users] ListView disappearing
Erick, Hey, thanks for letting me know what you did to correct it so that I don't make the same mistake in the future. I was racking my brain trying to figure out what was wrong. Jonathan - Original Message - From: Erick J. Bourgeois [EMAIL PROTECTED] To: perl-win32-gui-users@lists.sourceforge.net Sent: Wednesday, March 28, 2001 2:37 PM Subject: [perl-win32-gui-users] ListView disappearing I posted a message a while back saying that I had a problem when I tried to resize the columns in a ListView, the data (ie. that which was in the listview control) would disappear. Well, I isolated the problem. This only occurs if you create a label that covers the whole window. (The reason why I created this label was to get a desired background color.) Long and the short, if you want to do this, you have to declare the (background)label AFTER the the ListView control, as the window is updated, the Listview gets hidden (well, all, except the columns). Thanks anyways Johnathan. erick never stop questioning www.jeb.ca ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] desktop
Harold,
Thanks!!! I think that will work well enough for me.
Jonathan
- Original Message -
From: Piske, Harald
To: 'perl-win32-gui-users@lists.sourceforge.net'
Sent: Wednesday, March 28, 2001 5:46 PM
Subject: RE: [perl-win32-gui-users] desktop
Hi Jonathan.
I found a way - not exactly easy, probably far from perfect, but it works. I
hide all windows - walking backwards through the chain of desktop children, to
avoid making each active just before hiding it. Then I cover the background
with a big, fat, ugly, black rectangle and show my own window. Note I restore
all the hidden stuff in END{}. Otherwise, if your program dies, you'll end up
with a perfectly invisible OS. On the other hand, that might avoid a few
annoying windows faults ...
Have fun
Harald
use Win32::GUI;
use Win32::API;
BEGIN
{
undef $blank;
undef @hidden;
$CreateWindowEx = new Win32::API ('user32', $_ = 'CreateWindowEx',
[N,P,P,N,I,I,I,I,I,I,I,P], I) or die $_;
$ShowWindow = new Win32::API ('user32', $_ = 'ShowWindow', [I, I], I)
or die $_;
$DestroyWindow = new Win32::API ('user32', $_ = 'DestroyWindow', [I], I)
or die $_;
}
END
{
$ShowWindow-Call ($_, 8) for @hidden;
$DestroyWindow-Call ($blank) if $blank;
undef $CreateWindowEx;
undef $DestroyWindow;
undef $ShowWindow;
}
$Main = new Win32::GUI::Window (-name = 'Main',
-pos = [100, 100], -size = [400, 300]);
sub Main_Terminate {-1}
$Main-AddLabel (-name = $_ = 'All alone!',
-text = $_, -pos = [160, 110]);
$desktop = $Main-GetDesktopWindow ();
$_ = Win32::GUI::GetWindow ($desktop, GW_CHILD);
$_ = Win32::GUI::GetWindow ($_, GW_HWNDLAST);
do {
if (Win32::GUI::IsVisible ($_)) {
push @hidden, $_;
$ShowWindow-Call ($_, 0);}
} while $_ = Win32::GUI::GetWindow ($_, GW_HWNDPREV);
@area = Win32::GUI::GetWindowRect ($desktop);
$blank = $CreateWindowEx-Call (0, $_ = 'STATIC', '',
0x5C04, @area, $desktop, 0, 0, 0) or die $_;
$Main-Show ();
Win32::GUI::Dialog ();
-Original Message-
From: Jonathan Southwick [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 28, 2001 10:31
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui-users] desktop
Is there any way to blackout the desktop (as a screensaver would) using the
GUI module? I still want to be able to show my own windows I create in my
program.
Jonathan Southwick
Technical Network Services
Allegheny College, Meadville, PA
[EMAIL PROTECTED]
Re: [perl-win32-gui-users] Richtext field
Lance, In your sub where the user closes (terminates) the window containing the RichEdit control try adding this: $RichEdit-Text(); where $RichEdit is the name that you have given your RichEdit control. Jonathan Southwick Technical Network Services Allegheny College, Meadsville, PA [EMAIL PROTECTED] - Original Message - From: Cuthbert, Lance (DeepGreen Bank) [EMAIL PROTECTED] To: perl-win32-gui-users@lists.sourceforge.net Sent: Wednesday, March 14, 2001 10:44 AM Subject: [perl-win32-gui-users] Richtext field I am having some difficulty with the Win32::GUI::RichEdit package and I am hoping that someone might be able to help. In the program that I writing the user invokes a RichEdit text box to view the results of a database query. The first time the user opens the RichEdit textbox, the results from just that query are present - this is what I want. But, after the user closes that window and runs another query, the next time the user opens the RichEdit textbox the results from the first query as well as the second query are there. Any ideas? Thanks in advance. Lance S. Cuthbert ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I have to use the Mouse???
Add the following before your $W -Show;:
$W-{-dialogui} = 1;
and it should make the Window act like a DialogBox.
Use Jeremy's suggestion to put the cursor in the textfield.
Jonathan Southwick
Technical Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
- Original Message -
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Sent: Tuesday, March 13, 2001 12:40 PM
Subject: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I have to
use the Mouse???
Can Anybody help here.
At the moment I have to click on the textbox to highlight it before I can
enter anything and then I have to use the mouse to click validate it
All I want is, When the progran start's the first textbox is already
highlighted and to submit it all I have to do is press Enter,
I am driven soft that something so trivial is anything But
or is it the softness in the brain has brought me to a point in my
existence
from where there is nowhere to progress.
here it is
||
||
||
\/
use strict;
use Win32::GUI;
my $MWfont = Win32::GUI::Font-new(
-name = Arial,
-size = 16,
);
my $W = new Win32::GUI::Window(
-name = W,
-text = WorkLet You!,
-left = 0,
-top= 0,
-width = 640,
-height = 480,
-font = $MWfont,
);
$W-AddTextfield(
-name = Input,
-font = $MWfont,
-left = 20,
-top= 40,
-width = 100,
-height = 25,
-text = ,
-prompt = [ Enter : , 100 ],
,
);
$W-AddButton(
-text= 'Validate',
-name= 'CmdValidate',
-left= 250,
-top = 40,
-default = 1,
-ok = 1,
-height = 25,
-width = 80,
);
$W-AddTextfield(
-name = Display,
-readonly = 1,
-multiline = 1,
-left = 40,
-top = 130,
-width = 540,
-height= 120,
-text = I'm a placeholder,
-foreground = [255,255,255],
-background =[0, 0, 255],
);
$W-AddStatusBar(
-name = Status,
-text = What Will I Look For Today .,
);
$W -Show;
Win32::GUI::Dialog();
sub MainWindow_Terminate {
PostQuitMessage(1);
}
#=
sub W_Resize {
#=
$W-Status-Move(0, $W-ScaleHeight-$W-Status-Height);
$W-Status-Resize($W-ScaleWidth, $W-Status-Height);
return 1;
}
#===
sub Exit_Click {
#===
return -1;
}
#===
sub CmdValidate_Click {
#===
$W-Display-{-text} = 'Whaa';
}
Rgds Eoin:
EMF2 Test Engineering
mailto:[EMAIL PROTECTED]
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] FW: perl-win32-gui-users
Joe,
Try this as your ComboBox construct:
$CBdropdown = $Window-AddCombobox(
-name = Dropdown,
-left = 10,
-top= 25,
-width = 180,
-height = 400,
-addstyle = WS_VISIBLE | 2 | WS_VSCROLL | WS_NOTIFY,
);
Jonathan Southwick
Technical Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
- Original Message -
From: Frazier, Joe Jr [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Sent: Friday, March 02, 2001 12:35 PM
Subject: [perl-win32-gui-users] FW: perl-win32-gui-users
Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
[EMAIL PROTECTED]
-Original Message-
From: Frazier, Joe Jr On Behalf Of Peopleclick Customer Support
Sent: Friday, March 02, 2001 12:33 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: perl-win32-gui-users
I have a combo box such as below. How do I get a scroll bar
along the left or right side. Is this functionality
supported? If so, does the same method work for List boxes.
Part of the problem, is that I mostly copied these directly
from the examples and don't know what the various style
settings are since my documentation doesn't detail this option.
Thanks in advance for any insight.
I am on NT 4.0 SP6a
c:\perl -MWin32::GUI -e print qq{$Win32::GUI::VERSION\n};
0.0.434
c:\perl -v
This is perl, version 5.005_03 built for MSWin32-x86-object
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-1999, Larry Wall
Binary build 522 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 09:52:28 Nov 2 1999
$CBdropdown = $Window-AddCombobox(
-name = Dropdown,
-left = 10,
-top= 25,
-width = 180,
-height = 400,
-scroll = 1,
-style = WS_VISIBLE | 2 | WS_NOTIFY,
);
Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
[EMAIL PROTECTED]
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] Dr Watson
I use Win32::GUI on my machine running Windows 2000. If you installed a newer version of Perl over what you already had and didn't reinstall the GUI module I can guarantee you will run into problems. Maybe this is what happened? Try reinstalling the Win::GUI module and see what happens. Jonathan Southwick Technical Network Services Allegheny College, Meadsville, PA [EMAIL PROTECTED] - Original Message - From: Simon Taylor - Tegel [EMAIL PROTECTED] To: perl-win32-gui-users@lists.sourceforge.net Sent: Thursday, February 22, 2001 8:44 PM Subject: [perl-win32-gui-users] Dr Watson I've installed Win32::GUI 0.0.558 from the contributed PPM binary on SourceForge onto my Windows 2000 machine running ActiveState Perl 5.6.0 Build 623. However when I try to run a Perl script that uses Win32::GUI, I get a Dr Watson: application exception number c0005 (access violation). I also tried installing 0.0.558 from the source distribution using the nmake utility but I'm probably missing something important like the Visual C++ compiler/linker (cl.exe?). I didn't get the Dr Watson problem when running 0.0.502 but I was getting lots of strange GUI behaviour, so I thought I'd try the latest version. So far, no joy. My burning question: Is Win32::GUI okay on Windows 2000? Thanks Simon Taylor Technology Analyst Tegel Foods Ltd, Auckland, New Zealand mailto:[EMAIL PROTECTED] CAUTION: This message and any attachments contain privileged and confidential information. If you are not the intended recipient of this message, you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify the sender immediately via email and then destroy this message and any attachments. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of Tegel Foods Ltd. ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] ListView Column Resize
Erick, I'm sorry but I am really confused now. Your original question was about resizing columns in a listview and your reply to my response had nothing to do with that at all. Am I missing something here? As to your second question. I do the same thing with a TabStrip. A user clicks on one tab and only certain labels and textfields appear, a second tab is clicked and those hide and others are shown. I do not update the window in between showing and hiding the various objects and have not had a problem. If you could paste your cose maybe there is a deeper problem. Also it would help me understand what you are saying is happening. Thanks. Jonathan Southwick Technical Network Services Allegheny College, Meadsville, PA [EMAIL PROTECTED] - Original Message - From: Erick J. Bourgeois [EMAIL PROTECTED] To: perl-win32-gui-users@lists.sourceforge.net Sent: Tuesday, February 20, 2001 8:11 AM Subject: Re: [perl-win32-gui-users] ListView Column Resize Jonathan, Basically what I am doing is creating labels (and controls), five sets of labels, as non-visible. Then I create the main window and show the first set of labels. When the user chooses a menu item under the View menu, then I show those labels and hide the previous ones. So, I basically use the main window as a blackboard to show what there is in the View menu. Should I update the window before I show the new labels? erick never stop questioning www.jeb.ca - Original Message - From: Jonathan Southwick [EMAIL PROTECTED] To: perl-win32-gui-users@lists.sourceforge.net Sent: Monday, February 19, 2001 2:33 PM Subject: Re: [perl-win32-gui-users] ListView Column Resize Eric, I use a listview in one of my applications I have wriutten and do not have that problem. What does your listview contruct look like? Is there any other code that might be responsible for this maybe? Jonathan Southwick Technical Network Services Allegheny College, Meadsville, PA [EMAIL PROTECTED] - Original Message - From: Erick J. Bourgeois [EMAIL PROTECTED] To: perl-win32-gui-users@lists.sourceforge.net Sent: Friday, February 16, 2001 1:36 PM Subject: [perl-win32-gui-users] ListView Column Resize Has anyone had the listview disappear if you try and resize the column? If I resize it, the first time it disappears, the second it reappears but without the scrollbars. Any one else? erick never stop questioning www.jeb.ca ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u sers ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u sers ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] ListView Column Resize
- Original Message -
From: Erick J. Bourgeois [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Sent: Tuesday, February 20, 2001 11:12 AM
Subject: Re: [perl-win32-gui-users] ListView Column Resize
$MainWin-AddListView(
-name = ListView,
-pos = [45, 110],
-size = [$MainWin-ScaleWidth-90,
$MainWin-ScaleHeight-170],
-style = WS_CHILD | WS_VISIBLE | 1 |
WS_HSCROLL | WS_VSCROLL,
-fullrowselect = 0,
-gridlines = 0,
-hottrack = 0,
-view = 1,
-visible = 0, #As you can see the initial
state is non-visible
-tabstop = 1,
-checkboxes= 1,
-singlesel = 1,
);
aaahhh the ListView construct ;]
in looking over your code here I could not come up with an idea as to what
might be wrong. would you have a problem in sending me the entire program
so i could run it and try to make a determination from that and looking at
the full source code at the same time?
Jonathan Southwick
Technical Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
Jonathan,
You asked me: What does your listview contruct look like?
Is there any other code that might be responsible for this
maybe?. So I described (described being the opertive
word)how I constructed it and I introduced the fact that I
do have other code that code be responsible. I'm sorry if I
was not completly explicit. One of the controls that I
create and show is a ListView. So, this listview needs to be
hiden and shown many times (as the case may be). When I show
the listview and start resiszing the columns it goes all
wacky. Here is the code for the listview:
$MainWin-AddListView(
-name = ListView,
-pos = [45, 110],
-size = [$MainWin-ScaleWidth-90,
$MainWin-ScaleHeight-170],
-style = WS_CHILD | WS_VISIBLE | 1 |
WS_HSCROLL | WS_VSCROLL,
-fullrowselect = 0,
-gridlines = 0,
-hottrack = 0,
-view = 1,
-visible = 0, #As you can see the initial
state is non-visible
-tabstop = 1,
-checkboxes= 1,
-singlesel = 1,
);
my $width = $MainWin-ListView-ScaleWidth;
$MainWin-ListView-InsertColumn(
-index = 0,
-subitem = 0,
-width = ($width/2)+10,
-text= Column1,
);
$MainWin-ListView-InsertColumn(
-index = 1,
-subitem = 1,
-width = $width/2,
-text= Column2,
);
for (sort keys %Hash) {
$MainWin-ListView-InsertItem( -text=[$_,
$Hash{$_}] );
# I have another problem here, I want to set the
checkbox to checked
}
$MainWin-ListView-TextColor([255,150,55]);
$MainWin-ListView-TextBkColor([0, 59, 102]);
Sorry about the confusion :-)
erick
never stop questioning
www.jeb.ca
- Original Message -
From: Jonathan Southwick [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Sent: Tuesday, February 20, 2001 4:12 PM
Subject: Re: [perl-win32-gui-users] ListView Column Resize
Erick,
I'm sorry but I am really confused now. Your original
question was about
resizing columns in a listview and your reply to my
response had nothing to
do with that at all. Am I missing something here?
As to your second question. I do the same thing with a
TabStrip. A user
clicks on one tab and only certain labels and textfields
appear, a second
tab is clicked and those hide and others are shown. I do
not update the
window in between showing and hiding the various objects
and have not had a
problem.
If you could paste your cose maybe there is a deeper
problem. Also it would
help me understand what you are saying is happening.
Thanks.
Jonathan Southwick
Technical Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
[perl-win32-gui-users] Menu and checkmarks
Is there anyway to make the checkmarks be dots in a menu where a user has a choice to select something? Jonathan Southwick Technical Network Services Allegheny College, Meadsville, PA [EMAIL PROTECTED]
Re: [perl-win32-gui-users] Resizing
Maybe, just maybe, this will work. Add the following to your window declaration: -minsize= [$minwidth,$minheight], -maxsize= [$maxwidth,$maxheight], I know the -minsize works because I use it in one of my programs but never tried the maxsize. - Original Message - From: Erick J. Bourgeois [EMAIL PROTECTED] To: perl-win32-gui-users@lists.sourceforge.net Sent: Monday, January 22, 2001 3:44 PM Subject: Re: [perl-win32-gui-users] Resizing I added the resizable option, however it still does not work: $MainWin = new Win32::GUI::Window( -name = MainWin, -text = Main Window, -height = 400, -width= 450, -left = 200, -top = 100, -font = $Font, -menu = $Menu, -resizable = 0, ); ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] Listview column click sorting
Tim,
here goes:
NOTE: DataView is the name of my listview that I have set up. My data is
also read in from a comma delimited file and stored in the listview.
=
sub DataView_ColumnClick {
my $column = shift;
## i do this so that I can toggle between ascending and descending sorts
## 0 = ascending (A-Z), 1 = decending (Z - A)
if ($lastcolumn == $column) { # if you clicked the same column twice in
a row
$sortorder = 1 - $sortorder; # toggle between 1 and 0 values
}
else {
$sortorder = 0;
}
$lastcolumn = $column;
my %sortcol = NewList($column, %data);
SortListItem(\%data,\%sortcol);
return;
}
sub SortListItem {
my ($data,$sortcol) = @_;
my $check;
my %data = %$data;
my %sortcol = %$sortcol;
$check = $_ foreach (values %sortcol);
$MainWindow-DataView-Clear(); ## clear the ListView window
$index = 0;
if ($sortorder == 0) { ## this is sorting in ascending order
foreach (sort { uc($sortcol{$a}) cmp uc($sortcol{$b}) } keys %sortcol)
{
my @newdata = split/,/,$data{$_};
($fname,$lname,$build,$room,$adap,$ip,$year,$os,$type) = @newdata;
# our list of items to sort
if ($fname ne ) {
$MainWindow-DataView-InsertItem(-item = $index, -subitem=
0, -text = $fname, -image = $img);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
1, -text = $lname);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
2, -text = $build);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
3, -text = $room);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
4, -text = $adap);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
5, -text = $ip);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
6, -text = $year);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
7, -text = $os);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
8, -text = $type);
++$index;
}
$MainWindow-DataView-Update();
}
}
else { ## this is sorting in descending order
foreach (sort { uc($sortcol{$b}) cmp uc($sortcol{$a}) } keys %sortcol)
{
my @newdata = split/,/,$data{$_};
($fname,$lname,$build,$room,$adap,$ip,$year,$os,$type) = @newdata;
if ($fname ne ) {
$MainWindow-DataView-InsertItem(-item = $index, -subitem =
0, -text = $fname, -image = $img);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
1, -text = $lname);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
2, -text = $build);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
3, -text = $room);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
4, -text = $adap);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
5, -text = $ip);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
6, -text = $year);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
7, -text = $os);
$MainWindow-DataView-SetItem(-item = $index, -subitem =
8, -text = $type);
++$index;
}
$MainWindow-DataView-Update();
}
}
$MainStatus-Text($tempstatus);
return;
}
sub NewList {
## This creates another hash to use only for sorting purposes.
my ($column,%sortcol) = @_;
my $sortthis;
foreach (keys %sortcol) {
my @info = split /,/, $sortcol{$_};
$sortthis = $info[$column];
$sortcol{$_} = $sortthis;
}
return(%sortcol);
}
===
That should be all you need. If you have any more questions i will TRY to
answer them.
Jonathan Southwick
Technical Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
- Original Message -
From: Thomas, Timothy B [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; perl-win32-gui-users@lists.sourceforge.net
Sent: Friday, January 12, 2001 3:42 PM
Subject: [perl-win32-gui-users] Listview column click sorting
Jonathon,
Can you post the code that you refer to in this old posting. I am looking
for the code that allows you to click on a column header and sort by that
field.
http://www.mail-archive.com/[EMAIL PROTECTED]/msg00280.html
Thanks,
Tim Thomas
--
---
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
--
---
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] a simple question
What you need is: $ModuleWindow-Caption(new title); Jonathan Southwick Technical Network Services Allegheny College, Meadsville, PA [EMAIL PROTECTED] - Original Message - From: christopher sagayam [EMAIL PROTECTED] To: perl-win32-gui-users@lists.sourceforge.net Sent: Tuesday, January 09, 2001 9:50 AM Subject: [perl-win32-gui-users] a simple question how to set the name of a dialog box dynamically ? $ModuleWindow = new Win32::GUI::DialogBox( -title = old title, -left= 100, -top = 110, -width = 500, -height = 400, -name= ModuleWindow, -style = WS_BORDER | DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU, -exstyle = WS_EX_DLGMODALFRAME | WS_EX_WINDOWEDGE | WS_EX_CONTEXTHELP | WS_EX_CONTROLPARENT, ); I need to do $ModuleWindow-title(new title); chris _ Do You Yahoo!? Get your free @yahoo.com address at http://mail.yahoo.com ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Re: [perl-win32-gui-users] newbie - trying to get data from text box
FW: [perl-win32-gui-users] newbie - trying to get data from text boxYes that is
also possible. Try this:
To set the cursor in the textfield:
$Frame-aTextField-SetFocus();
Jonathan Southwick
Technical Network Services
Allegheny College, Meadville, PA
[EMAIL PROTECTED]
- Original Message -
From: Michael Solomon
To: Perl Gui (E-mail)
Sent: Monday, January 08, 2001 6:55 AM
Subject: FW: [perl-win32-gui-users] newbie - trying to get data from text box
Thanks for this
I can now capture the text
What I would also like to do is start with the cursor in the text box rather
than having to click on it.
Is that possible and if so how do I do it
Regards
Mike Solomon
-Original Message-
From: Anthony C. George [mailto:[EMAIL PROTECTED]
Sent: 05 January 2001 18:46
To: perl-win32-gui-users@lists.sourceforge.net
Subject:RE: [perl-win32-gui-users] newbie - trying to get data from
text box
To get the text in the box:
$myText=$Frame-aTextField-Text();
To set the text:
$Frame-aTextField-Text($myText);
tony
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Michael Solomon
Sent: Friday, January 05, 2001 11:18 AM
To: Perl Gui (E-mail)
Subject:[perl-win32-gui-users] newbie - trying to get data from text
box
I have just started looking at Win32 Gui
What I want to do is put up a text box and allow a user to enter data then
capture it
By looking at code posted here I have written the following: use Win32::GUI;
$Frame = new Win32::GUI::Window(
* name = aFrame,
* top = 100,
* left = 150,
* width = 350,
* height = 200,
* title = Test Win32::GUI,
);
$Frame-AddTextfield(
* name = aTextField,
* top = 50,
* left = 20,
* height = 20,
* width = 300,
* prompt = Type a text here : ,
);
$Frame-AddButton(
* name = aButton,
* text = OK,
* top = 90,
* left = 150,
* height = 25
* width = 50,
);
$Frame-Show();
Win32::GUI::Dialog();
sub aFrame_Terminate {
* 1;
}
sub aButton_Click {
print test\n;
aFrame_Terminate;
}
What I haven't worked out how to do is to access the text entered. Also I
want the cursor to start in the text box rather than having to click on it.
Any help will be gratefully received.
Regards
Mike Solomon
Technical Manager
Work 01582 831125
Mobile 07941 537 172
email [EMAIL PROTECTED]
===
=
Important: Any views or opinions expressed by the sender do not necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential. If you are
not
the named recipient please notify us immediately. You must not copy or
disclose
the contents to any third party.
Internet e-mail is not a fully secure communications medium. Please take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, but it
is the responsibility of the recipient to make all the necessary virus
checks.
www.3s-group.com
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
