perl-win32-gui-users — Using the Win32::GUI Perl extension

Re: [perl-win32-gui-users] newbie ? - creating PPM's

[Marcus <li...@wo...>]

On 19.03.02 at 16:32 Joe...@pa... wrote:
>How do I take a tar-ball and install it in to the Active Perl?

You need MS VC 6, and then you do the usual:
perl Makefile.PL
make
make test
make install

Otherwise, maybe a request to ActiveState might get us a PPM. I don't
have MS VC 6.

Marcus

[perl-win32-gui-users] newbie ? - creating PPM's

[<Joe...@pa...>]

Joe Pfaltzgraff@PATAPSCO
03/19/2002 04:32 PM

I'm using Active Perl, and have been having trouble with win32::gui::font - I
can't seem to change the size.
I saw one place that recomended I download and install the latest version - but
the latest version hasn't been made into a PPM yet.
How do I take a tar-ball and install it in to the Active Perl?

Thanks!
Joe

[perl-win32-gui-users] HTML2RTF

[Flame <gu...@us...>]

Hi everyone,

First off, this is Ultimate Red Dragon, changed email addys.  (If anyone
cares)

I've finished what seems to be a working version of the HTML to RTF
converter.  It isn't all that complex, but it does the job.  Don't
expect it to do any detailed formatting, it will only really attempt to
work with Bold, Italics, Underline and I'm considering adding in FONT
support.

All I can say for certain is that my previously posted RTF2HTML sub does
work with this, so it can be used to temporaraly store RTF data in a
variable for example.  (Other uses should be equally obvious.)

Anyway, as before, suggestions and comments are welcome.

The following REQUIRES HTML::Parser

sub html2rtf($){
   my $re = $main->reDesc;  #Just set this to the RichEdit object
   my $text = shift;
   $text =~ s/<BR>/\r\n/gi;
   my $cpos = 0;
   $re->Text('');

   my @b;
   my @i;
   my @u;

   my $start = sub {
      my $operator = shift;
         $re->Select(999999,999999);
         my ($temp) = $re->Selection();
      if($operator eq 'b'){
         push(@b,[$temp]);
      }elsif($operator eq 'i'){
         push(@i,[$temp]);
      }elsif($operator eq 'u'){
         push(@u,[$temp]);
      }
   };

   my $end = sub {
      my $operator = shift;
      $re->Select(99999,99999);
      my($stop) = $re->Selection();
      if($operator eq 'b' && defined($b[-1][0])){
         $b[-1][1] = $stop;
      }elsif($operator eq 'i' && defined($i[-1][0])){
         $i[-1][1] = $stop;
      }elsif($operator eq 'u' && defined($u[-1][0])){
         $u[-1][1] = $stop;
      }
   };

   my $texth = sub {
      my $txt = shift;
      $re->Text($re->Text().$txt);
   };


   my $p = HTML::Parser->new(api_version => 3,
                             start_h     =>[$start,'tagname'],
                             end_h       =>[$end,'tagname'],
                             text_h      =>[$texth,'dtext'],

                             report_tags => [qw(b i u br text)],
                            );

   $p->parse($text)->eof();

   foreach my $bld (@b){
      unless(defined($bld->[1])){
         $re->Select(999999,999999);
         my ($temp) = $re->Selection();
         $bld->[1] = $temp;
      }
      $re->Select($bld->[0],$bld->[1]);
      $re->SetCharFormat(-bold=>1);
   }
   foreach my $bld (@i){
         unless(defined($bld->[1])){
            $re->Select(999999,999999);
            my ($temp) = $re->Selection();
            $bld->[1] = $temp;
         }
         $re->Select($bld->[0],$bld->[1]);
         $re->SetCharFormat(-italic=>1);
   }
   foreach my $bld (@u){
         unless(defined($bld->[1])){
            $re->Select(999999,999999);
            my ($temp) = $re->Selection();
            $bld->[1] = $temp;
         }
         $re->Select($bld->[0],$bld->[1]);
         $re->SetCharFormat(-underline=>1);
   }

   $re->Select(999999,999999);

   return 1;
}

Re: [perl-win32-gui-users] Compiling Win32::GUI (Re: lpt1)

[Flame <gu...@us...>]

Rescently, Win32-GUI was updated, and the PPM has not been, AFAIK,
updated along with it.  So if you want the latest version, you do need
to compile it.

Anyone know anything about the status of the PPM update?

Scott 'me22' McMurray wrote:

> Do you really need to compile it?
> I couldn't, but the binary from PPM works fine (for me anyway)...
> - me22
> _________________________________________________________________
>     http://fastmail.ca/ - Fast Secure Web Email for Canadians

[perl-win32-gui-users] Compiling Win32::GUI (Re: lpt1)

