RE: [perl-win32-gui-users] how do you read the contents of an edi t control?

2001-10-09 Thread Piske, Harald
> my $ss = pack("",5,0,0,0,  0,0,0,0,  0,0,0,0);
> GUI::SendMessage($window, $EM_GETLINE, 0, $ss);   #  this does not

My guess is that you pass the SendMessage function a copy of $ss, or the
contents of $ss, to be precise, so that whatever gets put in there will not
make it back to $ss. But if you pass \$ss instead, I would not bet on the
SendMessage function to know what to make of it. If it adheres to DWIM,
you're lucky.



RE: [perl-win32-gui-users] Setting attributes after creation

2001-10-09 Thread Piske, Harald
> No luck so far, I've tried everyones various suggestions. AFAIK, you
> can use hexadecimal or decimals for colours.

Three suggestions:

1) If you create a label the size of your window as the very first control,
you can use it's background color to fill the window. 
$Main->AddLabel
(
-name => 'backcolor',
-background => 0xFF,
-pos => [0, 0],
-size => [640, 480],
);
To avoid problems when resizing the window, you can also make the label the
size of the desktop (or larger). However, even then, Change()ing this
label's -background property has no effect.

2)
local $dc = $Main->GetDC ();
local $brush = new Win32::GUI::Brush
(
-style => 0,
-color => 0x00FF00, # there it is
);
local $oldbrush = $dc->SelectObject ($brush);
$dc->Rectangle (0, 0, $Main->Width (), $Main->Height ());
$dc->SelectObject ($oldbrush);  # only bother if you
# use DC otherwise
$Main->InvalidateRect (0);
$Main->Update ();
What's wrong with this method: whenever the window gets redrawn (like when
you change the size or activate it from behind another window) the color is
gone and needs to be redone with this procedure.

3) I did not do this, but maybe you'd have to resort to CreateWindowEx (with
API, not GUI). For an example you can look at alone.pl on
www.fairymails.com/perl/. That thing makes a label on the desktop, not a
colored window, but still you can see the use of CreateWindowEx.

hope one of these help you
Harald



[perl-win32-gui-users] Web browser

2001-10-09 Thread Sean Healy
I have just uploaded a module, IeOle.pm to PCE 
(http://www.jeb.ca/cgi-bin/exchange/display.cgi).  It uses OLE to automate 
an instance of Internet Explorer.  The IE window is 'always on top' and sits 
on top of your Win32::GUI window.  You cannot respond to events as yet, but 
you can navigate.  Please send any comments, bug reports, etc. to 
<[EMAIL PROTECTED]>.  The next two big features I plan to implement are 
responding to events and changing the base font.


_
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp