perl-win32-gui-users Mailing List for Win32::GUI

It looks good, but I get "Can't locate auto/win32/GUI/icon.al in @INC"
I get these a lot with Win32::GUI for some reason.  Fresh Perl install
or not.

MJG

-----Original Message-----
From: Chris Wearn [mailto:ch...@vi...]=20
Sent: Tuesday, December 30, 2003 11:02 PM
To: MJG
Cc: per...@li...
Subject: RE: Win32::GUI Icons on buttons


>Is this not the proper way to add an icon to a button?

>$W->AddButton(
>   -name    =3D> "SomeName",
>   -left    =3D> 5,
>   -top     =3D> 5,
>   -text    =3D> "Print Somehing!",
>   -tabstop =3D> 1,
>   -icon    =3D> "./Iconfile.ico"
>);


TRY:
# =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D

# Load Icon
$icoImage =3D new Win32::GUI::Icon("./images/button.ico");

# Button - SomeName
$btnSomeName =3D $W->AddButton(
   -name    =3D> "btnSomeName",
   -left    =3D> 5,
   -top     =3D> 5,
   -text    =3D> "Print Somehing!",
   -tabstop =3D> 1,
   -icon    =3D> $icoImage,
);


if -icon =3D> $icoImage,  doesn't work try:

...
   -text    =3D> "Print Somehing!",
   -tabstop =3D> 1,
);
$W->SetIcon($icoImage);


Chris

>Is this not the proper way to add an icon to a button?

>$W->AddButton(
>   -name    => "SomeName",
>   -left    => 5,
>   -top     => 5,
>   -text    => "Print Somehing!",
>   -tabstop => 1,
>   -icon    => "./Iconfile.ico"
>);


TRY:
# ================================

# Load Icon
$icoImage = new Win32::GUI::Icon("./images/button.ico");

# Button - SomeName
$btnSomeName = $W->AddButton(
   -name    => "btnSomeName",
   -left    => 5,
   -top     => 5,
   -text    => "Print Somehing!",
   -tabstop => 1,
   -icon    => $icoImage,
);


if -icon => $icoImage,  doesn't work try:

...
   -text    => "Print Somehing!",
   -tabstop => 1,
);
$W->SetIcon($icoImage);


Chris

Hi Peter,

Thanks for the response...

>only to by curious - did you turn on "Allow service to interact with
>desktop" by the Service Control Manager or by Windows API. If not,
>messages and GUI components will not show up on the "User Desktop".

>Peter NESWAL

No I haven't 'turned on' this value, and it makes sense, however the admin
module is not running as a service, so would not appear in the 'Services'
panel, and I'm not sure how you would enable it by Windows API... something
to search for on MSDN.

The way I have set it at the moment is to build the admin module (
RTAdmin.dll ) With a method to pass in an array reference, holding my data.
Then a second method, 'Build Admin Window', which contains all the window
and widgets for the module. As there is no further interaction between the
main app and the admin module all I need to do is 'SHOW' the admin GUI. So
the last line of the function is $adminWin->Show();

However as RTAdmin.dll is called from the main app via Win32::OLE I'm not
sure how much of the Win32::GUI stuff is borrowed from main app or whether
it needs its own. ie the Win32:GUI::Dialog() call.

Chris

At 21:24 2003-12-30, MJG wrote:
>Thanks.  I at least know what the "use" is for   :-)

Eh, does it say

use blib;

? Then I'm lost :)   If it says

use lib "blib";

then it probably works like I said.

* searching *

http://search.cpan.org/~nwclark/perl-5.8.2/lib/blib.pm

Aahh!


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Assembly Language Windows Applications"
http://grc.com/smgassembly.htm
dmoz (1 of 3): /Computers/Programming/Languages/Assembly/ 66

OK.  Since I don't need blib then, here is my question.  The example I
am looking at is buttons.pl.  When I ad the -icon ref, the text
disappears.  Is this not the proper way to add an icon to a button?

Thanks again.

$W->AddButton(
   -name    =3D> "SomeName",
   -left    =3D> 5,
   -top     =3D> 5,
   -text    =3D> "Print Somehing!",
   -tabstop =3D> 1,
   -icon    =3D> "./Iconfile.ico"
);

Thanks.  I at least know what the "use" is for   :-)

I was wondering if it should be used constantly.  If it's just for
development, then not an issue as I don't have an interest to develop
pm's as of yet.

When I ran the example, it would error out, so this would be a question
for another thread.

Thanks again.

MG

-----Original Message-----
From: Johan Lindstrom [mailto:jo...@ba...]=20
Sent: Tuesday, December 30, 2003 2:16 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Latest Build of GUI for Perl 5.8


At 20:31 2003-12-30, MJG wrote:
>I was looking through some of the examples and noted a reference to=20
>blib (use blib;)
>
>I checked my perl distribution (5.8) and did not find this module.  Is=20
>it supposed to be part of the standard distribution or installed with=20
>Win32::GUI?

Until someone tell you otherwise, I'd say that the blib directory is a=20
"build lib" dir. I.e. it's used using "nmake" and "nmake test" while=20
installing the module, and possibly during development by the
programmer.=20
The "use" clause is there to force a script to use the development code=20
rather that the version installed in c:\perl\site\lib.

I may be wrong of course.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Assembly Language Windows Applications"
http://grc.com/smgassembly.htm dmoz (1 of 3):
/Computers/Programming/Languages/Assembly/ 66



-------------------------------------------------------
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_id=1278&alloc_id371&op=3Dick
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

At 20:31 2003-12-30, MJG wrote:
>I was looking through some of the examples and noted a reference to blib
>(use blib;)
>
>I checked my perl distribution (5.8) and did not find this module.  Is
>it supposed to be part of the standard distribution or installed with
>Win32::GUI?

Until someone tell you otherwise, I'd say that the blib directory is a=20
"build lib" dir. I.e. it's used using "nmake" and "nmake test" while=20
installing the module, and possibly during development by the programmer.=
=20
The "use" clause is there to force a script to use the development code=20
rather that the version installed in c:\perl\site\lib.

I may be wrong of course.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Assembly Language Windows Applications"
http://grc.com/smgassembly.htm
dmoz (1 of 3): /Computers/Programming/Languages/Assembly/ 66

I was looking through some of the examples and noted a reference to blib
(use blib;)

I checked my perl distribution (5.8) and did not find this module.  Is
it supposed to be part of the standard distribution or installed with
Win32::GUI?

Thanks for answering the dumb question.

MG

Chris Wearn wrote:

>Hi All,
>
>Using ActivePerl 5.8, PDK 5.2, Win32-GUI 0.0.670 on Win2K
>
>Has anybody successfully put a GUI window on a PerlCtrl?
>
>I am writing an app using Win32-GUI which calls an optional Admin module
>written as a PerlCtrl and called using Win32-OLE. I want the Admin Module to
>have it's own GUI so that I don't have to pass lots of data between the main
>app and the admin module.
>
>What I can't seem to do is use the events ->Show() and ->Hide() to display
>the Admin Window in the PerlCtrl.
>
>I've tried referencing the main application and also given the PerlCtrl it's
>own independant GUI, however can't display the new admin window.
>
>Anybody done this or know how to do it?
>
>rgds
>
>Chris Wearn
>
>
>
>-------------------------------------------------------
>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_id=1278&alloc_id=3371&op=click
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>  
>
Hi,

only to by curious - did you turn on "Allow service to interact with 
desktop" by the Service Control Manager or by Windows API. If not, 
messages and GUI components will not show up on the "User Desktop".

Peter NESWAL

Hi All,

Using ActivePerl 5.8, PDK 5.2, Win32-GUI 0.0.670 on Win2K

Has anybody successfully put a GUI window on a PerlCtrl?

I am writing an app using Win32-GUI which calls an optional Admin module
written as a PerlCtrl and called using Win32-OLE. I want the Admin Module to
have it's own GUI so that I don't have to pass lots of data between the main
app and the admin module.

What I can't seem to do is use the events ->Show() and ->Hide() to display
the Admin Window in the PerlCtrl.

I've tried referencing the main application and also given the PerlCtrl it's
own independant GUI, however can't display the new admin window.

Anybody done this or know how to do it?

rgds

Chris Wearn

Does anyone know whether the -tip option is supposed to work for the=20
GroupBox control?


/J
-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Assembly Language Windows Applications"
http://grc.com/smgassembly.htm
dmoz (1 of 3): /Computers/Programming/Languages/Assembly/ 66

At 17:37 2003-12-22, Jonathan Southwick wrote:
>I have a Graphic object that I am plotting data on.  While the cursor is=
=20
>on this object I have a cross-hairs cursor.  What I would like to do is=20
>extend lines from the cursor position to the edges of the graph (the=20
>perimeter) but not have them overwrite what is plotted there and as I mo=
ve=20
>the cursor around the lines move accordingly.
-snip
>Has anyone ever accomplished this?  Does anyone know HOW to do it?  Any=20
>help would be greatly appreciated.

This is one way. Consider it a proof-of-concept rather than best-practice=
=20
given the load of globals.

Basically, the _Paint event handler is used to always plot first the mous=
e=20
lines and then the actual graph. This happens when the the Graphic contro=
l=20
is invalidated, which can be triggered by three things; either Windows=20
itself notices the need for it, or the graph changes, or the mouse moves.

(This method decouples the cause of the event from the action to be=20
performed when it happens, which is a Good Thing)


The #### comments explain the important concepts.


#!/usr/local/bin/perl -w
use strict;
use Win32::GUI;



my $wWinPlot =3D 400;
my $hWinPlot =3D 250;
my ($xMouse, $yMouse) =3D (100, 100);
my $xBar =3D 100;
my $winPlot =3D winCreate();


sub winCreate {
         my $winPlot =3D Win32::GUI::Window->new(
               -left   =3D> 100,
               -top    =3D> 100,
               -width  =3D> $wWinPlot,
               -height =3D> $hWinPlot,
               -name   =3D> "winPlot",
               -text   =3D> "Plot test",
               -minheight        =3D> 10,
               -minwidth         =3D> 10,
               );

         my $grCanvas =3D Win32::GUI::Graphic->new($winPlot,
                         -left   =3D> 0,
                         -top    =3D> 0,
                 -width  =3D> $wWinPlot,
                 -height =3D> $hWinPlot,
                         -name   =3D> "grCanvas",
                         -interactive =3D> 1,
                         );
         my $tim =3D $winPlot->AddTimer("timTimer", 100);

         $winPlot->Show();

         return($winPlot);
}





#### Will be called when the window needs to be painted,
#### caused either by Windows, or the InvalidateRect of the entire window
sub grCanvas_Paint { my $win =3D $winPlot;
         my($dcDev) =3D @_;
         return(0) if(!$dcDev);

         $dcDev->TextColor([0, 0, 0]);           #Black

         #The cross-hair
         $dcDev->Rectangle($yMouse, 0, $yMouse + 1, $hWinPlot);
         $dcDev->Rectangle(0, $xMouse, $wWinPlot, $xMouse + 1);

         #The bar
         $dcDev->Rectangle(50, 0, 120, $xBar);

         #### Tell Windows we're satisfied with the way the area looks li=
ke
         $dcDev->Validate();

         return(1);
}



#### Trigger on the mouse move
sub grCanvas_MouseMove { my $win =3D $winPlot;
         my ($dummy, @aPos) =3D @_;

         ($yMouse, $xMouse) =3D @aPos;

         #### Tell Windows the window needs to be repainted,
         #### will call the _Paint event handler
         #### The 1 wipes the area before repainting it,
         #### changing it to 0 will leave trails
         $win->InvalidateRect(1);

         return(1);
}



my $timerCount =3D 0;
sub timTimer_Timer { my $win =3D $winPlot;
         $timerCount +=3D .1;

         $xBar =3D (int(cos($timerCount) * 50)) + 70;

         #### Tell Windows the window needs to be repainted,
         #### will call the _Paint event handler
         #### The 1 wipes the area before repainting it,
         #### but since we may know exactly what needs to be repainted
         #### when $xBar changed, that may not be necessary
         $win->InvalidateRect(1);

         return(1);
}



Win32::GUI::Dialog();



__END__

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Assembly Language Windows Applications"
http://grc.com/smgassembly.htm
dmoz (1 of 3): /Computers/Programming/Languages/Assembly/ 66

Just wanted to wish everyone on the list a Merry Christmas and offer my
thanks for all your assistance and work on improving Win32::GUI.

Cheers,
Steve Pick
st...@ba...

> -----Original Message-----
> From: Jeremy White [mailto:jez...@ho...]
> Sent: Tuesday, December 23, 2003 3:59 PM
> To: jon...@al...;
> per...@li...
> Subject: Re: [perl-win32-gui-users] Progress bar's [coloring]
>=20
>=20
> >From: Jonathan Southwick <jon...@al...>
> >I have been wanting to do this forever myself but never was=20
> able to ...=20
> >until today!!!
> >
> >I figured out a way to do it and its rather simple.  You need to use=20
> >SendMessage though but it works.
> >
> >Here is the answer:
> >
> >$result =3D SendMessage($hWndControl, PBM_SETBARCOLOR, 0, $color);
>=20
> Nice work. This may be a little cheeky but could you turn=20
> this into a method=20
> (SetColor?) so it could be added to the next build of=20
> win32::gui? Might as=20
> well try and get all these enhancements into the core as they=20
> are solved.
>=20
> Cheers,
>=20
> jez.
>=20

I would have to agree.  Can this be added to the next Dev Branch of the =
app as both compile time properties and also as methods?

Johan, is there any way these can also be added as properties to TGL?  =
Depending on how long it will be before the next release will come out, =
you may want to do it yourself if the code, or wait for the whole thing =
in the next version of Win32::GUI and call the native functions.

My hope now that we have several very committed users to developing =
this, we will see releases at least once a month or so...

In the meantime, what I do is something like this:

package Win32::GUI;
sub CenterOnScreen{
	 my ($window) =3D shift;
	 #my $desk =3D $window->GetDesktopWindow();
	 #my(undef, undef, $d_width, $d_height)=3D =
Win32::GUI::GetWindowRect($desk);
	 my ($win_width)=3D $window->ScaleWidth();
	 my ($win_height) =3D $window->ScaleHeight();
	 my $delta_w =3D ($d_width  /2) - ($win_width/ 2);
	 my $delta_h =3D ($d_height / 2) - ($win_height / 2);
	 $window->Move($delta_w, $delta_h);
	 return 1;
}
package somethingelse

my $Window =3D new Win32::GUI::Window (
		#set everything here.  I left out for brevity...
)
$Window->CenterOnScreen();
$Window->Enable();
$Window->Show();
Win32::GUI::Dialog();

so that I can have a single method for doing centered window placement.  =
You could just as easily have other methods which do things simular and =
be called as native object methods.  Of course, this is not a complete =
working example, but it gives you the idea.  I do not know if this is a =
"good" practice, but it works.  If someone would like to translate this =
into a proper Win32::GUI method, I would expect this would be more =
efficient in xs with a perl method calling the xs function.

Thanks

>>PBM_SETBARCOLOR  ( 0x400 + 9 )
>>PBM_SETBKCOLOR    (        ?        )
>>PBM_SETSTEP              (        ?        )

>PBM_SETBKCOLOR = 0x2000 + 1
>PBM_SETSTEP = 0x400 + 4

;)
Jonathan, where you have taken these figures? How I can find these
conformity itself and answer my question itself? I want to know as to use:
IPM_GETADDRESS, SB_SETBKCOLOR, SB_GETTEXT, LVM_SETTEXTCOLOR, bla,bla,bla...
MSDN does not comprise these conformity :-(

Okay, after I create a label, with a custom font color, how can I update it
and make it so it will actually display the new color?

 

            $Wmain->AddLabel(

                        -name => "bwl",

                        -foreground => $ucolor,

                        -top  => 1,

                        -text  => $string,

                        -left => 1,

                        -visible => 1,

            );

Then inside of a timer I call this

            if ($bwu == '') {

                        logit ("Unable to recive server update");

                        $string = "Server Error, Please Call 5-1082 For
Help. ";

                        $ucolor = $skin{'errorcolor'};

                        $pbcolor = $skin{'pbecolor'};

            } else { 

                        $string = "You have $bwl megs and $bwl1\% left.
";

                        $ucolor=$skin{'normalcolor'};

                        $pbcolor = $skin{'pbcolor'};

                        logit("MAC Data Recived.");

                        logit ("$bwl megs left for this week $z.\n");

            }

Then after that's ran, I use

            $Wmain->bwl->Text("$string");

            $Wmain->bwl->Change( -foreground => $ucolor );

            $Wmain->Progressbar->SetPos($bwl1);

            Win32::GUI::SendMessage($Wmain->Progressbar, PBM_SETBARCOLOR, 0,
$pbcolor);

$Wmain->Update();

It updates the color of the progressbar, but not the font color

 

Please help

Dude, your awesome I've been needing this forever. Thanks so much.

 

  _____  

From: Jonathan Southwick [mailto:jon...@al...] 
Sent: Tuesday, December 23, 2003 12:43 PM
To: Chris; per...@li...
Subject: 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('0000FF'));


I hope this helps.


Jonathan


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

At 12/24/2003  02:51 AM, =?koi8-r?B?7MXXyc4=?= wrote:
> > >$result = SendMessage($hWndControl, PBM_SETBARCOLOR, 0, $color);
>  GOOD!
>But now, please:
>
>PBM_SETBARCOLOR  ( 0x400 + 9 )
>PBM_SETBKCOLOR    (        ?        )
>PBM_SETSTEP              (        ?        )

PBM_SETBKCOLOR = 0x2000 + 1
PBM_SETSTEP = 0x400 + 4


>................
>It is a question silly ;) :
>How I can find itself continuation?

I don't understand what you mean by this.

>Where to read about it?

Try here:
http://www.mvps.org/vbnet/index.html

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

> >$result = SendMessage($hWndControl, PBM_SETBARCOLOR, 0, $color);
 GOOD!
But now, please:

PBM_SETBARCOLOR  ( 0x400 + 9 )
PBM_SETBKCOLOR    (        ?        )
PBM_SETSTEP              (        ?        )
................
It is a question silly ;) : 
How I can find itself continuation?
Where to read about it?

>From: Jonathan Southwick <jon...@al...>
>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);

Nice work. This may be a little cheeky but could you turn this into a method 
(SetColor?) so it could be added to the next build of win32::gui? Might as 
well try and get all these enhancements into the core as they are solved.

Cheers,

jez.

_________________________________________________________________
Send a funky Messenger Christmas card http://www.msn.co.uk/christmascard

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('0000FF'));


I hope this helps.


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

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('0000FF'));


I hope this helps.


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

Hi,

A couple of months ago I was planning on doing exactly that - I never got 
round to doing it, but it is something that I may have to do in the next 
couple of months. I use GD to draw my charts, and plot them onto the DC with 
Win32::GUI::DIBitmap. There are several different approaches, and I was 
going to go for the lazy route:)

I was planning on doing something like this: On the mouse move, a copy of 
the original chart would be created. The lines would then be drawn on the 
copy, the new image would then be drawn on to the DC. The copying/painting 
to the DC are handled by Win32::GUI::DIBitmap. This method isn’t exactly 
efficient, but would be fast enough for smooth crosshairs as the mouse 
pointer moves around. There is a much more efficient approach, but would 
involve a little more work:)

Feel free to email me off list if you have any questions.


>From: Jonathan Southwick <jon...@al...>
>To: Win32-GUI <per...@li...>
>Subject: [perl-win32-gui-users] need help with Graphic
>Date: Mon, 22 Dec 2003 11:37:15 -0500
>
>
>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
>jon...@al...
>Technical & Network Services
>Allegheny College
>Meadville, PA 16335
>(814) 332-2755
>
>
>
>-------------------------------------------------------
>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_id=1278&alloc_id=3371&op=click
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

_________________________________________________________________
Send a funky Messenger Christmas card http://www.msn.co.uk/christmascard

>From: <stu...@ya...>
>1.How can I draw StatusBar with multiple panels in it?
>   This topic was already discussed about 3 years ago.
>   Answer was then "no(t yet :-)". And if I can, how can
>   I put ProgressBar inside StatusBar?

The answer is still not yet:) The link below contains the message you would 
need to send to create additional parts in the statusbar. If you are 
desperate, then you could try that.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/status/messages/sb_setparts.asp

From the same documentation it looks like you can't (easily) add a 
progressbar (only icons and text to each part).

>
>4.I want give to user the possibility to launch my program
>   from command line, with TaskPlaner etc. I tried to put GUI
>   stuff in sub and don't start it when the program starts
>   with some switch (e.g. MyApp.exe -c 1 -g 8). It works fine
>   untill I close the program. I get the warning/error:

I couldn't reproduce your error - I may not have understood what you are 
trying to do. The code I used:

   #!/usr/bin/perl -w
   use strict;
   use Win32::GUI;
   my $num = @ARGV;
   print $num if $num;
   my ($Window,$t1);
   #dont start GUI if command line arguments
   GUIStart() unless $num;
   sub GUIStart{
       $Window = new Win32::GUI::Window(
        -pos     => [100, 100], # no error,if I comment this out
        -size    => [650, 600],
        -name   => "Window",
        );
        $t1 = $Window->AddTimer('T1',25000); # the same
        $Window->Show();
        Win32::GUI::Dialog();
   }
   sub Window_Terminate {
       return -1;
   } ;

Cheers,

jez.

_________________________________________________________________
Send a funky MSN Messenger Christmas card http://www.msn.co.uk/christmascard

Hello,

I have again some small questions:

1.How can I draw StatusBar with multiple panels in it?
  This topic was already discussed about 3 years ago.
  Answer was then "no(t yet :-)". And if I can, how can
  I put ProgressBar inside StatusBar?

2.I have upgraded to 0.0.670 Win32-GUI and now I get
  warning "the -style option is deprecated!"
  when I use   -style => WS_VISIBLE|3|WS_VSCROLL
  in Combobox. How should I change it?

3.Is it important, in which order "use SomeModule"
  statements are wrotten? in particular if I use
  several Win32::* modules , e.g.:
  use Win32::GUI;
  use Win32::OLE;
  use Win32::Process;
  use DBI;
  use Win32::GUI::AxWindow; # after Win32::GUI ??
  use Win32::Sound;
  use Win32;              # topmost or it doesn't matter?

4.I want give to user the possibility to launch my program
  from command line, with TaskPlaner etc. I tried to put GUI
  stuff in sub and don't start it when the program starts
  with some switch (e.g. MyApp.exe -c 1 -g 8). It works fine
  untill I close the program. I get the warning/error:

  (in cleanup) Can't call method "FETCH" on an undefined value
  at C:/Programme/Perl/site/lib/Win32/GUI.pm line 2345 during
  global destruction.
  The line 2445 is relating to DESTROY KillTimer.
  The minimal code :

  #!/usr/bin/perl -w
  use strict;
  use Win32::GUI;
  my ($Window,$t1);
  GUIStart();
  sub GUIStart{
      $Window = new Win32::GUI::Window(
       -pos     => [100, 100], # no error,if I comment this out
       -size    => [650, 600],
       -name   => "Window",
       );
       $t1 = $Window->AddTimer('T1',25000); # the same
       $Window->Show();
       Win32::GUI::Dialog();
  }
  sub Window_Terminate {
      return -1;
  } ;
  
  And in general, how much attention should I pay to warnings
  during terminating?? :-)


-- 
Best regards,
Pavel                          mailto:stu...@ya...