[Scott 'm. M. <me...@fa...>]

Do you really need to compile it?
I couldn't, but the binary from PPM works fine (for me anyway)...
- me22
_________________________________________________________________
    http://fastmail.ca/ - Fast Secure Web Email for Canadians

Re: [perl-win32-gui-users] hiding title bar

[Johan L. <jo...@ba...>]

Joe wrote:
>Is there a way to hide the title bar and/or frame of a window?  I want to get
>rid of the bar with the icon, name, and close buttons, and if possible get rid
>of the frame around the entire window.

If you use The GUI Loft you can easily do this by setting the Window 
property DialogBox to "Borderless" (it uses the class described below).


If not, you can use the class Win32::GUI::BorderlessWindow when you create 
your Window (it uses the technique described below). It's available in The 
GUI Loft source distro, in the PPM\AdHoc\lib\Win32\GUI directory.

Download here:
http://www.bahnhof.se/~johanl/perl/Loft/


Or, if you're more of a copy-paste kind of guy, set the style to

-style => 0x80000000,           #WS_POPUP

when you create your Win32::GUI::Window object.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "The GNU Image-Finding Tool - GNU Project - F..."
http://www.gnu.org/software/gift/gift.html

[perl-win32-gui-users] hiding title bar

[<Joe...@pa...>]

Joe Pfaltzgraff@PATAPSCO
03/11/2002 11:13 AM

Is there a way to hide the title bar and/or frame of a window?  I want to get
rid of the bar with the icon, name, and close buttons, and if possible get rid
of the frame around the entire window.

Thanks!
Joe

[perl-win32-gui-users] lpt1

[<ma...@mm...>]

hi. i'm compiling win32::gui 0.0.665 on win98se using dmake, perl 5.6.1.631
and vc++ 6, and when it gets to the point of linking everything its starts
printing the whole link command over and over again. any1 encountered this
at all?

thanx in advance

Re: RE: [perl-win32-gui-users] Re: Re: RTF 2 HTML

[Ultimate R. D. <scc...@ho...>]

Thanks for the advice, I've taken a closer look at RTF::HTML::Converter and 
a few other RTF packages because of it.

Unfortunately, none of those quite satisfy the goals I had for a number of 
reasons.  First of all, although I may be mistaken, each of those seems 
designed to output to another file.  I wanted something completely internal 
that wouldn't need to create a temporary file for various functions.

Why I believe an external file is needed:
   I have no clue how to access the RE field AS RTF data.  The only method 
of getting at it in that format that I know of is to have it save to a file 
and then read it in again.  The same problem applies to the RTF2HTML thing, 
you would need to save it and have it read in once more by the RichEdit 
field.  If this isn't true, I would REALLY like to be told how to avoid the 
external file.

The only redeeming quality to my method is that it's self-contained (for the 
most part at least).  It isn't forced to output to a file first.  I don't 
really mean to say that my way is better than the others because of it, just 
better suited to my needs, and I rather hoped that someone else could 
benefit from what I developed anyway.

I do plan on using HTML::Parser as I said before, though I'm rather 
unfamiliar with it so this could take time.

Thank you for the suggestions and advice.

Original Message:
---------------------------------------------
Well, for converting HTML to RTF, I believe Johan was meaning that you 
should be using an HTML parser AND a RTF Generator to:

read HTML file watching for events when an event happens check the event 
data such as what tag fired the event and then pass that info along with the 
(tag) data off to the RTF generator object.

This would be very similar to how the XML::SAX* modules work.  I have not 
really worked with the XML::SAX* modules but a few times, but basically, you 
write your own package object and use XML::SAX* to capture events in the 
HTML source file.  It passes these to your package subs, which you can then 
do conditional processing based on what event is sent.  And then, you pass 
this data to where ever you need (usually an XML writer.  Basically, this is 
a way to transform one xml document into something else, either XML, HTML, 
CSV, or whatever format you can write up).

While going with this approach would take a little longer:
1)its main advantage is that it is easier to package into a real module to 
share (hint)
2) its extensable
3) with the events already defined in HTML and the events already defined in 
RTF output, it will be far less work to change the parsing rules then the 
role your own approach taken in the sub below.(you dont have to worry about.

I can "agree" with you on your point about RTF::Parser's lack of 
documentation, but it still is a decent prebuilt package.  Generally, "we"  
end up missing something when trying to do something manually that a module 
already has been built to do.

I tried the RTF::Parser's rtf2html.bat and found it did a very good job.  
Now, granted, I did not pass anything odd into it the html file, but it 
created very nice HTML output.

Hope this helps.

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:su...@pe...

_________________________________________________________________
Join the world’s largest e-mail service with MSN Hotmail. 
http://www.hotmail.com

[perl-win32-gui-users] Borderless ListView / Styles ?

[mediaMinds - S. <se...@me...>]

Hi there,

I'am new at this list and first I would like to thank Aldo Calpini for =
this great package ...

It really works fine. But I have two little questions. Maybe one of you =
can help.

1.) How can I create a ListView without any borders ?

