Nabble - Win32::GUI

Re: Strawberry

2008-11-29T23:22:21Z

thanks for the info
i have installed strawberry perl to the default c:\strawberry , but when i run the cpan client and try to install modules it will install everything to the activestate perl default folder c:\perl , so i have tried it again after renaming the c:\perl to something else and now it have installed modules to c:\strawberry ,
the mentioned error:(Can't call method "STORE" ...) also there with the activestate perl.
it is useful to have stawberry perl since many cpan modules have no counterpart ppm activestate modules

Sean Healy wrote:

As of October 20, Strawberry Perl is out!

http://strawberryperl.com/

It comes in two varieties: 5.10.0.3 and 5.8.8.3.

One caveat - you can only install it to the C or D drive, and there is
a separate download for each option. (But you could build it yourself
and put it anywhere you want if that limitation really bothers you.)

Win32::GUI builds cleanly out of the box with 5.10.0.3, thanks to work
done earlier by Laurent Rocher. (At least, I think that's who did the
work to make Win32::GUI build with dmake instead of Visual Studio.)

I even ran a few of the test scripts in the demo folder, and they run
fine. (By the way, I got the error 'Can't call method "STORE" on an
undefined value during global destruction' when exiting Notepad.pl.)

To install Win32::GUI on Strawberry Perl:

Run the CPAN client. (It can be found in c:\strawberry\perl\bin\, but
there's also a Strawberry Perl item in the start menu from which you can
run the CPAN client.)

In the client, type 'install ExtUtils::FakeConfig' and hit enter.

When that's done, type 'install Win32::GUI' and hit enter.

That's all there is to it.

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

Strawberry

2008-11-27T08:13:49Z

As of October 20, Strawberry Perl is out!

http://strawberryperl.com/

It comes in two varieties: 5.10.0.3 and 5.8.8.3.

One caveat - you can only install it to the C or D drive, and there is
a separate download for each option. (But you could build it yourself
and put it anywhere you want if that limitation really bothers you.)

Win32::GUI builds cleanly out of the box with 5.10.0.3, thanks to work
done earlier by Laurent Rocher. (At least, I think that's who did the
work to make Win32::GUI build with dmake instead of Visual Studio.)

I even ran a few of the test scripts in the demo folder, and they run
fine. (By the way, I got the error 'Can't call method "STORE" on an
undefined value during global destruction' when exiting Notepad.pl.)

To install Win32::GUI on Strawberry Perl:

Run the CPAN client. (It can be found in c:\strawberry\perl\bin\, but
there's also a Strawberry Perl item in the start menu from which you can
run the CPAN client.)

In the client, type 'install ExtUtils::FakeConfig' and hit enter.

When that's done, type 'install Win32::GUI' and hit enter.

That's all there is to it.

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

How to control the keyboard cursor in a text box?

2008-11-22T13:29:46Z

Hi,

I am relatively new to Perl programming (in fact, PC programming in general).

I have a script with multiple text input boxes and, everytime I move the mouse off
the window and back again, the keyboard input cursor has gone missing. What I
am doing is using copy/paste from multiple other programs and building text lines.
e.g. From 3 separate sources 1) This is 2) a silly 3) text example.
To become 'This is a silly text example'

The only cursor related functions that I can fins in Win32::Gui (set/getcursorpos)
relate to the mouse cursor not the keyboard cursor.

Any help, pointers, suggestions will be greatly appreciated.

Thank you.

D

Now with a new friend-happy design! Try the new Yahoo! Canada Messenger
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

Re: bitmap - getting mouse clicks and mouse location

2008-11-22T04:07:32Z

Hi,

Try the following:

use strict;
use warnings;
use Win32::GUI (qw {WS_CAPTION WS_SIZEBOX WS_CHILD WS_CLIPCHILDREN WS_EX_CLIENTEDGE});

my $W = new Win32::GUI::Window(
-name => "W",
-title => "mouse click tracking",
-left => 54,
-top => 77,
-width => 546,
-height => 318,
);
my $textfield = $W->AddTextfield(
-text => "",
-name => "Textfield_1",
-left => 401,
-top => 9,
-width => 129,
-height => 249,
-multiline => 1,
-vscroll => 1,
);

my   $childwindow = new Win32::GUI::Window (
    -parent      => $W,
    -name        => 'bitmap window',
        -left => 4,
        -top => 4,
        -width => 270,
        -height => 232,
    -popstyle    => WS_CAPTION | WS_SIZEBOX,
    -pushstyle   => WS_CHILD | WS_CLIPCHILDREN,
    -pushexstyle => WS_EX_CLIENTEDGE,
        #-hscroll     => 1,
    #-onScroll    => \&Generic_Scroll,
        -onMouseMove => \&Generic_MouseMove,
        -onPaint     => \&Generic_Paint,
        -onMouseDown => \&Generic_MouseDown,
   );

$childwindow->Show;

sub Generic_MouseMove {
my ($win,$xcor,$ycor)=@_;
print "MouseMove $win,$xcor,$ycor\n";
}

sub Generic_Paint {
my $win=shift;
print "Paint $win\n";
}

sub Generic_MouseDown {
my ($win,$xcor,$ycor)=@_;
print "MouseDown $win,$xcor,$ycor\n";
$textfield -> Append( "$xcor - $ycor \n")
}

$W->Show();
Win32::GUI::Dialog();

exit(0);

sub Window_Terminate {
return -1;
}

> From: pcourterelle@...
> To: perl-win32-gui-users@...
> Date: Fri, 21 Nov 2008 13:08:47 -0800
> Subject: Re: [perl-win32-gui-users] bitmap - getting mouse clicks and mouse location
>
>
> To get the absolute X and Y coordinates, would you have to subtract the
> position of the child (label) from the position of the parent (main window)?
>
> pc
>
>
> -----Original Message-----
> From: zak3 [mailto:zak31415@...]
> Sent: Friday, November 21, 2008 2:21 AM
> To: perl-win32-gui-users@...
> Subject: Re: [perl-win32-gui-users] bitmap - getting mouse clicks and mouse
> location
>
>
>
> i have experemented using as a guide the message:
> http://www.mail-archive.com/perl-win32-gui-users@.../msg03
> 025.html
>
> here is a main form and a Label, when you click on the Label, the textfield
> control will show the coordinates of mouse cursor , it seems to me that
> those coordinated are relative to the screen, you may adapt the code to
> display the coordinates relative to the form or relative to the label, or a
> graphic control.
>
> use strict;
> use warnings;
> use Win32::GUI();
>
> my $W = new Win32::GUI::Window(
> -name => "W",
> -title => "mouse click tracking",
> -left => 54,
> -top => 77,
> -width => 546,
> -height => 318,
> );
> my $textfield = $W->AddTextfield(
> -text => "",
> -name => "Textfield_1",
> -left => 401,
> -top => 9,
> -width => 129,
> -height => 249,
> -multiline => 1,
> -vscroll => 1,
> );
>
> $W->AddLabel(
> -text => "zz",
> -name => "Label_2",
> -left => 0,
> -top => 0,
> -width => 270,
> -height => 232,
> -foreground => 0,
> -background => 12615935,
> -notify => 1,
> -onMouseDown => sub { my($mx, $my) =
> Win32::GUI::GetCursorPos();$textfield -> Append( "$mx - $my \n");},
> );
>
>
>
> $W->Show();
> Win32::GUI::Dialog();
>
> exit(0);
>
> sub Window_Terminate {
> return -1;
> }
>
>
>
>
> iaagaiow wrote:
> >
> > Hello,
> >
> > I'm developing an app which will display a bitmap.? I want to be able to
> > detect mouse clicks on the bitmap and get the mouse cursor location when
> > clicks are detected.
> >
> > Displaying the bitmap is easy - there are demos that show that.? I have
> > been trying to modify the demos to detect clicks and get the mouse cursor
> > location, but nothing has worked yet.? Have been going thru doc/demos/etc,
> > and will keep doing so, but if you happen to have experience with this
> > topic, please send me any pointers you can.
> >
> > I have tried using GetCursorPos, but thus far seem to be getting undefined
> > return values.? As for the mouse click, tried setting up -onClick option
> > but this seems to be ignored.
> >
> > Thanks for your time!
> >
> > Regards,
> >
> > LP
> >
> > -------------------------------------------------------------------------
> > This SF.Net email is sponsored by the Moblin Your Move Developer's
> > challenge
> > Build the coolest Linux based applications with Moblin SDK & win great
> > prizes
> > Grand prize is a trip for two to an Open Source event anywhere in the
> > world
> > http://moblin-contest.org/redirect.php?banner_id=100&url=/
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > http://perl-win32-gui.sourceforge.net/
> >
>
> --
> View this message in context:
> http://www.nabble.com/bitmap---getting-mouse-clicks-and-mouse-location-tp205
> 49181p20618513.html
> Sent from the perl-win32-gui-users mailing list archive at Nabble.com.
>
>
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
> Build the coolest Linux based applications with Moblin SDK & win great
> prizes
> Grand prize is a trip for two to an Open Source event anywhere in the world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>
>
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
> Build the coolest Linux based applications with Moblin SDK & win great prizes
> Grand prize is a trip for two to an Open Source event anywhere in the world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

BigSnapSearch.com - 24 prizes a day, every day. Search now
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

Re: bitmap - getting mouse clicks and mouse location

2008-11-21T13:08:47Z

To get the absolute X and Y coordinates, would you have to subtract the
position of the child (label) from the position of the parent (main window)?

pc

-----Original Message-----
From: zak3 [mailto:zak31415@...]
Sent: Friday, November 21, 2008 2:21 AM
To: perl-win32-gui-users@...
Subject: Re: [perl-win32-gui-users] bitmap - getting mouse clicks and mouse
location

i have experemented using as a guide the message:
http://www.mail-archive.com/perl-win32-gui-users@.../msg03
025.html

here is a main form and a Label, when you click on the Label, the textfield
control will show the coordinates of mouse cursor , it seems to me that
those coordinated are relative to the screen, you may adapt the code to
display the coordinates relative to the form or relative to the label, or a
graphic control.

use strict;
use warnings;
use Win32::GUI();

my $W = new Win32::GUI::Window(
-name => "W",
-title => "mouse click tracking",
-left => 54,
-top => 77,
-width => 546,
-height => 318,
);
my $textfield = $W->AddTextfield(
-text => "",
-name => "Textfield_1",
-left => 401,
-top => 9,
-width => 129,
-height => 249,
-multiline => 1,
-vscroll => 1,
);

$W->AddLabel(
-text => "zz",
-name => "Label_2",
-left => 0,
-top => 0,
-width => 270,
-height => 232,
-foreground => 0,
-background => 12615935,
-notify => 1,
-onMouseDown => sub { my($mx, $my) =
Win32::GUI::GetCursorPos();$textfield -> Append( "$mx - $my \n");},
);

$W->Show();
Win32::GUI::Dialog();

exit(0);

sub Window_Terminate {
return -1;
}

iaagaiow wrote:

>
> Hello,
>
> I'm developing an app which will display a bitmap.? I want to be able to
> detect mouse clicks on the bitmap and get the mouse cursor location when
> clicks are detected.
>
> Displaying the bitmap is easy - there are demos that show that.? I have
> been trying to modify the demos to detect clicks and get the mouse cursor
> location, but nothing has worked yet.? Have been going thru doc/demos/etc,
> and will keep doing so, but if you happen to have experience with this
> topic, please send me any pointers you can.
>
> I have tried using GetCursorPos, but thus far seem to be getting undefined
> return values.? As for the mouse click, tried setting up -onClick option
> but this seems to be ignored.
>
> Thanks for your time!
>
> Regards,
>
> LP
>
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's
> challenge
> Build the coolest Linux based applications with Moblin SDK & win great
> prizes
> Grand prize is a trip for two to an Open Source event anywhere in the
> world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>

--
View this message in context:
http://www.nabble.com/bitmap---getting-mouse-clicks-and-mouse-location-tp205
49181p20618513.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great
prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

Re: bitmap - getting mouse clicks and mouse location

2008-11-21T02:20:31Z

i have experemented using as a guide the message:
http://www.mail-archive.com/perl-win32-gui-users@lists.sourceforge.net/msg03025.html

here is a main form and a Label, when you click on the Label, the textfield control will show the coordinates of mouse cursor , it seems to me that those coordinated are relative to the screen, you may adapt the code to display the coordinates relative to the form or relative to the label, or a graphic control.

use strict;
use warnings;
use Win32::GUI();

my $W = new Win32::GUI::Window(
-name => "W",
-title => "mouse click tracking",
-left => 54,
-top => 77,
-width => 546,
-height => 318,
);
my $textfield = $W->AddTextfield(
-text => "",
-name => "Textfield_1",
-left => 401,
-top => 9,
-width => 129,
-height => 249,
-multiline => 1,
-vscroll => 1,
);

$W->AddLabel(
-text => "zz",
-name => "Label_2",
-left => 0,
-top => 0,
-width => 270,
-height => 232,
-foreground => 0,
-background => 12615935,
-notify => 1,
-onMouseDown => sub { my($mx, $my) = Win32::GUI::GetCursorPos();$textfield -> Append( "$mx - $my \n");},
);

$W->Show();
Win32::GUI::Dialog();

exit(0);

sub Window_Terminate {
return -1;
}

iaagaiow wrote:

Hello,

I'm developing an app which will display a bitmap.? I want to be able to detect mouse clicks on the bitmap and get the mouse cursor location when clicks are detected.

Displaying the bitmap is easy - there are demos that show that.? I have been trying to modify the demos to detect clicks and get the mouse cursor location, but nothing has worked yet.? Have been going thru doc/demos/etc, and will keep doing so, but if you happen to have experience with this topic, please send me any pointers you can.

I have tried using GetCursorPos, but thus far seem to be getting undefined return values.? As for the mouse click, tried setting up -onClick option but this seems to be ignored.

Thanks for your time!

Regards,

LP

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

bitmap - getting mouse clicks and mouse location

2008-11-17T14:01:57Z

Hello,

I'm developing an app which will display a bitmap. I want to be able to detect mouse clicks on the bitmap and get the mouse cursor location when clicks are detected.

Displaying the bitmap is easy - there are demos that show that. I have been trying to modify the demos to detect clicks and get the mouse cursor location, but nothing has worked yet. Have been going thru doc/demos/etc, and will keep doing so, but if you happen to have experience with this topic, please send me any pointers you can.

I have tried using GetCursorPos, but thus far seem to be getting undefined return values. As for the mouse click, tried setting up -onClick option but this seems to be ignored.

Thanks for your time!

Regards,

LP

Instant access to the latest & most popular FREE games while you browse with the Games Toolbar - Download Now!

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

Re: SOLUTION --> Newlines disappearing inrichedit(unicode-content)

2008-11-08T03:56:33Z

Sory, some corrections of the last post (there was also a bug in the GetText-sub):

You need the pragmas:
use utf8; # If you want to write unicode in your perl-file
use use Encode qw/decode/;

If you want to define constants (you only need them, if you use the commented out lines in the function GetText, below):
sub WM_USER() {1024};
sub GT_DEFAULT() {0};
sub EM_GETTEXTEX() {+WM_USER+94};

Here is the Get-function:
sub GetText # gets unicode-textout of a richedit and returns it an string
{
my ($window, $richedit) = @_; # [0] = window-object, [1] = name oft the richedit-field
my $maxlen = 1024;
my $buffer = " " x $maxlen;
my $flags = 0; # alternatively You can define the constant GT_DEFAULT in the header of the program --> 'sub GT_DEFAULT() {0};'
# my $flags = GT_DEFAULT; # defined with a constant
my $codepage = 1200;
my $struct = pack("LLIpp", $maxlen, $flags, $codepage, undef, undef);
my $address = pack("P20", $struct);
my $wparam = unpack("L", $address);
my $numTchar = $window -> $richedit -> SendMessage(1118, $wparam, $buffer); # Alternatively You can define the message as constants WM_USER and EM_GETTEXTEX in the header of the program --> 'sub WM_USER() {1024};' and 'sub EM_GETTEXTEX() {+WM_USER+94};'
#my $numTchar = $window -> $richedit -> SendMessage(EM_GETTEXTEX, $wparam, $buffer); # defined with constants
my $octets = substr($buffer, 0, ($numTchar*2));
my $text = decode("UCS-2LE", $octets);
return($text); # Returns a unicode-string
}

And the Set-function:
sub SetText # prepares unicode-strings for the Text()-method of the richedit
{
my @input = @_;
my $rtf_prolog = '{\rtf1'; # Minimal-RTF-Header. Define your own RTF-Header
according the RTF-specs
$input[0] =~ s/([^\x00-\x7F])/'\uc1\u'.((ord $1 < 32768)?ord $1 :
ord($1)-65536).'?'/eg; # Converting unicode into 'escaped' RTF-format
$input[0] =~ s/(\r\n)/\\par\r\n/g; # Converting common newlines (\r\n) into
RTF-newlines (\par\r\n)
return $rtf_prolog . $input[0] . '}'; # Returns the string as RTF
}

So if you want so get the text of the field, use:
$SAVE = &GetText($window,'richedit_field');

And to set it back, use:
$window -> richdit_field -> Text(SetText($SAVE));

Regards,
Raphael

On Do 06/11/08 22:00 , Raphael Stoeckli <win32gui@...> wrote:

> Hi Octavian and Glenn
> The thing with the 'par' was the point.
> The RTF-format is documented here:
> http://msdn.microsoft.com/en-us/library/aa140283(office.10).aspx
> i had to turn the 'rn' into '\parrn'.
> So here is my solution to handle multiline-unicode-text with
> richedit-fields.
> You need the pragmas:
> use utf8; # 'sub GT_DEFAULT() {0};'
> #my $flags = $flags = GT_DEFAULT; # defined with a constant
> my $codepage = 1200;
> my $struct = pack("LLIpp", $maxlen, $flags, $codepage, undef,
> undef);
> my $address = pack("P20", $struct);
> my $wparam = unpack("L", $address);
> my $numTchar = $window -> $richedit -> SendMessage(1118, $wparam,
> $buffer); #
> Alternatively You can define the message as constants WM_USER and
> EM_GETTEXTEX in
> the header of the program --> 'sub WM_USER() {1024};' and 'sub
> EM_GETTEXTEX()
> {+WM_USER+94};'
> # my $numTchar = $WIN -> re -> SendMessage(qw(EM_GETTEXTEX
> {+WM_USER()
> {1024}+94}), $wparam, $buffer); # defined with constants
> my $octets = substr($buffer, 0, ($numTchar*2));
> my $text = decode("UCS-2LE", $octets);
> return($text); # Returns a unicode-string
> }
> And the Set-function:
> sub SetText # prepares unicode-strings for the Text()-method of the
> richedit
> {
> my @input = @_;
> my $rtf_prolog = '{rtf1'; # Minimal-RTF-Header. Define Your own
> RTF-Header
> according the RTF-specs
> $input[0] =~ s/([^x00-x7F])/'uc1u'.((ord $1 < 32768)?ord $1 :
> ord($1)-65536).'?'/eg; # Converting unicode into 'escaped'
> RTF-format
> $input[0] =~ s/(rn)/\parrn/g; # Converting common newlines (rn) into
> RTF-newlines (parrn)
> return $rtf_prolog . $input[0] . '}'; # Returns the string as RTF
> }
> So if you want so get the text of the field, use:
> $SAVE = &GetText($window,'richedit_field');
> And to set it back, use:
> $window -> richdit_field -> Text(SetText($SAVE));
> In this example, I made the function GetText variable, if you have
> more than one
> window or richedit-field.
> Honestly, I tested this not to much. Newlines, tabs and spaces works
> well. But i
> don't know what happens, if there is something totally unexpected in
> the richedit.
> Feel free to ask, if anyone needs examples or further information to
> the
> functions above.
> Again, thanks to all.
> Regards,
> Raphael
> On Wed 05/11/08 22:49 , "Octavian Rasnita" sent:
> > If I remember well, you need to use
> > par
> > in the RTF document for specifying a new line.
> >
> > Find and read the RTF specifications. It will help you to do more
> other
> > things.
> >
> > Octavian
> >
> > ----- Original Message -----
> > From: "Raphael Stoeckli" rabanti.ch>To: Sent: Wednesday,
> November 05, 2008 10:05 PM
> > Subject: [perl-win32-gui-users] Newlines disappearing in
> > richedit(unicode-content)
> >
> >
> > > Hi @ all
> > >
> > > I’m working on an program, that can handle
> > Unicode-text in > richedit-fields.
> > > The fields sets and gets the text using some
> > modifications of the > richedit-field. These mods are also from
> this
> > mailinglist.>
> > > The problem is, that Newlines (rn) in strings
> > (whether if it’s ASCII or > Unicode) seems to be wiped, when
> I put the
> > string into the modified > richedit-field.
> > >
> > > I wrote a demo/test-program to show this
> > behavior. You can get it here: >
> http://www.rabanti.ch/storage/rtf_utf_test.pl or
> > > http://www.rabanti.ch/storage/rtf_utf_test.zip (if
> > there is a problem with > the encoding, while downloading)
> > > Anyhow I try to describe it abbreviated in this
> > post.>
> > > For saving Unicode-content into a string, I use
> > these functions:> -------------------------------------
> > > sub WM_USER() {1024};
> > > sub EM_GETTEXTEX() {+WM_USER+94};
> > > sub GT_DEFAULT() {0};
> > >
> > > sub get_unicode # takes the text out of the
> > richedit-field> {
> > > my $maxlen = 1024;
> > > my $buffer = " " x
> > $maxlen;> my $flags = GT_DEFAULT;
> > > my $codepage = 1200;
> > > my $struct = pack("LLIpp", $maxlen,
> > $flags, $codepage, undef, undef);> my $address = pack("P20",
> > $struct);> my $wparam = unpack("L",
> > $address);> my $numTchar = $WIN -> re ->
> > SendMessage(EM_GETTEXTEX, $wparam, > $buffer); # re is the
> richedit-field, $WIN the
> > window-object> my $octets = substr($buffer, 0,
> > ($numTchar*2));> my $text = decode("UCS-2LE",
> > $octets);> return($text);
> > > }
> > > -------------------------------------
> > >
> > > This is the richedit-field
> > (simplified):>
> > > $RE = $WIN -> AddRichEdit(
> > > -name => 're',
> > > -size => [240, 80],
> > > -pushstyle => WS_CHILD | WS_VISIBLE |
> > WS_VSCROLL | WS_HSCROLL | ES_LEFT > | ES_MULTILINE,
> > > );
> > >
> > > -------------------------------------
> > >
> > > I get the text out of the field like
> > that:> $SAVE = &get_unicode;
> > >
> > > When I try to write the string back into the
> > field, I use this function > and definition:
> > > -------------------------------------
> > > our $RTF_PROLOG = '{rtf1';
> > >
> > > sub string2rtf # string-converter for
> > RTF-handling> {
> > > my @input = @_;
> > > $input[0] =~ s/([^x00-x7F])/'uc1u'.((ord
> > $1 < 32768)?ord $1 : > ord($1)-65536).'?'/eg;
> > > return $input[0];
> > > }
> > > -------------------------------------
> > >
> > > I try to set the text like that:
> > > $WIN -> re -> Text($RTF_PROLOG .
> > string2rtf($SAVE) . '}');>
> > > The result is that all stored lines (in the
> > string) appear on one single > line, without newlines.
> > > The operation >> $input[0] =~
> > s/([^x00-x7F])/'uc1u'.((ord $1 < > 32768)?ord $1 :
> ord($1)-65536).'?'/eg; seems to wipe the newlines. I > checked the
> converted strings. The newlines
> > (rn) are still there, > nonetheless the richedit-field do not
> recognize
> > them. If I use $WIN -> > re -> Text($SAVE), the Newlines are
> > appearing, but the unicode is broken.>
> > > I think it's something about a sent
> > (respectively not sent) system-signal. > But I have at this time
> no plan about
> these
> > things.> I tested it on a Win2K (SP4)- System and a XP
> > (SP3)-System with win32::GUI > v1.06 and Activestate Perl
> v5.8.6.811
> > >
> > > Can someone explain me this behavior, and get me
> > a hint, how to correct > this?
> > >
> > > Many thanks in advance!... and much sorry for
> > the bad English.>
> > > Regards,
> > > Raphael
> > >
> > >
> > >
> >
> ------------------------------------------------------------------------->
> This
> SF.Net email is sponsored by the Moblin
> > Your Move Developer's > challenge
> > > Build the coolest Linux based applications with
> > Moblin SDK & win great > prizes
> > > Grand prize is a trip for two to an Open Source
> > event anywhere in the > world
> > > http://moblin-contest.org/redirect.php?banner_id=100&url=/>
> > _______________________________________________>
> Perl-Win32-GUI-Users mailing list
> > > >
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-use
> > rs> http://perl-win32-gui.sourceforge.net/
> >
> >
> >
> >
>
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's
> challenge
> Build the coolest Linux based applications with Moblin SDK & win
> great prizes
> Grand prize is a trip for two to an Open Source event anywhere in
> the world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>
>

From forum: perl-win32-gui-users

Re: Threads

2008-11-06T15:06:30Z

> I thought only the main thread can be used to create GUI elements reliably.
> Isn't that true?

No. As long as you are using the latest version of Win32::GUI and a late perl (5.8.7 +) you can have any number of threads creating GUI objects (a separate message pump will be created in each thread - so when one thread/window is frozen becuase it's doing work, all other thread/windows will still work).

The big problem becomes when you want to share Win32::GUI objects (the handles) between threads - for some things you'll be OK, for others you may get burnt (this is a windows issue rather than Win32::GUI). The best solution is to use the Win32::GUI object in the thread that created it and use thread safe queues to communicate between threads.

You are also safe when other perl modules create threads (perl and C threads) and comunicate back to the thread with the Win32::GUI GUI.

For some examples on how easy threading can be with Win32::GUI have a look at:

Win32::GUI::ThreadUtils @ http://www.robmay.me.uk/win32gui

The module is flaged as experimental, but it will give a good intro. Has some examples of various threading models - boss/worker etc.

Cheers,

Jeremy.

> Octavian
>
> ----- Original Message -----
> From: "Perl Rob"
> To:
> Sent: Thursday, November 06, 2008 6:52 PM
> Subject: [perl-win32-gui-users] Threads
>
>
>> Hi all,
>>
>>
>>
>> Am I susceptible to a crash if I create a Win32::GUI object (such as a
>> label) in one thread, then call methods on that object in another thread?
>>
>>
>>
>> Following is an example of what I mean. Notice that I'm passing the label
>> object as an argument to the entry point function of the new thread. This
>> seems to work, but I don't know if I should be doing it just because it
>> works:
>>
>>
>>
>> use strict;
>>
>> use Win32::GUI();
>>
>> use threads;
>>
>>
>>
>> my $main = Win32::GUI::Window->new
>>
>> (
>>
>> -name => 'Main',
>>
>> -text => 'Template Window',
>>
>> -size => [300,300],
>>
>> );
>>
>>
>>
>> my $label = $main->AddLabel
>>
>> (
>>
>> -text => 'I like the number 10',
>>
>> -pos => [10,10],
>>
>> );
>>
>>
>>
>> threads->create('countDown', $label);
>>
>>
>>
>> $main->Center();
>>
>> $main->Show();
>>
>> Win32::GUI::Dialog();
>>
>>
>>
>> sub countDown
>>
>> {
>>
>> my $labelObject = shift;
>>
>>
>>
>> for (my $i=9; $i>0; $i--)
>>
>> {
>>
>> $labelObject->Text("I like the number $i");
>>
>> sleep(1);
>>
>> }
>>
>> }
>>
>>
>>
>> Thanks,
>>
>> Rob
>>
>>
>
>
> --------------------------------------------------------------------------------
>
>
>> -------------------------------------------------------------------------
>> This SF.Net email is sponsored by the Moblin Your Move Developer's
>> challenge
>> Build the coolest Linux based applications with Moblin SDK & win great
>> prizes
>> Grand prize is a trip for two to an Open Source event anywhere in the
>> world
>> http://moblin-contest.org/redirect.php?banner_id=100&url=/
>
>
> --------------------------------------------------------------------------------
>
>
>> _______________________________________________
>> Perl-Win32-GUI-Users mailing list
>> Perl-Win32-GUI-Users@...
>> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>> http://perl-win32-gui.sourceforge.net/
>
>
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
> Build the coolest Linux based applications with Moblin SDK & win great prizes
> Grand prize is a trip for two to an Open Source event anywhere in the world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

_________________________________________________________________
BigSnapSearch.com - 24 prizes a day, every day - Search Now!
http://clk.atdmt.com/UKM/go/117442309/direct/01/
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

Re: SOLUTION --> Newlines disappearing in richedit(unicode-content)

2008-11-06T13:00:52Z

Hi Octavian and Glenn

The thing with the '\par' was the point.
The RTF-format is documented here:
http://msdn.microsoft.com/en-us/library/aa140283(office.10).aspx

i had to turn the '\r\n' into '\\par\r\n'.

So here is my solution to handle multiline-unicode-text with richedit-fields.

You need the pragmas:
use utf8; # 'sub GT_DEFAULT() {0};'
#my $flags = $flags = GT_DEFAULT; # defined with a constant
my $codepage = 1200;
my $struct = pack("LLIpp", $maxlen, $flags, $codepage, undef, undef);
my $address = pack("P20", $struct);
my $wparam = unpack("L", $address);
my $numTchar = $window -> $richedit -> SendMessage(1118, $wparam, $buffer); #
Alternatively You can define the message as constants WM_USER and EM_GETTEXTEX in
the header of the program --> 'sub WM_USER() {1024};' and 'sub EM_GETTEXTEX()
{+WM_USER+94};'
# my $numTchar = $WIN -> re -> SendMessage(qw(EM_GETTEXTEX {+WM_USER()
{1024}+94}), $wparam, $buffer); # defined with constants
my $octets = substr($buffer, 0, ($numTchar*2));
my $text = decode("UCS-2LE", $octets);
return($text); # Returns a unicode-string
}

And the Set-function:

sub SetText # prepares unicode-strings for the Text()-method of the richedit
{
my @input = @_;
my $rtf_prolog = '{\rtf1'; # Minimal-RTF-Header. Define Your own RTF-Header
according the RTF-specs
$input[0] =~ s/([^\x00-\x7F])/'\uc1\u'.((ord $1 < 32768)?ord $1 :
ord($1)-65536).'?'/eg; # Converting unicode into 'escaped' RTF-format
$input[0] =~ s/(\r\n)/\\par\r\n/g; # Converting common newlines (\r\n) into
RTF-newlines (\par\r\n)
return $rtf_prolog . $input[0] . '}'; # Returns the string as RTF
}

So if you want so get the text of the field, use:
$SAVE = &GetText($window,'richedit_field');

And to set it back, use:
$window -> richdit_field -> Text(SetText($SAVE));

In this example, I made the function GetText variable, if you have more than one
window or richedit-field.
Honestly, I tested this not to much. Newlines, tabs and spaces works well. But i
don't know what happens, if there is something totally unexpected in the richedit.

Feel free to ask, if anyone needs examples or further information to the
functions above.
Again, thanks to all.

Regards,
Raphael

On Wed 05/11/08 22:49 , "Octavian Rasnita" orasnita@... sent:

> If I remember well, you need to use
> \par
> in the RTF document for specifying a new line.
>
> Find and read the RTF specifications. It will help you to do more other
> things.
>
> Octavian
>
> ----- Original Message -----
> From: "Raphael Stoeckli" rabanti.ch>To: Sent: Wednesday,

November 05, 2008 10:05 PM

> Subject: [perl-win32-gui-users] Newlines disappearing in
> richedit(unicode-content)
>
>
> > Hi @ all
> >
> > I’m working on an program, that can handle
> Unicode-text in > richedit-fields.
> > The fields sets and gets the text using some
> modifications of the > richedit-field. These mods are also from this
> mailinglist.>
> > The problem is, that Newlines (\r\n) in strings
> (whether if it’s ASCII or > Unicode) seems to be wiped, when I put the
> string into the modified > richedit-field.
> >
> > I wrote a demo/test-program to show this
> behavior. You can get it here: > http://www.rabanti.ch/storage/rtf_utf_test.pl or
> > http://www.rabanti.ch/storage/rtf_utf_test.zip (if
> there is a problem with > the encoding, while downloading)
> > Anyhow I try to describe it abbreviated in this
> post.>
> > For saving Unicode-content into a string, I use
> these functions:> -------------------------------------
> > sub WM_USER() {1024};
> > sub EM_GETTEXTEX() {+WM_USER+94};
> > sub GT_DEFAULT() {0};
> >
> > sub get_unicode # takes the text out of the
> richedit-field> {
> > my $maxlen = 1024;
> > my $buffer = " " x
> $maxlen;> my $flags = GT_DEFAULT;
> > my $codepage = 1200;
> > my $struct = pack("LLIpp", $maxlen,
> $flags, $codepage, undef, undef);> my $address = pack("P20",
> $struct);> my $wparam = unpack("L",
> $address);> my $numTchar = $WIN -> re ->
> SendMessage(EM_GETTEXTEX, $wparam, > $buffer); # re is the richedit-field, $WIN the
> window-object> my $octets = substr($buffer, 0,
> ($numTchar*2));> my $text = decode("UCS-2LE",
> $octets);> return($text);
> > }
> > -------------------------------------
> >
> > This is the richedit-field
> (simplified):>
> > $RE = $WIN -> AddRichEdit(
> > -name => 're',
> > -size => [240, 80],
> > -pushstyle => WS_CHILD | WS_VISIBLE |
> WS_VSCROLL | WS_HSCROLL | ES_LEFT > | ES_MULTILINE,
> > );
> >
> > -------------------------------------
> >
> > I get the text out of the field like
> that:> $SAVE = &get_unicode;
> >
> > When I try to write the string back into the
> field, I use this function > and definition:
> > -------------------------------------
> > our $RTF_PROLOG = '{\rtf1';
> >
> > sub string2rtf # string-converter for
> RTF-handling> {
> > my @input = @_;
> > $input[0] =~ s/([^\x00-\x7F])/'\uc1\u'.((ord
> $1 < 32768)?ord $1 : > ord($1)-65536).'?'/eg;
> > return $input[0];
> > }
> > -------------------------------------
> >
> > I try to set the text like that:
> > $WIN -> re -> Text($RTF_PROLOG .
> string2rtf($SAVE) . '}');>
> > The result is that all stored lines (in the
> string) appear on one single > line, without newlines.
> > The operation >> $input[0] =~
> s/([^\x00-\x7F])/'\uc1\u'.((ord $1 < > 32768)?ord $1 : ord($1)-65536).'?'/eg; seems to wipe the newlines. I > checked the converted strings. The newlines
> (\r\n) are still there, > nonetheless the richedit-field do not recognize
> them. If I use $WIN -> > re -> Text($SAVE), the Newlines are
> appearing, but the unicode is broken.>
> > I think it's something about a sent
> (respectively not sent) system-signal. > But I have at this time no plan about

these

> things.> I tested it on a Win2K (SP4)- System and a XP
> (SP3)-System with win32::GUI > v1.06 and Activestate Perl v5.8.6.811
> >
> > Can someone explain me this behavior, and get me
> a hint, how to correct > this?
> >
> > Many thanks in advance!... and much sorry for
> the bad English.>
> > Regards,
> > Raphael
> >
> >
> >
> -------------------------------------------------------------------------> This

SF.Net email is sponsored by the Moblin
> Your Move Developer's > challenge
> > Build the coolest Linux based applications with
> Moblin SDK & win great > prizes
> > Grand prize is a trip for two to an Open Source
> event anywhere in the > world
> > http://moblin-contest.org/redirect.php?banner_id=100&url=/>
> _______________________________________________> Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@...>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-use
> rs> http://perl-win32-gui.sourceforge.net/
>
>
>
>

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

Re: Threads

2008-11-06T11:58:10Z

I thought only the main thread can be used to create GUI elements reliably.
Isn't that true?

Octavian

----- Original Message -----
From: "Perl Rob" <perlrob@...>
To: <perl-win32-gui-users@...>
Sent: Thursday, November 06, 2008 6:52 PM
Subject: [perl-win32-gui-users] Threads

> Hi all,
>
>
>
> Am I susceptible to a crash if I create a Win32::GUI object (such as a
> label) in one thread, then call methods on that object in another thread?
>
>
>
> Following is an example of what I mean. Notice that I'm passing the label
> object as an argument to the entry point function of the new thread. This
> seems to work, but I don't know if I should be doing it just because it
> works:
>
>
>
> use strict;
>
> use Win32::GUI();
>
> use threads;
>
>
>
> my $main = Win32::GUI::Window->new
>
> (
>
> -name => 'Main',
>
> -text => 'Template Window',
>
> -size => [300,300],
>
> );
>
>
>
> my $label = $main->AddLabel
>
> (
>
> -text => 'I like the number 10',
>
> -pos => [10,10],
>
> );
>
>
>
> threads->create('countDown', $label);
>
>
>
> $main->Center();
>
> $main->Show();
>
> Win32::GUI::Dialog();
>
>
>
> sub countDown
>
> {
>
> my $labelObject = shift;
>
>
>
> for (my $i=9; $i>0; $i--)
>
> {
>
> $labelObject->Text("I like the number $i");
>
> sleep(1);
>
> }
>
> }
>
>
>
> Thanks,
>
> Rob
>
>

--------------------------------------------------------------------------------

> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's
> challenge
> Build the coolest Linux based applications with Moblin SDK & win great
> prizes
> Grand prize is a trip for two to an Open Source event anywhere in the
> world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/

--------------------------------------------------------------------------------

> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

Threads

2008-11-06T08:52:04Z

Hi all,

Am I susceptible to a crash if I create a Win32::GUI object (such as a label) in one thread, then call methods on that object in another thread?

Following is an example of what I mean. Notice that I'm passing the label object as an argument to the entry point function of the new thread. This seems to work, but I don't know if I should be doing it just because it works:

use strict;

use Win32::GUI();

use threads;

my $main = Win32::GUI::Window->new

(

-name => 'Main',

-text => 'Template Window',

-size => [300,300],

);

my $label = $main->AddLabel

(

-text => 'I like the number 10',

-pos => [10,10],

);

threads->create('countDown', $label);

$main->Center();

$main->Show();

Win32::GUI::Dialog();

sub countDown

{

my $labelObject = shift;

for (my $i=9; $i>0; $i--)

{

$labelObject->Text("I like the number $i");

sleep(1);

}

Thanks,

Rob

From forum: perl-win32-gui-users

Re: Win XP styles

2008-11-06T00:44:47Z

Hi,

The way I do this is to create a child window that is the same size as the tab control (with the tab showing) and overlay it on the tab control. I then place the controls on this child window.

Cheers,

Jeremy.

Date: Wed, 5 Nov 2008 10:26:41 +0300
From: Ilya.Bandorin@...
To: tehmadcap@...; perl-win32-gui-users@...
Subject: Re: [perl-win32-gui-users] Win XP styles

Hello Jaun,

Sorry for offtopic question, but I’m very interested how do you plan to deal with tabstrip controls with XP style activated? In XP style it has white background but all controls that you put on it will have it default (gray). Or you just don’t use tabstrips in your apps?

Regards,
_____
Ilya Bandorin

From: Jaun [mailto:tehmadcap@...]
Sent: Tuesday, November 04, 2008 10:51 AM
To: perl-win32-gui-users@...
Subject: [perl-win32-gui-users] Win XP styles

Hi,

I've been trying to get a listview which looks like this: http://delphitutorial.info/wp-content/uploads/2007/07/next-grid.jpg as opposed to the old (and ugly) style: http://www.knowdotnet.com/articles/PrintListViewDemoForm.jpg

Robert's perl.exe.manifest file did the trick only it doesn't work after packing the script to an exe. Is there another way to use xp styles?

Also on the subject of Listview, how do you get row sorting functionality? (with an arrow on the column which the rows are being sorted by)

Any help appreciated,

-Jaun

=========================================================

Ce message et toutes les pieces jointes (ci-apres le "message")
sont confidentiels et susceptibles de contenir des informations
couvertes par le secret professionnel. Ce message est etabli
a l'intention exclusive de ses destinataires. Toute utilisation
ou diffusion non autorisee interdite.
Tout message electronique est susceptible d'alteration. La SOCIETE GENERALE
et ses filiales declinent toute responsabilite au titre de ce message
s'il a ete altere, deforme falsifie.

=========================================================

This message and any attachments (the "message") are confidential,
intended solely for the addressees, and may contain legally privileged
information. Any unauthorised use or dissemination is prohibited.
E-mails are susceptible to alteration. Neither SOCIETE GENERALE nor any
of its subsidiaries or affiliates shall be liable for the message
if altered, changed or falsified.

=========================================================

Win £1000 John Lewis shopping sprees with BigSnapSearch.com Search now
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

From forum: perl-win32-gui-users

Re: Win XP styles

2008-11-06T00:40:55Z

You shouldn't have any issue with Reshacker and PP. I can recommend PerlApp with Win32GUI, it's a nice tool.

As a side you can also use Reshacker to add icons, bitmaps, string tables and other objects to the exe. In the case of icons, bitmaps, string tables Win32::GUI automatically looks into the exe first so you dont need to change your code.

Cheers,

Jeremy.

Date: Tue, 4 Nov 2008 20:32:02 +1100
From: tehmadcap@...
To: jez_white@...; perl-win32-gui-users@...
Subject: Re: [perl-win32-gui-users] Win XP styles

I don't have an active license for perlapp so I've been using PP. Reshacker looks good, as long as the end result is the same it should do fine, thanks.

On Tue, Nov 4, 2008 at 8:12 PM, Jeremy White <jez_white@...> wrote:

Hi,

When packing the script into an exe what tool are you using? If you are using PerlApp from activestate you may need to update to a later version as I think it adds a manifest to the exe which overrides any file based manifest. You can manually change the manifest with a tool such as reshacker to force it to use XP styles.

As a side the manifest file should always match the name of the exe being run.

Cheers,

Jez.
________________________________
> Date: Tue, 4 Nov 2008 18:50:55 +1100
> From: tehmadcap@...
> To: perl-win32-gui-users@...
> Subject: [perl-win32-gui-users] Win XP styles

>
> Hi,
>
> I've been trying to get a listview which looks like this: http://delphitutorial.info/wp-content/uploads/2007/07/next-grid.jpg as opposed to the old (and ugly) style: http://www.knowdotnet.com/articles/PrintListViewDemoForm.jpg
>
> Robert's perl.exe.manifest file did the trick only it doesn't work after packing the script to an exe. Is there another way to use xp styles?
>
>
> Also on the subject of Listview, how do you get row sorting functionality? (with an arrow on the column which the rows are being sorted by)
>
>
> Any help appreciated,
>
> -Jaun

_________________________________________________________________
X Factor: latest video, features and more. Click here!
http://clk.atdmt.com/GBL/go/115454063/direct/01/

From forum: perl-win32-gui-users