2.) Where can I get a description of that styles like ( WS_VISIBLE and =
so on ... )
I found some descriptions in a C++ description but i'am only Perl. No C =
knowledge.

Thanks a lot ,
Casi ...

RE: [perl-win32-gui-users] Re: Re: RTF 2 HTML

[Frazier, J. J. <Joe...@Pe...>]

Well, for converting HTML to RTF, I believe Johan was meaning that you =
should be using an HTML parser AND a RTF Generator to:

read HTML file watching for events
when an event happens check the event data such as what tag fired the =
event and then pass that info along with the (tag) data off to the RTF =
generator object. =20

This would be very similar to how the XML::SAX* modules work.  I have =
not really worked with the XML::SAX* modules but a few times, but =
basically, you write your own package object and use XML::SAX* to =
capture events in the HTML source file.   It passes these to your =
package subs, which you can then do conditional processing based on what =
event is sent.  And then, you pass this data to where ever you need =
(usually an XML writer.  Basically, this is a way to transform one xml =
document into something else, either XML, HTML, CSV, or whatever format =
you can write up). =20

While going with this approach would take a little longer:
1)its main advantage is that it is easier to package into a real module =
to share (hint)
2) its extensable
3) with the events already defined in HTML and the events already =
defined in RTF output, it will be far less work to change the parsing =
rules then the role your own approach taken in the sub below.(you dont =
have to worry about.

I can "agree" with you on your point about RTF::Parser's lack of =
documentation, but it still is a decent prebuilt package.  Generally, =
"we"  end up missing something when trying to do something manually that =
a module already has been built to do.

I tried the RTF::Parser's rtf2html.bat and found it did a very good job. =
 Now, granted, I did not pass anything odd into it the html file, but it =
created very nice HTML output.

Hope this helps.

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:su...@pe...



> -----Original Message-----
> From: Ultimate Red Dragon [mailto:scc...@ho...]
> Sent: Thursday, March 07, 2002 6:22 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] Re: Re: RTF 2 HTML
>=20
>=20
> Well, in reply to Johan.  I'll admit that I kinda knew those=20
> were there, but=20
> the documentation on them is either horrible or non-existent=20
> (depending on=20
> which RTF modules you look at.)  As for the HTML2RTF, I know=20
> of no already=20
> existing interpreter, but I plan on using HTML::Parser to=20
> make it simpler.
>=20
> Anyway, I managed to get it to properly translate '<', '>'=20
> and '&' into=20
> their HTML counterparts.  Please point out any bugs or=20
> suggestions you have.
>=20
> sub rtf2html{
>    my $re =3D $main->reDesc;  #Just set this to the RichEdit object
>    my $oldtext =3D $re->Text();
>    my @escapes;
>    {
>       my $temp =3D -1;
>       while(($temp =3D index($oldtext,'<',$temp+1)) !=3D -1){
>          push(@escapes,[$temp,'&lt']);
>       }
>       $temp =3D -1;
>       while(($temp =3D index($oldtext,'>',$temp+1)) !=3D -1){
>          push(@escapes,[$temp,'&gt;']);
>       }
>       $temp =3D -1;
>       while(($temp =3D index($oldtext,'&',$temp+1)) !=3D -1){
>          push(@escapes,[$temp,'&amp;']);
>       }
>    }
>=20
>    @escapes =3D sort({ $a->[0] <=3D> $b->[0] } @escapes);
>    foreach (@escapes){
>       print $_->[0]." =3D ".$_->[1]."\n";
>    }
>=20
>    my $i =3D 0;
>    my $b =3D 0;
>    my $u =3D 0;
>    my $text =3D '';
>=20
>    my $offset =3D 0;
>    foreach my $x (0..length($oldtext)){
>       $re->Select($x,$x+1);
>       my %att =3D $re->GetCharFormat();
>       if(($i && !exists($att{-italic})) || (!$i &&=20
> exists($att{-italic}))){
>          $i =3D $att{-italic};
>          $text .=3D ($i ? '<I>' : '</I>');
>       }
>       if(($b && !exists($att{-bold})) || (!$b &&=20
> exists($att{-bold}))){
>          $b =3D $att{-bold};
>          $text .=3D ($b ? '<B>' : '</B>');
>       }
>       if(($u && !exists($att{-underline})) || (!$u &&=20
> exists($att{-underline}))){
>          $u =3D $att{-underline};
>          $text .=3D ($u ? '<U>' : '</U>');
>       }
>       if(defined($escapes[0]->[0]) && $x =3D=3D $escapes[0]->[0]){
>          my $temp =3D shift(@escapes);
>          $text .=3D $temp->[1];
>       }else{
>          $text .=3D substr($oldtext,$x,1);
>       }
>    }
>    $text =3D~ s/\r//g;
>    $text =3D~ s/\n/<BR>/gi;
>    return $text;
> }
>=20
>=20
>=20
> Date: Thu, 07 Mar 2002 09:47:52 +0100
> To: per...@li...
> From: Johan Lindstrom <jo...@ba...>
> Subject: Re: [perl-win32-gui-users] RTF 2 HTML
>=20
> At 23:37 2002-03-06 -0500, Ultimate Red Dragon wrote:
>  >It's not that great, I don't claim it's efficient, just=20
> that it works.
>  >
>  >Currently, it supports new lines, bold, italics and underline.
>=20
> This seems to be similar to what you want:
> http://search.cpan.org/search?dist=3DRTF-Parser
>=20
>=20
>  >I'm working on converting < and > correctly, as well as a=20
> HTML 2 RTF sub
>  >(or is there already one?)
>=20
> There are HTML parsers and RTF generators on CPAN.
>=20
> Here is the search for module names with RTF:
> http://search.cpan.org/search?mode=3Dmodule&query=3Drtf
> (but note that you often can get a lot more results by searching the
> documentation rather than the module name)
>=20
>=20
> /J
>=20
> -------- ------ ---- --- -- --  --  -    -     -      -         -
> Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...
>=20
> Latest bookmark: "(GUI) Windows Programming FAQ"
> http://www.perlmonks.org/index.pl?node_id=3D108708
>=20
> _________________________________________________________________
> Send and receive Hotmail on your mobile device: http://mobile.msn.com
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

[perl-win32-gui-users] Re: Re: RTF 2 HTML

[Ultimate R. D. <scc...@ho...>]

Well, in reply to Johan.  I'll admit that I kinda knew those were there, but 
the documentation on them is either horrible or non-existent (depending on 
which RTF modules you look at.)  As for the HTML2RTF, I know of no already 
existing interpreter, but I plan on using HTML::Parser to make it simpler.

Anyway, I managed to get it to properly translate '<', '>' and '&' into 
their HTML counterparts.  Please point out any bugs or suggestions you have.

sub rtf2html{
   my $re = $main->reDesc;  #Just set this to the RichEdit object
   my $oldtext = $re->Text();
   my @escapes;
   {
      my $temp = -1;
      while(($temp = index($oldtext,'<',$temp+1)) != -1){
         push(@escapes,[$temp,'&lt']);
      }
      $temp = -1;
      while(($temp = index($oldtext,'>',$temp+1)) != -1){
         push(@escapes,[$temp,'&gt;']);
      }
      $temp = -1;
      while(($temp = index($oldtext,'&',$temp+1)) != -1){
         push(@escapes,[$temp,'&amp;']);
      }
   }

   @escapes = sort({ $a->[0] <=> $b->[0] } @escapes);
   foreach (@escapes){
      print $_->[0]." = ".$_->[1]."\n";
   }

   my $i = 0;
   my $b = 0;
   my $u = 0;
   my $text = '';

   my $offset = 0;
   foreach my $x (0..length($oldtext)){
      $re->Select($x,$x+1);
      my %att = $re->GetCharFormat();
      if(($i && !exists($att{-italic})) || (!$i && exists($att{-italic}))){
         $i = $att{-italic};
         $text .= ($i ? '<I>' : '</I>');
      }
      if(($b && !exists($att{-bold})) || (!$b && exists($att{-bold}))){
         $b = $att{-bold};
         $text .= ($b ? '<B>' : '</B>');
      }
      if(($u && !exists($att{-underline})) || (!$u && 
exists($att{-underline}))){
         $u = $att{-underline};
         $text .= ($u ? '<U>' : '</U>');
      }
      if(defined($escapes[0]->[0]) && $x == $escapes[0]->[0]){
         my $temp = shift(@escapes);
         $text .= $temp->[1];
      }else{
         $text .= substr($oldtext,$x,1);
      }
   }
   $text =~ s/\r//g;
   $text =~ s/\n/<BR>/gi;
   return $text;
}



Date: Thu, 07 Mar 2002 09:47:52 +0100
To: per...@li...
From: Johan Lindstrom <jo...@ba...>
Subject: Re: [perl-win32-gui-users] RTF 2 HTML

At 23:37 2002-03-06 -0500, Ultimate Red Dragon wrote:
 >It's not that great, I don't claim it's efficient, just that it works.
 >
 >Currently, it supports new lines, bold, italics and underline.

This seems to be similar to what you want:
http://search.cpan.org/search?dist=RTF-Parser


 >I'm working on converting < and > correctly, as well as a HTML 2 RTF sub
 >(or is there already one?)

There are HTML parsers and RTF generators on CPAN.

Here is the search for module names with RTF:
http://search.cpan.org/search?mode=module&query=rtf
(but note that you often can get a lot more results by searching the
documentation rather than the module name)


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "(GUI) Windows Programming FAQ"
http://www.perlmonks.org/index.pl?node_id=108708

_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com

Re: [perl-win32-gui-users] RTF 2 HTML

[Johan L. <jo...@ba...>]

At 23:37 2002-03-06 -0500, Ultimate Red Dragon wrote:
>It's not that great, I don't claim it's efficient, just that it works.
>
>Currently, it supports new lines, bold, italics and underline.

This seems to be similar to what you want:
http://search.cpan.org/search?dist=RTF-Parser


>I'm working on converting < and > correctly, as well as a HTML 2 RTF sub 
>(or is there already one?)

There are HTML parsers and RTF generators on CPAN.

Here is the search for module names with RTF:
http://search.cpan.org/search?mode=module&query=rtf
(but note that you often can get a lot more results by searching the 
documentation rather than the module name)


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "(GUI) Windows Programming FAQ"
http://www.perlmonks.org/index.pl?node_id=108708

[perl-win32-gui-users] RTF 2 HTML

[Ultimate R. D. <scc...@ho...>]

Well, I worked for a bit tonight and I finally came up with a (admitantly 
pathetic) basic RTF to HTML converter.

It's not that great, I don't claim it's efficient, just that it works.

Currently, it supports new lines, bold, italics and underline.

I'm working on converting < and > correctly, as well as a HTML 2 RTF sub (or 
is there already one?)

sub rtf2html{
   my $re = $main->reDesc;  #Just set this to the RichEdit object
   my $i = 0;
   my $b = 0;
   my $u = 0;
   my $text = '';
   my $oldtext = $re->Text();
   foreach my $x (0..(length($oldtext)+1)){
      $re->Select($x,$x+1);
      my %att = $re->GetCharFormat();
      #Note: The odd if statements are to avoid
      #      annoying warning messages
      if(($i && !exists($att{-italic})) || (!$i && exists($att{-italic}))){
         $i = $att{-italic};
         $text .= ($i ? '<I>' : '</I>');
      }
      if(($b && !exists($att{-bold})) || (!$b && exists($att{-bold}))){
         $b = $att{-bold};
         $text .= ($b ? '<B>' : '</B>');
      }
      if(($u && !exists($att{-underline})) || (!$u && 
exists($att{-underline}))){
         $u = $att{-underline};
         $text .= ($u ? '<U>' : '</U>');
      }
      $text .= substr($oldtext,$x,1);
   }
   $text =~ s/\r//g;
   $text =~ s/\n/<BR>/gio;
   return $text;
}


Comments, questions, suggestions?  I know the output leaves something to be 
desired, but most browsers can translate it well enough...  Feel free to 
take this and run with it, I just ask that ya post any improvements :)

_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com

RE: [perl-win32-gui-users] Re: WYSIWYG

[Frazier, J. J. <Joe...@Pe...>]

If you are asking for what I think, you are out of luck.  Text is just =
what it says: Plain Text!  If you want files which have some kind of =
formatting (font size, font style, font color, bold, etc) the files must =
be generated in a application which supports those things and saved as =
some type of binary or marked up file (.rtf comes to mind) and then must =
be opened by an application which supports the file type.  Notepad =
allows users to change the font size/style for "viewing" and each =
machine may have different font sizes/styles when opening the exact same =
document. =20

If I am not mistaken, printing from Notepad will print exactly like the =
current view style (I dont have time to test).  If you control the =
printing of the files to disk in the first place, you could write them =
as an excel file using the Spreadsheet::WriteExcel(?) module and have =
the users open the file in Excel and print from there.   This would =
allow some fairly powerfull formatting options.  If you dont write the =
files to disk, then you can even read them in via script/exe you build =
and convert them to Excel and then open the document in Excel.

Note: Any where Excel is mentioned, you could probably substitute Star =
Office's Spreadsheet program, although I have not tested it.

If this is on Windows and you/they have Excel installed, I would highly =
suggest using the Win32::OLE module so you can set columns to the widths =
you need and such.  If you have never played with Win32::OLE to work =
with Office applications, I believe this will greatly increase your =
knowledge of both Perl/OO-ish programming/VB.  Using this to modify =
Excel Documents via Perl is how I learned alot about Perl.

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:su...@pe...


> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: Tuesday, March 05, 2002 12:37 PM
> To: Borus Gabor
> Cc: Perl List
> Subject: Re: [perl-win32-gui-users] Re: WYSIWYG
>=20
>=20
>=20
> I'm not looking for a tool to desing a gui window I'm looking=20
> for some way
> to have whatever text comes up on the richtext field look=20
> exactly like what
> will be printed out.  Spacing, size, indents, etc....
>=20
>=20
>=20

RE: [perl-win32-gui-users] change color in listbox for addstring

[Rogers, J. <rog...@oc...>]

Marc,
AFAIK I dont think you can. ( I hope I am wrong )
Perhaps you can use ListView in a rethink?

John R


-----Original Message-----
From: NAHUM Marc [mailto:mar...@re...]
Sent: Wednesday, 6 March 2002 11:42
To: Rogers, John; per...@li...
Subject: Re: [perl-win32-gui-users] change color in listbox for
addstring


I want change a unique item
if ($toto==1) {$Listbox_verif_fic->AddString("$infocreation")} #in different
color ...

thanks,

----- Original Message -----
From: "Rogers, John" <rog...@oc...>
To: "'NAHUM Marc'" <mar...@re...>;
<per...@li...>
Sent: Wednesday, March 06, 2002 2:24 PM
Subject: RE: [perl-win32-gui-users] change color in listbox for addstring


> Hi,
>
> Do you want to change the whole list box, or each Item ?
>
> Whole ListBox, is easy something like;
> $Winobj->Listname->Change(-foreground=>[$r,$g,$b])
> where r g b is 0 to 255 value, and/or -background
>
> Individual Items, I dunno,
>
> JohnR
>
> -----Original Message-----
> From: NAHUM Marc [mailto:mar...@re...]
> Sent: Wednesday, 6 March 2002 8:08
> To: per...@li...
> Subject: [perl-win32-gui-users] change color in listbox for addstring
>
>
> hye,
> how can i change a color when i made a AddString into a Listbox ?
>
> thanks
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] change color in listbox for addstring

[NAHUM M. <mar...@re...>]

I want change a unique item
if ($toto==1) {$Listbox_verif_fic->AddString("$infocreation")} #in different
color ...

thanks,

----- Original Message -----
From: "Rogers, John" <rog...@oc...>
To: "'NAHUM Marc'" <mar...@re...>;
<per...@li...>
Sent: Wednesday, March 06, 2002 2:24 PM
Subject: RE: [perl-win32-gui-users] change color in listbox for addstring


> Hi,
>
> Do you want to change the whole list box, or each Item ?
>
> Whole ListBox, is easy something like;
> $Winobj->Listname->Change(-foreground=>[$r,$g,$b])
> where r g b is 0 to 255 value, and/or -background
>
> Individual Items, I dunno,
>
> JohnR
>
> -----Original Message-----
> From: NAHUM Marc [mailto:mar...@re...]
> Sent: Wednesday, 6 March 2002 8:08
> To: per...@li...
> Subject: [perl-win32-gui-users] change color in listbox for addstring
>
>
> hye,
> how can i change a color when i made a AddString into a Listbox ?
>
> thanks
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

RE: [perl-win32-gui-users] change color in listbox for addstring

[Rogers, J. <rog...@oc...>]

Hi,

Do you want to change the whole list box, or each Item ?

Whole ListBox, is easy something like;
$Winobj->Listname->Change(-foreground=>[$r,$g,$b])
where r g b is 0 to 255 value, and/or -background

Individual Items, I dunno,

JohnR

-----Original Message-----
From: NAHUM Marc [mailto:mar...@re...]
Sent: Wednesday, 6 March 2002 8:08
To: per...@li...
Subject: [perl-win32-gui-users] change color in listbox for addstring


hye,
how can i change a color when i made a AddString into a Listbox ?

thanks



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

RE: [perl-win32-gui-users] making windows - help w/code

[<Joe...@pa...>]

Joe Pfaltzgraff@PATAPSCO
03/06/2002 08:23 AM

Yup, you're right, it must be an issue with Komodo, command line works fine,
Komodo doesn't.  My work around for now is I tell the window to hide, and then
show and it works.

Thanks!





"Rogers, John" <rog...@oc...> on 03/05/2002 06:27:20 PM

To:   Joe Pfaltzgraff/Patapsco@Patapsco
cc:

Subject:  RE: [perl-win32-gui-users] making windows - help w/code



Hi,
I your problem is that you are running the code under the Komodo debugger.
try from command line.
I think this is a Komodo issue.

JohnR

-----Original Message-----
From: Joe...@pa... [mailto:Joe...@pa...]
Sent: Wednesday, 6 March 2002 5:00
To: per...@li...
Subject: [perl-win32-gui-users] making windows - help w/code






Joe Pfaltzgraff@PATAPSCO
03/05/2002 01:59 PM

I have code that is supposed to make 2 windows...  only the second window is
made, the first never appears and the two are identical.  If I add code to
make
another window at the beginning, the two windows are created, but not the
additional one.  From what I observed, the first attempt to create a window
in a
program always fails, and all the others succeed...  Any idea what is going
on,
or what to do about it?

Thanks!
Joe Pfaltzgraff

I'm running WinXP and Komodo 1.2

Here is the code - not much of a program at all yet - Which ever window I
tell
to show first doesn't show.  I can do the first window twice and then it's
okay.
With this code $W1 doesn't show.

use strict;
use Win32::GUI;

my($window) = new Win32::GUI::Window(
    -name => "window", -title => "Window Title",
    -left => 100, -top => 100, -width => 500, -height => 400, );

$window->AddButton( -name => "Button1" );
$window->Button1->Show();

my ($W1, $W2);

        $W1 = new Win32::GUI::Window(
                -name  => "W1",
                -title => "First Window",
                -pos   => [ 100, 100 ],
                -size  => [ 300, 200 ],
        );
        $W2 = new Win32::GUI::Window(
                -name  => "W2",
                -title => "Second Window",
                POs   => [ 150, 150 ],
                -size  => [ 300, 200 ],
        );


$W1->Show();
$W2->Show();
$window->Show();
Win32::GUI::Dialog();



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

[perl-win32-gui-users] change color in listbox for addstring

[NAHUM M. <mar...@re...>]

hye,
how can i change a color when i made a AddString into a Listbox ?

thanks

Re: [perl-win32-gui-users] making windows - help w/code

[<pau...@or...>]

Hmm, interesting.

Are you by any chance trying to run the code from within a GUI debugger ?  If I
run your code from within Perl builder I get 2 windows. If I save the code and
run it from a command window I get 3 windows !

Can't explain it but I'll keep thinking.

I've replicated the behaviour with this code :

use Win32::GUI;
use strict;


my $W = new Win32::GUI::Window(
    -title  => "Window1",
    -left   => 100,
    -top    => 100,
    -width  => 280,
    -height => 260,
    -name   => "Window",
);

my $X = new Win32::GUI::Window(
    -title  => "Window2",
    -left   => 150,
    -top    => 150,
    -width  => 280,
    -height => 260,
    -name   => "Window2",
);


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

If I run it through the debugger both $W and $X get initialised to
Win32::GUI::Window objects but only window $W is shown.

It seems to be the order that you call $WINDOW->Show(); If I move the
$X->Show(); line before the corresponding line for window $W then window $W is
shown but not window $X !!!

Ah well so much for IDEs !

Cheers

Paul



*******************************************************************************
Important.
Confidentiality: This communication is intended for the above-named person and
may be confidential and/or legally privileged. Any opinions expressed in this
communication are not necessarily those of the company. If it has come to you
in error you must take no action based on it, nor must you copy or show it to
anyone; please delete/destroy and inform the sender immediately.

Monitoring/Viruses
Orange may monitor all incoming and outgoing emails in line with current
legislation.  Although we have taken steps to ensure that this email and
attachments are free from any virus, we advise that in keeping with good
computing practice the recipient should ensure they are actually virus free.

Orange PCS Limited is a subsidiary of Orange SA and is registered in England No
2178917, with its address at St James Court, Great Park Road, Almondsbury Park,
Bradley Stoke, Bristol BS32 4QJ.
*******************************************************************************

Re: [perl-win32-gui-users] making windows - help w/code

[<pau...@or...>]

Hi



I've tried the code on XP and I don't get the first window or the button in the
      "Window Title" window.



If I cut and paste the declaration for window 2 and call it window 3 I get
      another window but if I call it W1 I still don't see it ?????



I'll keep thinking ;-)



PB



*******************************************************************************
Important.
Confidentiality: This communication is intended for the above-named person and
may be confidential and/or legally privileged. Any opinions expressed in this
communication are not necessarily those of the company. If it has come to you
in error you must take no action based on it, nor must you copy or show it to
anyone; please delete/destroy and inform the sender immediately.

Monitoring/Viruses
Orange may monitor all incoming and outgoing emails in line with current
legislation.  Although we have taken steps to ensure that this email and
attachments are free from any virus, we advise that in keeping with good
computing practice the recipient should ensure they are actually virus free.

Orange PCS Limited is a subsidiary of Orange SA and is registered in England No
2178917, with its address at St James Court, Great Park Road, Almondsbury Park,
Bradley Stoke, Bristol BS32 4QJ.
*******************************************************************************

[perl-win32-gui-users] installing win32::gui

[<ma...@mm...>]

ok. i got past my last problem but now i've hit another. i ended up using
dmake, which kept on crashing but i got it to compile after turning my
computer off a few times. now when i go to do dmake install it comes up
with this error

DMAKE.EXE:  makefile:  line 365:  Warning -- Empty recipe for special
target .xs
.cpp
DMAKE.EXE:  Error -- Ambiguous inference chains for target 'GUI.obj'
DMAKE.EXE:   1. GUI.obj(%.obj) --> GUI.xs(%.xs)
DMAKE.EXE:   2. GUI.obj(%.obj) --> GUI.c(%.c)
DMAKE.EXE:  Error -- resolve ambiguity before proceeding.

anyone know what this means?

thanx in advance

RE: [perl-win32-gui-users] making windows - help w/code

[Peter E. <Pet...@at...>]

I too get all three windows without the button (this is probably because you
didn't specify where it should go) on NT4 Workstation.


> -----Original Message-----
> From: H C [mailto:key...@ya...]
> Sent: Tuesday, March 05, 2002 14:09
> To: Joe...@pa...;
> per...@li...
> Subject: Re: [perl-win32-gui-users] making windows - help w/code
> 
> 
> I'm using Win32::GUI 0.558 on Win2K SP2, and I get all
> three windows.  However, I don't get the button in the
> window entitled "Window Title".
> 
> --- Joe...@pa... wrote:
> > 
> > 
> > 
> > 
> > Joe Pfaltzgraff@PATAPSCO
> > 03/05/2002 01:59 PM
> > 
> > I have code that is supposed to make 2 windows... 
> > only the second window is
> > made, the first never appears and the two are
> > identical.  If I add code to make
> > another window at the beginning, the two windows are
> > created, but not the
> > additional one.  From what I observed, the first
> > attempt to create a window in a
> > program always fails, and all the others succeed... 
> > Any idea what is going on,
> > or what to do about it?
> > 
> > Thanks!
> > Joe Pfaltzgraff
> > 
> > I'm running WinXP and Komodo 1.2
> > 
> > Here is the code - not much of a program at all yet
> > - Which ever window I tell
> > to show first doesn't show.  I can do the first
> > window twice and then it's okay.
> > With this code $W1 doesn't show.
> > 
> > use strict;
> > use Win32::GUI;
> > 
> > my($window) = new Win32::GUI::Window(
> >     -name => "window", -title => "Window Title",
> >     -left => 100, -top => 100, -width => 500,
> > -height => 400, );
> > 
> > $window->AddButton( -name => "Button1" );
> > $window->Button1->Show();
> > 
> > my ($W1, $W2);
> > 
> >         $W1 = new Win32::GUI::Window(
> >                 -name  => "W1",
> >                 -title => "First Window",
> >                 -pos   => [ 100, 100 ],
> >                 -size  => [ 300, 200 ],
> >         );
> >         $W2 = new Win32::GUI::Window(
> >                 -name  => "W2",
> >                 -title => "Second Window",
> >                 POs   => [ 150, 150 ],
> >                 -size  => [ 300, 200 ],
> >         );
> > 
> > 
> > $W1->Show();
> > $W2->Show();
> > $window->Show();
> > Win32::GUI::Dialog();
> > 
> > 
> > 
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> >
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 
> 
> __________________________________________________
> Do You Yahoo!?
> Try FREE Yahoo! Mail - the world's greatest free email!
> http://mail.yahoo.com/
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

Re: [perl-win32-gui-users] making windows - help w/code

[H C <key...@ya...>]

I'm using Win32::GUI 0.558 on Win2K SP2, and I get all
three windows.  However, I don't get the button in the
window entitled "Window Title".

--- Joe...@pa... wrote:
> 
> 
> 
> 
> Joe Pfaltzgraff@PATAPSCO
> 03/05/2002 01:59 PM
> 
> I have code that is supposed to make 2 windows... 
> only the second window is
> made, the first never appears and the two are
> identical.  If I add code to make
> another window at the beginning, the two windows are
> created, but not the
> additional one.  From what I observed, the first
> attempt to create a window in a
> program always fails, and all the others succeed... 
> Any idea what is going on,
> or what to do about it?
> 
> Thanks!
> Joe Pfaltzgraff
> 
> I'm running WinXP and Komodo 1.2
> 
> Here is the code - not much of a program at all yet
> - Which ever window I tell
> to show first doesn't show.  I can do the first
> window twice and then it's okay.
> With this code $W1 doesn't show.
> 
> use strict;
> use Win32::GUI;
> 
> my($window) = new Win32::GUI::Window(
>     -name => "window", -title => "Window Title",
>     -left => 100, -top => 100, -width => 500,
> -height => 400, );
> 
> $window->AddButton( -name => "Button1" );
> $window->Button1->Show();
> 
> my ($W1, $W2);
> 
>         $W1 = new Win32::GUI::Window(
>                 -name  => "W1",
>                 -title => "First Window",
>                 -pos   => [ 100, 100 ],
>                 -size  => [ 300, 200 ],
>         );
>         $W2 = new Win32::GUI::Window(
>                 -name  => "W2",
>                 -title => "Second Window",
>                 POs   => [ 150, 150 ],
>                 -size  => [ 300, 200 ],
>         );
> 
> 
> $W1->Show();
> $W2->Show();
> $window->Show();
> Win32::GUI::Dialog();
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
Try FREE Yahoo! Mail - the world's greatest free email!
http://mail.yahoo.com/